|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
(defun c:gxk(/ I SS SSLIST)
% s4 v) j; M, \ (if (setq ss(ssget "X" '((0 . "LINE,LWPOLYLINE,ARC"))))
: \) V6 D+ _1 I/ Q. W, }1 y;;; (setq ss(ssget))6 t; {& \1 L' J( L! d
(progn+ |* [1 L& J2 ]6 e
(setq i 0)/ ~3 h. S: u# q& d3 p
(repeat (sslength ss)- w9 J( T8 A# X, g1 P8 K
(setq sslist(entget(ssname ss i)))
4 C/ |( h/ K' E2 G/ O! j2 E3 ` (setq sslist(subst '(40 . 0) (assoc 40 sslist) sslist)): [# c( E! Z$ Y9 j$ i* g
(setq sslist(subst '(41 . 0) (assoc 41 sslist) sslist))
9 u( ^. _& q' b0 W (setq sslist(subst '(43 . 0) (assoc 43 sslist) sslist))
( n! Y0 r$ s( s S r4 c. ~! m% } (entmod sslist): n6 ]9 r+ y. M9 ?
(setq i(1+ i))0 v$ O) n% e. [5 d: }* m0 W
)
$ u7 ^/ S: f, R8 a- `( W- m )
, v8 F/ w2 ^% s: v )
9 H* Z0 {1 i+ I6 a! N (princ), p' s! g, {1 d4 Y* d; J
)
, j( k+ Y- H8 m& z' h! s(c:gxk) |
|
发表于 2009-5-8 14:49:40