level 1
( (lambda ( nop blocks killitwithfire )
(vlax-for b blocks
(and
(eq :vlax-false (vla-get-islayout b))
(eq :vlax-false (vla-get-isxref b))
(eq :vlax-true (vla-get-hasextensiondictionary b))
(killitwithfire (vla-getextensiondictionary b))
)
)
(princ)
)
(vl-load-com)
(vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
(lambda ( x / e )
(foreach p (entget (vlax-vla-object->ename x))
(and
(eq 360 (car p))
(eq 'ename (type (setq e (cdr p))))
(wcmatch (cdr (assoc 0 (entget e))) "*PURGEPREVENTER*")
(vl-catch-all-apply 'entdel (list e))
)
)
)
)
Then -exporttoautocad.
Crash, no crash?