|
|
我们很多时候相把线段、弧等组合为一个整体，CAD虽然有提供但不是很方便，我自己改良了一下：5 p: V% b6 |# ?! p9 s
6 g4 o) S V; n8 ^9 N9 I6 K说明：& ~/ @& T7 K) ?! F
. g; d8 _, S0 q# l; b9 A h0 x1 ?, |将下列代码复制后保存为MJN.LSP或其他文件名，但扩展名必须是LSP
. G; M- C/ w* V
7 J( p, t4 v: `: E) m) f4 F用命令AP加载后。输入MJN，选择要组合的线段、弧、多段线等。' E# i( ~. V: A* W2 Q5 {2 u: ~. @6 {
- h; @; H3 O" s1 ?4 i, M2 _+ c
- (defun C:MJN(/ obj)7 \8 X2 b, J4 O7 {. E
- (setq obj(ssget(list(CONS 0 "*LINE,ARC,LWPOLYLINE"))))
# [# E9 w7 {6 J/ o: Y3 Y - (command "pedit" "M" "P" "" "Y" "J" "" "")
?* B# }4 y: |( W8 q/ b. U - (princ)
# _9 ?2 l) n- t& f0 s, B0 P - )
" S% ?! B: f7 H( I8 S1 B L
*LINE,ARC,LWPOLYLINE 这部分大家还可以添加，但必须要用 “，” 隔开: c, h1 z% D6 g7 a5 J
, i, A& P% c! _* |, M2 M0 l可以同时选择多组进行组合。 |
|
发表于 2008-5-23 09:24