|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
(defun c:gxk(/ I SS SSLIST)
& U# _# d+ w; G/ }2 m9 \( K (if (setq ss(ssget "X" '((0 . "LINE,LWPOLYLINE,ARC"))))2 J" x% G) B( M$ p& K3 j, S5 q5 ^7 f6 G
;;; (setq ss(ssget))7 n8 S3 Y7 R* }6 b# Z4 `9 x: l
(progn
) W+ I' m4 W/ o, V6 W4 C! |4 }; b (setq i 0); f% C7 n! V2 M3 P
(repeat (sslength ss)
/ y6 A! @7 \) n5 p (setq sslist(entget(ssname ss i)))5 E0 J8 B7 x0 \2 g
(setq sslist(subst '(40 . 0) (assoc 40 sslist) sslist))
4 S8 o7 a- }! a2 q% V( v (setq sslist(subst '(41 . 0) (assoc 41 sslist) sslist))( ~- f& ~9 ?; G/ `$ p
(setq sslist(subst '(43 . 0) (assoc 43 sslist) sslist))$ l/ o9 }: q( Q: t5 ^* O
(entmod sslist)
3 R q+ b& n2 }, t* c0 |, c- x (setq i(1+ i))
8 @! X5 i! n, @; i! T- Q )
! r7 b+ A* Y" Y: b/ V: X0 A )( G8 J* h4 H0 p3 F$ @
)
5 {% C0 A; z3 S( C/ v (princ)
: i/ E4 Y5 Y# T. m8 ? )3 I2 `* f$ X( F W6 F# G1 T
(c:gxk) |
|
发表于 2009-5-8 14:49:40