0 Members and 1 Guest are viewing this topic.
The file has a lot of linetypes (41552) from a MicroStation file. Deleting the dictionary holding these linetypes then allows those anonymous blocks to be purged and the file goes to ~460kb. I used this lisp to remove the linetypes:Code - C#: [Select](defun c:deldgnltstyle ( / dicts dict) (setq dicts (vlax-get (vla-get-activedocument (vlax-get-acad-object)) 'dictionaries ) ) (setq dict (vlax-invoke dicts 'item "ACAD_DGNLINESTYLECOMP")) (princ (strcat "\nDGN Linetypes before: " (itoa (vla-get-count dict)) ) ) (vla-delete dict) (princ "\nACAD_DGNLINESTYLECOMP Dictionary removed!") (princ))
And old school wblocking over itself