; Delete in all layouts, www.cadstudio.cz 2019

(defun C:DelInLo ( / ss)
 (vl-load-com)
 (load "SSX.LSP" "Express Tools not installed")
 (princ "\nSelect objects to delete in all layouts, by a filter or example")
 (if (setq ss (ssx))
  (foreach x (mapcar 'cadr (ssnamex ss))(vla-delete (vlax-ename->vla-object x)))
 )
 (princ)
)

(princ "\nDelInLo command loaded.")(princ)