|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
(defun c:gxk(/ I SS SSLIST)
/ U" ~& R$ c+ v% p, `- { (if (setq ss(ssget "X" '((0 . "LINE,LWPOLYLINE,ARC"))))/ `' |' q5 Y" X: I% w# E
;;; (setq ss(ssget))
6 |8 ]% C4 r$ [6 S6 ]- a (progn) N4 \2 o- g7 W1 h0 {6 i; |/ u5 O
(setq i 0)) t) Z4 Q# F. ]7 e& [& Z6 p. ? s
(repeat (sslength ss)
$ y! E8 V0 M- a; c3 ?9 [ G# Q7 K (setq sslist(entget(ssname ss i)))& |( i' X6 E% I) W
(setq sslist(subst '(40 . 0) (assoc 40 sslist) sslist))& L4 `* }0 J! ?! Q2 ^
(setq sslist(subst '(41 . 0) (assoc 41 sslist) sslist))
' H% X' M2 z& w( U( J1 _1 K& m (setq sslist(subst '(43 . 0) (assoc 43 sslist) sslist))
- ]+ f2 y" L5 ] (entmod sslist)
* l$ C, E9 W) O7 P/ K4 j (setq i(1+ i))) o: ~2 v5 Q: W" K8 t# L: K B
)$ }1 y4 Z- g: ^
)4 U, J' U/ u- m8 f/ d
)% P# a2 A( }1 r2 T# x' [1 R7 {. e T! q9 D
(princ)0 e; S( o( x; J
)
- S7 p1 W( \+ y9 I5 W% k' X: X(c:gxk) |
|
发表于 2009-5-8 14:49:40