Hi,
In my opinion, that would be the most senseless approach,
why delete circles, lines and blocks?
That's why I suggested better alternatives,
although deactivation is certainly not the best.
Here, to find the linetypes in question.
Please reopen your file, load the code, run LTLIST,
press [F2] right click - copy protocoll.
Share [ctrl]+[v] in your reply
QSELECT or FILTER or STANDARDS will help to change ltypes.
In AutoCADs PURGE dialog, switch to non-purgable items,
you can see where a linetype is used.
(defun c:LTList (/ LT STYLE)
(setq LT (tblnext "LTYPE" T))
(while LT
(terpri)
(foreach ep (entget(tblobjname "LTYPE" (cdr(assoc 2 LT))))
(cond
((= 2 (car ep))
(terpri)(princ (cdr ep)))
((= 340 (car ep))
(setq style (entget(cdr ep)))
(princ (strcat "\n -->" (if (= "" (cdr(assoc 2 style))) "(unnamed)" (cdr(assoc 2 style))) "/" (cdr(assoc 3 style))))
(if (and
(not(wcmatch (strcase(cdr(assoc 3 style))) "*.TTF"))
(not(findfile(strcat (cdr(assoc 3 style)) (if (wcmatch (strcase(cdr(assoc 3 style))) "*.SHX") "" ".shx"))))
)
(princ " (missing!!!)")
))
)
)
(setq LT (tblnext "LTYPE"))
)
(princ)
)