|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
(defun c:gxk(/ I SS SSLIST)
$ X H: T; q7 C! d# f (if (setq ss(ssget "X" '((0 . "LINE,LWPOLYLINE,ARC"))))
: k* C% k& g" n9 V$ w;;; (setq ss(ssget))" T/ f# T3 J; ]. R1 y. c: x
(progn
! `& r0 R- p. j (setq i 0)
7 n* n4 B" ~! ]- H" o7 M2 q) W5 N (repeat (sslength ss)) i$ [) {6 L" z3 ?5 m8 F
(setq sslist(entget(ssname ss i)))
: O' p% T, r6 G3 b3 { (setq sslist(subst '(40 . 0) (assoc 40 sslist) sslist))5 E8 k& P$ S1 c/ t2 J4 y
(setq sslist(subst '(41 . 0) (assoc 41 sslist) sslist))+ n6 }+ p; b% k! K! V
(setq sslist(subst '(43 . 0) (assoc 43 sslist) sslist))
' D" N# T3 u7 R! Z! O3 E& r (entmod sslist)
9 j! Q+ t. u+ x; i (setq i(1+ i))
$ J. t6 Q1 P9 q, u3 v1 W )! P. [$ }. V2 ?7 p7 ?9 |
)
" ]" w+ _! q$ u4 t6 r7 p )
! _2 ~! D2 d% u* s5 M (princ)
- x- u5 N5 e. m/ m5 N/ ]5 l )% |( j, Z: F9 u8 @
(c:gxk) |
|
发表于 2009-5-8 14:49:40