|
|
/ w; V3 t8 x8 A# R- (defun Loff (lyr)
' T; v# [1 A! Y0 }( x# i! Y - (if (= (getvar "Clayer") lyr)
$ F8 W$ b# u' G- D6 N - (command "layer" "off" lyr "y" "")
2 B( a1 ?3 s9 d: o - (command "layer" "off" lyr "")+ p8 Q! y% w0 o+ h; n
- )2 G* C9 H. z0 d2 ^- a% l3 l4 z
- )% z- h- d# |6 `
- + w2 l+ h7 G0 p' y4 [' g
- (defun C:test ()9 j7 G" \5 l0 o) l2 V! P
- (setq ee (entsel))
+ G2 U1 m! e1 B' P" Y - (Loff (cdr (assoc 8 (entget (car ee))))), r. X* o1 ~" G g* Q3 y
- )
7 |9 T9 P x% M$ C& a
|
|
发表于 2012-6-17 10:43
楼主