Drawing file size growing 2

[planman1]

thread555-123823 The thread mentioned did not seem to answer the original question of why the file size is growing. I have Autocad 2004 and have been working with my drawing files for years and just recently the files sizes are growing. I have even opened a drawing, deleted all that was on the drawing, purged then saved and when I opened the drawing back up and saved again it grew bigger. It is 17Mb in size and grows every time I open it and save it. I can open a new drawing, cut and paste the info out of the large drawing and into the new drawing and it goes back down to 100kb or less. Anyone have any insight.

 

[Exxit]

Hi,

again, did you really delete the layer filter?

http://www.eng-tips.com/viewthread.cfm?qid=94374

Search for empty mtext, text objects, OLE objects...

Lothar

ADT 2004
ACAD 2002

 

[MillR]

I'm not sure if it will work in your case, but with abnormally large files, sometimes the "audit" command will find and delete errors which will - again sometimes - dramatically reduce the file size.

 

[planman1]

I looked at the thread and I am looking for LFD.lsp and the lpurge.lsp but I can't find them. I am trying the super purge but it takes quite a while on the drawing. Anyone know where I can get the above mentioned lisp routines?

 

[CarlB]

LFD was posted in the other thred, I'll repost a version here:

(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))

And found an "lpurge" on the AutoDESK forum:

;;LPURGE.LSP Copyright 1998,2003 HyperPics all rights reserved
;;
;; Author: Lee Ambrosius,
;; HyperPics [URL unfurl="true"]http://www.hyperpics.com[/URL]

;;Updated 6/21/03
;;Version 1.3 Works correctly with R12 - 2004
;;
;;Updated 8/15/98
;;Version 1.2 Only Works for R12, R13 & R14
;;
;;Last purge command you will ever need
;;This Lisp routine is in replacement or in addition to
;;the standard PURGE Command. This command will automatically
;;purge everything for you.
;;Place this in your ACAD.Lsp routine or in it's own file.
;;Once it's loaded just type LPURGE.

(prompt "\nEnter LPURGE or LP to run routine.")
(terpri)

(defun c:LPURGE (/ VR TYP CMD EXIT)
(initget 1 "Blocks, Dimstyles, LAyers, LTypes, SHapes, Styles, Mlinestyles,
All")
(setq TYP (getkword "\nPurge unused
Blocks/Dimstyles/LAyers/LTypes/SHapes/STyles/Mlinestyles/All: "))
(setq VR (getvar "ACADVER"))
(setq VR (substr VR 1 2))
(if (or (= VR "12")(= VR "13"))
(progn
(setq EXIT "FALSE")
(while (= EXIT "FALSE")
(command "._PURGE" TYP)
(setq EXIT "TRUE")
(while (not (zerop (getvar "CMDACTIVE")))
(command "Y")
(setq EXIT "FALSE")
)
)
(princ)
)
(progn
(setq EXIT "FALSE")
(while (= EXIT "FALSE")
(command "._PURGE" TYP "*" "Y")
(setq EXIT "TRUE")
(while (not (zerop (getvar "CMDACTIVE")))
(command "Y")
(setq EXIT "FALSE")
)
)
(princ)
)
)
(princ)
(prompt "\nLast Purge complete.")
)
(princ)

;; Also a type-in command for LPURGE
(defun c:LP ()
(c:LPURGE)
(princ)
)
(princ)
;-----------------LPURGE.Lsp------------------------ -------------

 

[borgunit]

Sometimes doing a WBLOCK of the file will do wonders. The caveat is that you cannot write out both model and layout space ents at the same time.

http://mechcad-insider.blogspot.com/

"The fear of the Lord is the beginning of wisdom"

 

[VMichl]

You can Wblock both "spaces" at the same time - see e.g.:

http://www.cadforum.cz/cadforum_en/qaID.asp?tip=4968

For DWG file size problems see also:

http://www.cadforum.cz/cadforum_en/qaID.asp?tip=3649

Vladimir Michl,

http://www.xanadu.cz

 

[borgunit]

That is a great tip. Thanks.

http://mechcad-insider.blogspot.com/

"The fear of the Lord is the beginning of wisdom"