|
本帖最后由 jinlang007 于 2011-10-20 11:40 编辑
4 W* y3 k' A/ q, c$ ^# Z+ A
" V3 w' k, e, y$ U- q# u4 _; C+ u(defun c: QQ();定义QQ命令7 Y" d/ ]# `* b \" f
(command "pedit" "m" "ALL" "Y" "J" "2" "");多线段合并* A- j% n, P5 {$ N' y) k6 O
)
2 B; D! r, h' Q' I, a1 s% ^当然,上面的是错误的~~~~
8 f) Z$ q* q' b' O7 q/ P! Y! @" a$ a1 q6 U
大家好,谁能帮我用CAD LISP语言写一个PEDIT代码,要求如下:
) Y& u6 l0 W+ ?, i* @; p$ A1.开始时默认选择多线段(M); 如: 命令: pe PEDIT 选择多段线或 [多条(M)]: m 8 n& e) M& {: u5 A4 T3 y4 V* d- w
2.提示我选择所需要选择的线段;这一步很重要,不要按上面所写的用全部线段,而是按我所需要选择的线段来操作
6 g& Z7 v6 U1 I2 l9 X3 j* T3.是否将直线和圆弧转换为多段线?[是(Y)/否(N)]? <Y>
$ }; w+ E2 b" ^& X- O F& ^4.输入选项 [闭合(C)/打开(O)/合并(J)/宽度(W)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)/放弃(U)]: j 3 o. R, A3 @- b: ]" [! l2 N% W) \# k
5.输入模糊距离或 [合并类型(J)] <0.0000>: 2
1 b$ f8 h F$ @5 s
4 a S4 i. a6 \6 J Q8 n3 u! [9 N4 S: _4 K
* o3 {* u4 P. {5 `3 o谢谢各位啦! |
|