|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
(defun c:gxk(/ I SS SSLIST)$ w. t, a+ _8 _) b+ |; ?
(if (setq ss(ssget "X" '((0 . "LINE,LWPOLYLINE,ARC"))))2 `0 r3 [0 M' m8 ^8 c! f$ F( X
;;; (setq ss(ssget))
) k9 m. [% j2 g8 t+ H; S% l% `$ z (progn8 C; a c* ^9 i1 @+ L: D% m
(setq i 0)
, n# e8 T: F, E2 Z% Z# \: @ (repeat (sslength ss)
. f" k" i& x6 y/ b (setq sslist(entget(ssname ss i)))
% [6 [% A& `% c6 N1 L; z* r (setq sslist(subst '(40 . 0) (assoc 40 sslist) sslist)). g0 v9 L r2 J' L, T- _' c( X/ ~7 M
(setq sslist(subst '(41 . 0) (assoc 41 sslist) sslist))
" X l0 U5 |8 `9 X% t) c3 S (setq sslist(subst '(43 . 0) (assoc 43 sslist) sslist))3 ]. }8 L, Q+ W0 F. l. r
(entmod sslist)
. D" t9 s$ C& Y$ t. Z% o J6 |. o: I (setq i(1+ i))
7 R5 u6 h7 a' G+ f6 t )8 \* X# \, W0 J0 f, T i3 B
)# Q E$ h d4 L9 [0 Y
)
2 d! u J/ e7 B( t8 H2 N (princ)- P/ Z2 X3 O9 F, C! @9 F8 `
)
: P/ ?+ y( G( S2 V(c:gxk) |
|
发表于 2009-5-8 14:49:40