|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
(defun c:gxk(/ I SS SSLIST)( q# E5 U( f" b8 D9 z1 s
(if (setq ss(ssget "X" '((0 . "LINE,LWPOLYLINE,ARC"))))
( s+ g3 B' D3 r+ }7 x. ^;;; (setq ss(ssget))9 }, e4 F% o0 Q' b, G
(progn
F+ [% [) P$ Q0 s0 {9 u* ~$ C (setq i 0)
$ ~( k8 C) y; a9 f (repeat (sslength ss): Z+ W+ d# R* y6 L3 [4 _( A& m4 Y( T' t
(setq sslist(entget(ssname ss i)))
- S V% Y; N' ]/ u5 ]& h% G (setq sslist(subst '(40 . 0) (assoc 40 sslist) sslist))
% `& t% t$ t1 |+ U* r+ t (setq sslist(subst '(41 . 0) (assoc 41 sslist) sslist))7 B _, I" t+ x$ R( z3 o! ?/ n* J
(setq sslist(subst '(43 . 0) (assoc 43 sslist) sslist))
0 }9 m8 j) [1 ]1 { (entmod sslist)
2 f, I! O. ~( u- D0 h1 i |! Z9 z (setq i(1+ i))
4 \2 |# \. l4 ]7 H5 @ )# A; ~8 ?" W2 ?: ^2 E
)) @* E$ e q; R! o$ B; `& k
)+ B' A2 \# l9 X; }
(princ). b! }2 B8 |3 n! d
); X( Y* a7 c* U h4 c: j3 j6 w
(c:gxk) |
|
发表于 2009-5-8 14:49:40