|
|
s4 b h/ x% ]- (defun Loff (lyr). ]7 |; F: N; C7 X) h6 C; z
- (if (= (getvar "Clayer") lyr)
$ ?+ |$ E. Q* V+ O- O A4 T - (command "layer" "off" lyr "y" "")4 I0 F6 _; Y# V. G* h
- (command "layer" "off" lyr "")$ V% L& |4 Z9 v( e- t
- )6 C+ z% I( p1 K y3 f
- )
8 Y- o9 @1 T# M( S( T3 w/ L
/ r, r- l6 _& ^# B% C7 [- (defun C:test ()' c8 |- E, n0 ?4 e; o
- (setq ee (entsel))1 c. o. [/ V( P# X/ p
- (Loff (cdr (assoc 8 (entget (car ee)))))
, x; D1 x0 a0 [! p* c9 u - )
]% E+ g e/ ~& b
|
|
发表于 2012-6-17 10:43
楼主