|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
(defun c:gxk(/ I SS SSLIST)
% K* Q8 G/ D$ s* x& O (if (setq ss(ssget "X" '((0 . "LINE,LWPOLYLINE,ARC"))))# X0 ~: l4 M$ g+ \ D
;;; (setq ss(ssget))
% G, c! ]( h# M) v( }; P% V7 V2 G5 F (progn, U; p. m. W1 t% m5 y j/ D, E
(setq i 0)
! _$ S D: f; S. b1 S4 ~ (repeat (sslength ss). H4 ~$ X& U4 \+ G+ }$ }5 A
(setq sslist(entget(ssname ss i)))# F7 Z ?( o( `% n! r* p
(setq sslist(subst '(40 . 0) (assoc 40 sslist) sslist)); j" q* J. B6 G& V
(setq sslist(subst '(41 . 0) (assoc 41 sslist) sslist))) o# d- t+ e9 k/ U; F
(setq sslist(subst '(43 . 0) (assoc 43 sslist) sslist))! t$ _7 k: J: h/ a
(entmod sslist)2 ^4 `4 T: X0 S- m
(setq i(1+ i))
+ j4 D7 ?' \2 u )
4 i4 g* A! U/ j r8 c6 q& \ )
5 q* [7 D8 Z N$ V& G ) f( }* r- [. r. \* P0 U- R
(princ)
9 w4 m+ m. I$ r0 ]2 x: y6 k) S )# L8 Z/ T3 s" a# @3 v2 G
(c:gxk) |
|
发表于 2009-5-8 14:49:40