|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
(defun c:gxk(/ I SS SSLIST)
7 h. m+ r+ Z% P5 K" U (if (setq ss(ssget "X" '((0 . "LINE,LWPOLYLINE,ARC"))))8 E4 ]( l) k7 R
;;; (setq ss(ssget))
- u2 Y+ Y) I, f- w( N" ~9 ]$ f. d (progn: R A8 X* ~8 ~" f6 d
(setq i 0)
1 j& ~! O, F& \ z, J, d (repeat (sslength ss)
Q2 s6 d& D0 l& U" a! K (setq sslist(entget(ssname ss i)))' c9 F0 w; Y: W( v- {- b! G
(setq sslist(subst '(40 . 0) (assoc 40 sslist) sslist))
( o: S- p- f" z (setq sslist(subst '(41 . 0) (assoc 41 sslist) sslist))
) `! M$ d5 `8 Y' w: u (setq sslist(subst '(43 . 0) (assoc 43 sslist) sslist))- u5 ?8 S2 k$ C
(entmod sslist); t" n7 J9 v+ N/ q
(setq i(1+ i))6 p% t. F. u8 }+ u9 [
): r5 x0 N' Y9 O$ _9 w3 Z
)% u8 L/ M( [% o- l) j" G
)- [ b0 B- M" E/ Z% Q2 Z
(princ)
- X" W3 y5 n/ d3 J2 {/ [) \$ b )/ r) z4 Y& }6 s
(c:gxk) |
|
发表于 2009-5-8 14:49:40