|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
(defun c:gxk(/ I SS SSLIST); B& |2 C# r \4 D
(if (setq ss(ssget "X" '((0 . "LINE,LWPOLYLINE,ARC"))))
' m$ h) T# F, V' e u7 F;;; (setq ss(ssget))8 T z9 p' E! A' r5 X% y: c1 G
(progn) w/ s' w0 e: T6 ]& J% }1 O
(setq i 0)
3 Q$ m8 t1 o" z8 W6 C (repeat (sslength ss)
# g1 y5 O( D+ O& K$ ]5 E (setq sslist(entget(ssname ss i)))- G+ Y& ?2 ~! y6 J8 N
(setq sslist(subst '(40 . 0) (assoc 40 sslist) sslist))
1 N8 m* g, I3 e; @. E; u (setq sslist(subst '(41 . 0) (assoc 41 sslist) sslist))& M$ k, ?4 U/ E6 H1 J, C
(setq sslist(subst '(43 . 0) (assoc 43 sslist) sslist))# o. X$ \5 A) u' F" h( H4 V( w
(entmod sslist)
. A5 K2 o, p1 u' M" t9 { (setq i(1+ i))' d- f4 x) z7 z$ S9 v
)3 G4 Y) H3 B& ?3 X! b
)2 m- R% d4 Y& ]4 A
)* x7 U( [5 o& u' G I+ i6 U& R4 D; J
(princ)
, G/ u0 ?2 S5 @5 ?( z )
- d$ B& i# D2 R7 Q$ C5 N0 s7 M(c:gxk) |
|
发表于 2009-5-8 14:49:40