Dwg. size HUGE.....help

[SteelDet]

Using AutoCad 2000 and have drafting dwg's sized at 1600kb, even after purging EVERYTHING..........lol. Usually they're around 300-400kb in size. I've looked for a lisp program and can't seem to find one that works.

Thanks,
Betty

[CarlB]

It could be an "unpurgeable" block that isn't being used. But quite possibly is one of many things that don't purge - Layer Filters, Registered Application, Layer States, Unnamed Groups. These can be purged with "cdgpurge". An older version can still be downloaded at http://www.caddepot.com/dcd1/Autodesk/Utilities/index-8.html
A likely culprit is Layer Filters. You just need a little lisp to get those. try this:

(princ "\nType LFD to start")
(defun C:LFD ()
(vl-Load-Com)
(vl-Catch-All-Apply
'(lambda ()
(vla-Remove (vla-GetExtensionDictionary
(vla-Get-Layers
(vla-Get-ActiveDocument
(vlax-Get-Acad-Object))))
"ACAD_LAYERFILTERS")))
(princ "\nAll layer filters have been deleted.")
(princ))

[SteelDet]

Thank you so much!!!
cdgpurge worked!!!
I looked half the afternoon trying to find a fix.......lol.

[Barry Clark]

hehe. I was just about to recommend that about the layer filters. It is something how much room that takes up.

[hyposmurf]

Strange that routine Ive run in some of my exitsing drawings and it says layer filters deleted and then I check the file size.Its increased in size! :?