|
|
本帖最后由 jinlang007 于 2011-10-20 11:40 编辑 2 {. ?0 H( \; Z+ l/ P
6 Q! @3 r/ r+ C l' K- ~& h(defun c: QQ();定义QQ命令
8 I5 }4 H% F- Z- q; H (command "pedit" "m" "ALL" "Y" "J" "2" "");多线段合并
+ l- L/ I: n# I: K- N( u, I)
& m' g Q9 x# n+ y- q& S% W1 n当然，上面的是错误的~~~~
' s; u5 [4 n) y' U5 S. E3 H. N3 N3 S/ f* R F2 v `3 i" y+ a9 }
大家好，谁能帮我用CAD LISP语言写一个PEDIT代码，要求如下：
- ]4 ?5 p U- t& ]- {& N$ r1.开始时默认选择多线段（M）; 如： 命令: pe PEDIT 选择多段线或 [多条(M)]: m
; a) q8 @1 n/ n5 X2.提示我选择所需要选择的线段；这一步很重要，不要按上面所写的用全部线段，而是按我所需要选择的线段来操作 2 r& ]* C7 t0 P
3.是否将直线和圆弧转换为多段线？[是(Y)/否(N)]? <Y>
, I, O2 m% h, u8 w# g4.输入选项 [闭合(C)/打开(O)/合并(J)/宽度(W)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)/放弃(U)]: j
; O2 U3 ?$ J7 C5 C" b6 O& ^5.输入模糊距离或 [合并类型(J)] <0.0000>: 2$ ~5 _$ m9 q. j+ o1 [7 c: I- v% S
+ O0 w* a, g' {( @4 o% M% D
6 }) c; r+ ~; ^1 b% Y% C谢谢各位啦！ |
|
发表于 2011-10-20 08:47
楼主