|
|
- 8 g: E# y8 t& v" q
- (defun Loff (lyr)5 x0 p r$ e( [1 N. k% Q
- (if (= (getvar "Clayer") lyr)
7 V9 ?/ d1 I4 o2 F - (command "layer" "off" lyr "y" "")
9 u1 V+ i( C- F$ f/ `+ O3 k - (command "layer" "off" lyr "")
+ n& G V n7 `( [/ F, N - )
# q6 M, ^4 {+ k0 T1 p/ f - )) K6 @- F; L# C) e+ }( y9 G; }
; a+ N2 b" `+ g" ]. ^, F- (defun C:test ()
# r; N/ x6 G1 s! G - (setq ee (entsel))8 n" Y/ y% d& X; f, U# u- I
- (Loff (cdr (assoc 8 (entget (car ee)))))* g9 X; p* B* |: X8 k+ D3 a
- )5 U7 o' v$ S) H# W ]" S# r, `
|
|
发表于 2012-6-17 10:43
楼主