|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
(defun c:gxk(/ I SS SSLIST)
' d' E* }' I( L7 T- t3 M (if (setq ss(ssget "X" '((0 . "LINE,LWPOLYLINE,ARC"))))3 Q8 X- c7 P8 Z/ S; B
;;; (setq ss(ssget))
# B0 T1 L% F& T- t3 f) F (progn
1 F0 s: I- j* U (setq i 0)' u8 M' M9 d. N; S; q e7 N! L
(repeat (sslength ss)
) Y' C, q7 u8 g) N$ M! k) S7 m H (setq sslist(entget(ssname ss i)))
9 `* P4 G" D/ Q( l' X (setq sslist(subst '(40 . 0) (assoc 40 sslist) sslist))
4 f* k5 ^ w2 m j+ x+ R& w0 r (setq sslist(subst '(41 . 0) (assoc 41 sslist) sslist))0 p& h' s' ^4 D$ }# c, e, ]& \
(setq sslist(subst '(43 . 0) (assoc 43 sslist) sslist))1 k$ u8 d' E1 K* l. H. T
(entmod sslist)7 G2 z; \* D6 b& L @: ?/ t
(setq i(1+ i))1 w1 ]2 f2 o4 B
): e$ ]9 M5 x7 `' w+ S& c7 q ~- f4 A
)
" ^& U) F2 Q5 { )
2 M7 ^. m3 b4 }$ P (princ)" ?: K8 G/ d" M% u3 B) G$ l
)/ n; D$ W* A/ `1 C: h: U( w* B$ i/ r
(c:gxk) |
|
发表于 2009-5-8 14:49:40