|
|
本帖最后由 jinlang007 于 2011-10-20 11:40 编辑 $ ]3 r$ L* I; F3 i, R7 ~
3 D5 x4 n6 E6 u: ^
(defun c: QQ();定义QQ命令
0 w0 y+ d: n9 f (command "pedit" "m" "ALL" "Y" "J" "2" "");多线段合并
5 f% u$ t% p4 \- V; s8 W)4 A8 I8 f, x$ F1 @
当然，上面的是错误的~~~~; k4 J* h0 ~& l6 B" Z
2 L) o4 [$ {1 U/ h! M/ o大家好，谁能帮我用CAD LISP语言写一个PEDIT代码，要求如下：& O) f+ T" s6 w T" l& l9 j9 c9 g
1.开始时默认选择多线段（M）; 如： 命令: pe PEDIT 选择多段线或 [多条(M)]: m
) x; n; d( M& @# `% }) U2.提示我选择所需要选择的线段；这一步很重要，不要按上面所写的用全部线段，而是按我所需要选择的线段来操作
2 y. n# }; G3 t3 w" G' J3.是否将直线和圆弧转换为多段线？[是(Y)/否(N)]? <Y>
+ {- y: r9 F- n( t4.输入选项 [闭合(C)/打开(O)/合并(J)/宽度(W)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)/放弃(U)]: j
( t& I$ O7 \) p) D4 d& O4 Q5.输入模糊距离或 [合并类型(J)] <0.0000>: 2
! ~; T) s5 X* Y' ~2 l1 i9 p
) _1 \0 [/ {; w2 _/ N3 e+ K7 ` \ N
谢谢各位啦！ |
|
发表于 2011-10-20 08:47
楼主