|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
(defun c:gxk(/ I SS SSLIST)* t2 r0 ?( }4 f' W2 l6 {8 r
(if (setq ss(ssget "X" '((0 . "LINE,LWPOLYLINE,ARC"))))
5 t4 y. L# W; Y;;; (setq ss(ssget))& f4 Y1 j/ v4 W' F$ d6 X
(progn/ {; `) P, p V+ E! s7 G
(setq i 0)' f3 ?' B8 e& p, I; y8 A3 U" }
(repeat (sslength ss)6 {4 L; t, l$ r* i' }+ ?! B
(setq sslist(entget(ssname ss i)))+ p7 o& w0 p- S: S( m: V
(setq sslist(subst '(40 . 0) (assoc 40 sslist) sslist)): J2 y* x$ H, O- f& P/ _6 Z' N
(setq sslist(subst '(41 . 0) (assoc 41 sslist) sslist))
( W% _; l* C# v1 Q" \" g$ k (setq sslist(subst '(43 . 0) (assoc 43 sslist) sslist))* d3 O# }- ~* c' T: C" e
(entmod sslist)
9 O$ y- M7 b$ p4 ^' {- H# { (setq i(1+ i))
( c& r s6 K' d: J. \ )
6 `4 h9 Q5 g: N7 H& n- G6 s' [' l+ o. ~0 e )
3 c, l+ I0 S2 C# ~# H+ x )/ K& k. [ @- k( }
(princ) R% e0 s! G) F. a% o5 W
)
) D/ ^2 C7 E6 G5 b( A+ {4 a$ n(c:gxk) |
|
发表于 2009-5-8 14:49:40