0 Members and 1 Guest are viewing this topic.
(setq SS1 (ssget "X")); get all entitys(setq Lngth (sslength SS1)); list length(setq Count 0)(while (< Count Lngth)(setq Ent (ssname SS1 Count)); get next item from selection set(if (not (or (eq CLR (cdr (assoc 62 (entget Ent))))(eq CLR (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 (entget Ent)))))))); end or); end not(progn(ssdel Ent SS1); remove from selection set); progn); end if); end while