|
|
- 8 s# U* z; X% p0 v. k
- (defun Loff (lyr)
9 x( j" c2 R5 z$ q* V - (if (= (getvar "Clayer") lyr)+ T9 g: `: ]+ R; l4 _9 B4 W8 z% I
- (command "layer" "off" lyr "y" "")8 x ^- i0 J) r, `% T! B, n
- (command "layer" "off" lyr "")9 I2 L2 g) V* S+ I H
- )
1 A4 Q. N! t$ U8 ` - )
3 b/ W1 L; J8 }3 t w; M
/ }! N2 O0 b3 ~6 s$ l- (defun C:test ()" ~( Y, H" x9 o; \4 j$ ~, e, n( W
- (setq ee (entsel))* K L3 G6 }' C6 t* [7 l# e
- (Loff (cdr (assoc 8 (entget (car ee))))), H. c+ i6 D! Q2 D& S2 G$ P4 k
- )* o' q5 K, R/ e- `: o
|
|
发表于 2012-6-17 10:43
楼主