怎么用autolisp编辑命令进行图案填充

fnwengjx

怎么用autolisp编辑命令来进行简单图案填充，比如图片上的剖切线？是用hatch对吧，但总写不对！请大家帮个忙！先谢谢大家了！

rushs

ANSI31 这个不是？

fnwengjx

rushs 发表于 2013-4-19 19:36 static/image/common/back.gif
ANSI31 这个不是？

嗯，填充图案是用ANSI31，就是不懂用autolisp应该去编辑命令？

woaishuijia

1 y9 K# B7 l; C4 A" L跟我做
2 q! f& H' j1 t# f) @% W首先按功能键"F2",调出CAD文本窗口,便于我们下一步查看命令行提示内容
0 |9 K) d1 @& G% C. V  S4 _' G; _4 y4 ]在命令行输入下面的代码

1. (command"hatch")

复制代码

回车后看看CAD命令行提示了什么?
* S- X- g+ Y3 o9 m! n* k"图案名称或 [?/实体(S)/用户定义(U)/渐变色(G)] <ANGLE>:"
: f! i& F% t8 r& s+ U7 O/ [这是在让我们指定图案名称,并且默认名称是"angle".以及其它不太常用的填充选项
键入"ansi31",回车后再看命令行提示了什么?
"图案缩放比例 <1.0000>:"
4 l" E; K$ G4 h0 ]$ M0 g这是在让我们指定图案填充比例,并且默认值是1
再回车看命令行提示了什么?
9 ~  i; n" B/ L2 t% k% `3 K8 ~7 R"图案角度 <0.0000>:"
这是在让我们指定填充角度,并且默认值是0度
, `0 s: S3 ?. q( X6 A7 Z再回车看命令行提示了什么?
"选择定义图案填充边界的对象或 <直接图案填充>，
! b8 W, w4 b1 ]2 K选择对象:"
7 @0 p. z3 \" |2 d# g这是在让我们提供填充图案的边界,并且给出了两种方法:第一种(默认)方法是提供能够构成封闭区域的一个或一组首尾相连的图形对象选择集;第二种方法是用一系列点来指定填充边界
第一种方法我们有两个选择:用变量提供一个现有的选择集(如果你在程序中已经创建过符合要求的选择集并且保存到某个变量中)或用"ssget"方法提供给它一个新选择集,下面的代码谨供参考.

1. (command"circle"(getpoint"\n指定圆心:")100)(command "hatch""ansi31"1 0(ssget"l")"")

复制代码

1. (command"boundary"(getpoint"\n指定内部点:")"")(command "hatch""ansi31"""""(ssget"l")"")

复制代码

可以自己参考上面的过程去进一步尝试了解其它具体的选项和参数要求,包括直接图案填充

fnwengjx

. j1 X# r( J6 C

woaishuijia 发表于 2013-4-20 04:41 static/image/common/back.gif
跟我做
首先按功能键"F2",调出CAD文本窗口,便于我们下一步查看命令行提示内容
在命令行输入下面的代码回车 ...

- o2 t; e* r- W: N, d' S; f先谢谢版主指导！

6 p$ r+ w; M% e, T! w我之前是先操作一遍图案填充，然后按“F2”，调出CAD文本窗口，如图1显示。
% t) g& V" u( c0 A4 `8 C
# F" y/ ?& x. x1 n

图1

3 L2 A( ^2 |$ V/ `- E/ _% G* l5 J
) z) T+ K$ `6 d* N然后在命令行输入代码：(command"bhatch")或输入-bhatch，回车
命令行提示：“指定内部点或 [特性(P)/选择对象(S)/绘图边界(W)/删除边界(B)/高级(A)/绘图次序(DR)/原点(O)/注释性(AN)]”
键入：s，我再回车，只需要在我需要填充的区域中选取一个点，回车就完成了。
CAD文本窗口如图2显示，这里填充图案默认（是上次的操作选择），无法修改。
  ~6 _: r! b9 {  o! p
4 @# c' y9 j3 S; t  o: i) }

图2

# k2 Q2 `7 l. F
' X0 }: O/ C+ S8 A8 x! L3 M4 u我的问题是无法用Autolisp编辑出程序，直接在命令行输入函数名直接完成。
6 D4 u6 o5 }8 J: F# m$ {  N
按您的方法，在命令行输入代码：(command"hatch")，前面都懂，还是到了对象选择，我先回车，选择不保留多段边界，然后拾取组成边界的几个点，回车即可完成。我这课呢个是用了您说的第二种方法吧，但第一种我不太明白图形对象选择集！
' L, i3 E1 O; V; x
& p, \/ D, X7 g3 F. A5 |在给的程序中，我用(command"circle"(getpoint"\n指定圆心:")100)(command "hatch""ansi31"1 0(ssget"l")"")能完成在圆内画剖切线，这种我能明白，但是不能与我之前写的程序连接起来，就是说我在命令行输入一个我写的函数名，而程序只能运行到这两句程序的上一步，但只执行选中这两句是可以的。这两种填充貌似只能填充那种正好构成封闭的区域。
我刚接触Autolisp，之前对AutoCAD操作的也不是很熟练，过多无知之处请多多指教！
+ X6 C5 U: s+ {% i- B, w4 k& R

woaishuijia

1. (COMMAND"BHATCH""P""ANSI31""""")

复制代码