|
|
我们很多时候相把线段、弧等组合为一个整体，CAD虽然有提供但不是很方便，我自己改良了一下：
% t. ], m, d! e" h# s$ \) R, h% _* P2 c5 O& ]% I
说明：
$ `' D' k6 H0 V
' U* A6 H Y& |5 _0 b将下列代码复制后保存为MJN.LSP或其他文件名，但扩展名必须是LSP4 _/ k2 I9 E z8 `
( K- o- D4 J) u# T7 P* R用命令AP加载后。输入MJN，选择要组合的线段、弧、多段线等。
2 i, ?* @2 Y6 C8 S/ c- W; z6 {, \3 `8 H+ z, m/ a2 H) ^& B- R
- (defun C:MJN(/ obj)6 m6 R2 j% _- t8 J$ e8 l! U2 R7 Z% ?
- (setq obj(ssget(list(CONS 0 "*LINE,ARC,LWPOLYLINE"))))* ?# M5 W; o4 j; l
- (command "pedit" "M" "P" "" "Y" "J" "" "")
0 [ S$ O4 H+ ]4 ` - (princ)9 a. H7 r( K+ h4 o
- )8 c& S" z7 I8 u5 H; F2 y$ I
; }" v- P% ~4 Q/ J$ m, P, i*LINE,ARC,LWPOLYLINE 这部分大家还可以添加，但必须要用 “，” 隔开
1 @7 B( M: j' E4 @+ L8 e/ r# ~( a& R& z" z) U1 C4 S
可以同时选择多组进行组合。 |
|
发表于 2008-5-23 09:24