×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

Drawing file size growing
2

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

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.

RE: Drawing file size growing

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

RE: Drawing file size growing

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

CODE

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


CODE

;;LPURGE.LSP Copyright 1998,2003 HyperPics all rights reserved
;;
;; 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

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"

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources