|
|
我们很多时候相把线段、弧等组合为一个整体，CAD虽然有提供但不是很方便，我自己改良了一下：# d7 ]* w+ U1 e+ J
- J& P0 a) V6 u: L+ Z& d0 ~
说明：4 O" n( p: S; s# u- a5 K% A
6 [7 B8 c1 N, l# ^( Z" I( i; N8 q
将下列代码复制后保存为MJN.LSP或其他文件名，但扩展名必须是LSP
- I' A* h: k" F$ |) q, H0 u/ o* p7 }
用命令AP加载后。输入MJN，选择要组合的线段、弧、多段线等。8 _* ]5 i- E: K# P" n2 J2 j# k
) t' I& O y( T
- (defun C:MJN(/ obj)
6 \3 h: I; P/ ?* K% e - (setq obj(ssget(list(CONS 0 "*LINE,ARC,LWPOLYLINE"))))6 }7 C1 A* A; \$ u
- (command "pedit" "M" "P" "" "Y" "J" "" ""); ]( L& s, M! r1 u
- (princ)9 d$ O) K( K5 _ d
- ) d7 d% H6 e, B! @6 g
*LINE,ARC,LWPOLYLINE 这部分大家还可以添加，但必须要用 “，” 隔开
" x z6 x0 x2 K$ w- w4 j" e2 P2 c6 F
可以同时选择多组进行组合。 |
|
发表于 2008-5-23 09:24