(if (setq d (ssget "x" '((0 . "TEXT,MTEXT,LEADER,DIMENSION,HATCH"))))
(command "._erase" d "")
)
(defun c:deletelayouts (/)
(vlax-map-collection
(vla-get-layouts
(vla-get-ActiveDocument
(vlax-get-Acad-Object)
)
)
'(lambda (x)
(vl-catch-all-apply 'vla-delete (list x))
)
)
(princ)
)