|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
(defun c:gxk(/ I SS SSLIST)4 q" L" Q, P2 U, Y( ^
(if (setq ss(ssget "X" '((0 . "LINE,LWPOLYLINE,ARC"))))/ c. E) X3 r4 e" Q5 H
;;; (setq ss(ssget))
7 j) E6 L3 L7 ^" f% z o1 ] (progn
+ X' o7 f5 R3 \ N7 {# s Y" h (setq i 0)
4 n" o7 t0 C0 } R( l2 ~# Y8 H, n0 T (repeat (sslength ss)7 b4 |0 a* X% S6 x- |* a: ]7 d
(setq sslist(entget(ssname ss i)))/ p$ O9 r# ~' X6 {/ l
(setq sslist(subst '(40 . 0) (assoc 40 sslist) sslist))
" R l5 g( p, d- }3 S4 S( _0 C' Z (setq sslist(subst '(41 . 0) (assoc 41 sslist) sslist))2 G/ i9 w: a W/ N/ F
(setq sslist(subst '(43 . 0) (assoc 43 sslist) sslist))
8 O( b K9 F; E3 r! Y# l8 N8 C (entmod sslist)* ?" w; m4 [1 v* a" p& W8 a
(setq i(1+ i))
8 i: z$ ?9 c- |1 O )
3 t7 t4 J% \* _) m )0 _4 t8 y N& J' Z
)
& V0 Y7 ]- r! O, h( h (princ)
* C8 M+ S" a( Z )) r; J. W* t# J2 S1 C" D
(c:gxk) |
|
发表于 2009-5-8 14:49:40