|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
(defun c:gxk(/ I SS SSLIST)
5 r" c# }1 D% a (if (setq ss(ssget "X" '((0 . "LINE,LWPOLYLINE,ARC"))))- @& N0 M0 l% i% g8 Z4 z I" J
;;; (setq ss(ssget))
k5 C8 O# h7 p+ i3 h: P3 r (progn+ ?: l4 l2 O! l, l8 i7 X7 n
(setq i 0)
7 ~: u2 K* O% a3 s (repeat (sslength ss)
+ R& P% m( R1 l4 y$ U4 Y6 k8 h (setq sslist(entget(ssname ss i)))
+ W( T" w K2 Y$ ?) s6 S6 @( p. d (setq sslist(subst '(40 . 0) (assoc 40 sslist) sslist))
* l4 R# b, |# c1 E3 x! {8 ]) \- I (setq sslist(subst '(41 . 0) (assoc 41 sslist) sslist))3 v6 C" m; @+ b7 a/ F$ F
(setq sslist(subst '(43 . 0) (assoc 43 sslist) sslist))
" P. M! o2 x8 F( E (entmod sslist)% w+ h2 o' U# R7 p
(setq i(1+ i))
& c+ ]+ A5 q$ K9 Q+ P3 k% y )
( _7 X: @9 P# j+ r9 D7 G& h' b ): D& u' c/ |8 v q" N
)# V. R e2 A: ?7 V5 O8 d Q0 T
(princ)/ [* [' @) U9 L% e( s n( j
)
3 t7 t/ G6 v6 M0 [: L(c:gxk) |
|
发表于 2009-5-8 14:49:40