Drawing file size growing
Drawing file size growing
(OP)
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.





RE: Drawing file size growing
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
RE: Drawing file size growing
RE: Drawing file size growing
RE: Drawing file size growing
CODE
(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:
CODE
;;
;; Author: Lee Ambrosius,
;; HyperPics http://www.hyperpics.com
;;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------------------------ -------------
RE: Drawing file size growing
http://mechcad-insider.blogspot.com/
"The fear of the Lord is the beginning of wisdom"
RE: Drawing file size growing
ht
For DWG file size problems see also:
ht
Vladimir Michl, www.xanadu.cz
RE: Drawing file size growing
http://mechcad-insider.blogspot.com/
"The fear of the Lord is the beginning of wisdom"