0 Members and 1 Guest are viewing this topic.
(defun C:CNN ()(setq ENT (car (entsel "\npick layer color for function ")))(setq E1 (entget ENT))(setq LT (cdr (assoc 8 E1)))(setq ITEM (assoc 62 (tblsearch "Layer" LT)));(setq ss (ssget "x" (list (cons 62 ITEM))))(princ)