|
|
- ( \& r0 d6 N- }9 s8 ~
- (defun Loff (lyr)
: R, K% q4 h' [1 M' X9 v- V - (if (= (getvar "Clayer") lyr)
; V5 _6 s1 r: S: ^( c9 A% @. S - (command "layer" "off" lyr "y" "")
) ?% ]8 D3 f) f0 g9 u7 U5 K3 p - (command "layer" "off" lyr "")2 ]* w/ E. v( U5 m, |
- )/ o, D8 V# n2 @! C3 m
- )
7 p5 I, e% T$ p9 d, U$ x* T& S - * P4 \* Z( t+ b2 g( B
- (defun C:test ()
3 _6 u' m7 }/ v7 J Y - (setq ee (entsel))
V# L) S! a& _7 d7 a3 p6 | - (Loff (cdr (assoc 8 (entget (car ee)))))9 e0 C5 |8 a; }; T
- )$ `# B5 h0 P6 }, H' e2 p( W2 }2 e
|
|
发表于 2012-6-17 10:43
楼主