|
|
本帖最后由 jinlang007 于 2011-10-20 11:40 编辑 . K7 t1 `5 j6 _$ {
3 _6 ?8 P$ O* N* m/ m3 S
(defun c: QQ();定义QQ命令$ H2 b7 j4 J2 H$ }4 H. G
(command "pedit" "m" "ALL" "Y" "J" "2" "");多线段合并( F( `8 }) L4 ]8 O) E. q# ]
)
: k, [" u% x7 C _* ^当然，上面的是错误的~~~~
O$ _( _3 G# i' S; r$ e7 e) H7 O' k/ u
大家好，谁能帮我用CAD LISP语言写一个PEDIT代码，要求如下：. p" b6 A$ w. h/ a. M7 X2 z
1.开始时默认选择多线段（M）; 如： 命令: pe PEDIT 选择多段线或 [多条(M)]: m
7 ^+ `; P, X5 o/ E2.提示我选择所需要选择的线段；这一步很重要，不要按上面所写的用全部线段，而是按我所需要选择的线段来操作 9 ?3 |# S: b/ C2 P, s5 |7 U
3.是否将直线和圆弧转换为多段线？[是(Y)/否(N)]? <Y>
$ ^0 f& B, G/ M) V9 t4.输入选项 [闭合(C)/打开(O)/合并(J)/宽度(W)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)/放弃(U)]: j
: r1 Z6 q1 h0 `, n0 {7 R/ k; G5.输入模糊距离或 [合并类型(J)] <0.0000>: 2
6 [1 X# N5 _7 ^; B* D* C3 j# L7 E( u1 w2 t
0 Z9 R1 j4 m8 N; X
谢谢各位啦！ |
|
发表于 2011-10-20 08:47
楼主