(cdr el) (repeat (- a 2) (setq en (cdr (assoc 8 (entget (car el) fl (strcat en , fl) el (cdr el) ) (command layer off * y on (eval fl) ) (princ) (defun c:gz () (setvar cmdecho 0) (promptnselect entities to turn off:) (setq ss (ssget) (if (and ss (sslength...
(command LAYER off * y on (eval FL) )(princ)(DEFUN C:GZ () (setvar cmdecho 0) (promptnSelect entities to turn off:) (setq ss (ssget) (if (and ss (sslength ss) 0) (progn (setq ct 0 len (sslength ss) cl (getvar clayer) (command .layer) (while ( (sslength ss) 0)(...