[编程交流] 如何删除所有实体

(repeat (sslength ss)
   (setq obj (ssname ss 0))
   (entdel obj)
   (ssdel obj ss)
   )

(defun removeByType(typ)
 (setq ss (ssget "X" (list(cons 0 typ))))
 (if ss (command "_.Erase" ss ""))
)

if nothing is selected
   remove all typ from database
   filter typ and delete 

(defun c:test ( / ent )
   (if (setq ent (car (entsel "\nSelect type of object to delete <all>: ")))
       (eraseselection  (list "_X" (list (assoc 0 (entget ent)))))
       (eraseselection '("_X"))
   )
   (princ)
)
(defun eraseselection ( arg / idx sel )
   (if (setq sel (apply 'ssget arg))
       (repeat (setq idx (sslength sel)) (entdel (ssname sel (setq idx (1- idx)))))
   )
)

(defun c:test ( / ent )
   (eraseselection
       (cons "_X"
           (if (setq ent (car (entsel "\nSelect type of object to delete <all>: ")))
               (list (list (assoc 0 (entget ent))))
           )
       )
   )
   (princ)
)
(defun eraseselection ( arg / idx sel )
   (if (setq sel (apply 'ssget arg))
       (repeat (setq idx (sslength sel)) (entdel (ssname sel (setq idx (1- idx)))))
   )
)