|
|
本帖最后由 jinlang007 于 2011-10-20 11:40 编辑 / x! o, p) R$ Z9 W6 I4 j$ ?
3 a' j" h4 E2 p3 a3 L( H
(defun c: QQ();定义QQ命令2 H% Z3 X+ h# J7 Z
(command "pedit" "m" "ALL" "Y" "J" "2" "");多线段合并' k" e: _* F+ E/ U% o A; d* S; N
)
) T/ D0 c9 }% H9 P( _当然，上面的是错误的~~~~
1 K2 w) `% q5 S! s g) }, t5 m/ n- _ p/ q4 @- U( r+ V, J
大家好，谁能帮我用CAD LISP语言写一个PEDIT代码，要求如下：
9 x/ S I: h) m8 _1.开始时默认选择多线段（M）; 如： 命令: pe PEDIT 选择多段线或 [多条(M)]: m , g% p* w& A; ~$ W$ t2 l
2.提示我选择所需要选择的线段；这一步很重要，不要按上面所写的用全部线段，而是按我所需要选择的线段来操作 ! C% d* H3 B8 [9 U) i5 m6 K
3.是否将直线和圆弧转换为多段线？[是(Y)/否(N)]? <Y>
( Z5 k$ c" N2 ?3 h) I4.输入选项 [闭合(C)/打开(O)/合并(J)/宽度(W)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)/放弃(U)]: j
# e+ u5 {4 g- }; X5.输入模糊距离或 [合并类型(J)] <0.0000>: 2
9 W- u, z& A6 d! `9 z+ }# |0 _$ z! X8 L* E6 \- ~% E- i
# U6 m3 n7 k$ \; j7 u. L& l7 m+ T
谢谢各位啦！ |
|
发表于 2011-10-20 08:47
楼主