0 Members and 1 Guest are viewing this topic.
(defun c:test () (setq ss (ssget)) (setq i (sslength ss)) (while (and (setq ename (ssname ss (setq i (1- i)))) (> (sslength ss) 150) ) (ssdel ename ss) ) (sslength ss))