TheSwamp
CAD Forums => CAD General => Topic started by: Notsober on December 03, 2007, 12:37:33 PM
-
What's wrong here?
I have a dwg that a piping guy did, he came to me asking why the dwg is over 42 megs! I have no idea...?
I deleted everything, purged, OVERKILL'd, saved as (no proxy objects) .dxf, nothing seems to work! Filesize is actually getting BIGGER!! There are still a few layers that I cannot select, see, nor delete.
WHY?
AutoCAD 2004 saving as 2000.
-
Run this (http://www.theswamp.org/index.php?topic=9433.0) and report back.
-
here's the report...
-
Run this (http://www.theswamp.org/index.php?topic=9433.0) and report back.
I think you need to update your routine Michael.
Layouts.Count = 3
Modelspace.Count = 457162
Paperspace.Count = 2
Not getting all the layouts. :wink:
-
That's only part of the report, as it has been truncated because it's so long.
Since it's such a big spew you may have to open your log file.
How do you open your log file?
Assuming logging is enabled open the path that's revealed by this statement (getvar "logfilename").
Premature analysis: A glut of anonymous block definitions which may or may not be nested.
PS: I think you're misinterpreting the report. How many layouts (including modelspace) are there?
-
new (full) report...
-
PS: I think you're misinterpreting the report. How many layouts (including modelspace) are there?
Three.
But doesn't it count how many items are in the layouts? Or does it give you the item count for model space only, and just report how many paper space tabs (layouts) there are? I would think it would give you all the layout names, and the count. But I could be wrong.
-
PS: I think you're misinterpreting the report. How many layouts (including modelspace) are there?
Me, too. Here's what my current drawing shows, while I have 2 PS Layouts I have only accessed the first 1 and it has just 1 PViewport
Blocks.Count = 175
*Model_Space.Count = 2164
*Paper_Space.Count = 2
*Paper_Space0.Count = 0
....snip....
Layouts.Count = 3
...snip....
Modelspace.Count = 2164
Paperspace.Count = 2
-
On a side note:
I didn't think a paper space count would ever be zero. I thought there would always be at least one item per paper space layouts, the main viewport.
Am I wrong?
PS: I think you're misinterpreting the report. How many layouts (including modelspace) are there?
Me, too. Here's what my current drawing shows, while I have 2 PS Layouts I have only accessed the first 1 and it has just 1 PViewport
Blocks.Count = 175
*Model_Space.Count = 2164
*Paper_Space.Count = 2
*Paper_Space0.Count = 0
....snip....
Layouts.Count = 3
...snip....
Modelspace.Count = 2164
Paperspace.Count = 2
-
hey, this is about me here! LoL.
concentrate on my report, please?
we really need to move on with this dwg, but we can't until we figure out why it's 42 megs!! It should only be about 1MB.
-
I've seen some large files that had a bunch of layer filters from older versions of Autocad like 2002 and before where it just keeps adding and adding. But never anything over like 10-15mb and that's with 10k+ layer filters. I always try that since purge won't check that. Especially if I know the person I'm getting the file from is using an older version of Autocad.
But sounds like your issue may be something else.
-
I've been hearing about layer filters. We don't use them here at my office, but if there were a fat chance of that being the problem, I don't find any layer filters to delete.
I basically have a blank dwg (black background, with nothing *visible* to select) that's 42 megs and growing!
-
How tough would it be to start with a CLEAN title block and paste all into the dwg little by little to discover what is sooo large?
craigr
-
How tough would it be to start with a CLEAN title block and paste all into the dwg little by little to discover what is sooo large?
craigr
I think this is where the piper went wrong. He forgets to use our company standard of the proper "cut & paste" procedure, where he would eliminate all the 'tag-alongs'.
I just want to be able to help him out right now. He has an older machine, so a 42mb dwg is killing him. When I open it, it does take longer than normal to load.
-
I've been hearing about layer filters. We don't use them here at my office, but if there were a fat chance of that being the problem, I don't find any layer filters to delete.
I basically have a blank dwg (black background, with nothing *visible* to select) that's 42 megs and growing!
So you see nothing in model space?
You have a ton of stuff in model space
Modelspace.Count = 457162
-
In my opinion Robert there is nothing bloated about the drawing per se.
Let's start with a simple point. Without an extension dictionary or xdata, a point requires about 63 bytes of storage space (entity type, coordinates, layering info, color etc).
Your drawing sports 457162 entities in modelspace.
Using a nominal 63 bytes per, that yields a drawing close to 27.5 MB (disk image will be bigger), so the 42 MB is reasonable assuming the majority of entities in the drawing are more complex than points.
Having said that, of those 457162 entities it's quite possible many of them are bogus / superfluous -- it's not too much of a reach to assume it could duplicated / superfluous instances of some of those 478 anonymous block definitions. Please note that the number beside the block name in that report identifies the number of entities defining the block, not the block instance count.
What does this statement (sslength (ssget "x" '((0 . "insert")(2 . "`*U*")))) return?
-
I've been hearing about layer filters. We don't use them here at my office, but if there were a fat chance of that being the problem, I don't find any layer filters to delete.
I basically have a blank dwg (black background, with nothing *visible* to select) that's 42 megs and growing!
So you see nothing in model space?
You have a ton of stuff in model space
Modelspace.Count = 457162
I literally selected everything and erased it, purged it, saved it, then reopened it before I ran COUNTS. So to answer your question, yes I see NOTHING in modelspace and nothing in both paperspace layouts. There are still 6 layers left in the dwg that I cannot get rid of. So that tells me there are hidden objects that I don't know how to "appear" or at least reveal themselves.
-
In the Layers Dialog, set the layer filter status to "Show All Layers", then:
Thaw all layers
Turn all layers ON
Then erase all
Then Purge
I know it sounds easy, but I'm thinking you just may be missing these steps.
-
In my opinion Robert there is nothing bloated about the drawing per se.
Let's start with a simple point. Without an extension dictionary or xdata, a point requires about 63 bytes of storage space (entity type, coordinates, layering info, color etc).
Your drawing sports 457162 entities in modelspace.
Using a nominal 63 bytes per, that yields a drawing close to 27.5 MB (disk image will be bigger), so the 42 MB is reasonable assuming the majority of entities in the drawing are more complex than points.
Having said that, of those 457162 entities it's quite possible many of them are bogus / superfluous -- it's not too much of a reach to assume it could duplicated / superfluous instances of some of those 478 anonymous block definitions. Please note that the number beside the block name in that report identifies the number of entities defining the block, not the block instance count.
What does this statement (sslength (ssget "x" '((0 . "insert")(2 . "`*U*")))) return?
returns: ; error: bad argument type: lselsetp nil
-
In the Layers Dialog, set the layer filter status to "Show All Layers", then:
Thaw all layers
Turn all layers ON
Then erase all
Then Purge
I know it sounds easy, but I'm thinking you just may be missing these steps.
I cannot DELETE what AutoCAD says is still in use!
-
Check the xref, and image manager's to see if there are unreferenced images/xref's?
-
Does this show you anything
(vlax-for lo (vla-get-Layouts (vla-get-Activedocument (vlax-get-Acad-Object)))
(vlax-for obj (vla-get-Block lo)
(vla-put-Visible obj :vlax-true)
)
)
This should make everything visible in the drawing that has been turned invisible.
-
Does this show you anything
(vlax-for lo (vla-get-Layouts (vla-get-Activedocument (vlax-get-Acad-Object)))
(vlax-for obj (vla-get-Block lo)
(vla-put-Visible obj :vlax-true)
)
)
This should make everything visible in the drawing that has been turned invisible.
returns a 'nil'
-
Check the xref, and image manager's to see if there are unreferenced images/xref's?
NOBODY in my office knows how to use xref. And we certainly don't use images.
But no, there aren't any xrefs nor any images in the dwg.
-
Does this show you anything
(vlax-for lo (vla-get-Layouts (vla-get-Activedocument (vlax-get-Acad-Object)))
(vlax-for obj (vla-get-Block lo)
(vla-put-Visible obj :vlax-true)
)
)
This should make everything visible in the drawing that has been turned invisible.
returns a 'nil'
As it should, but did anything show up in model space? If not, then maybe a regen.
-
Does this show you anything
(vlax-for lo (vla-get-Layouts (vla-get-Activedocument (vlax-get-Acad-Object)))
(vlax-for obj (vla-get-Block lo)
(vla-put-Visible obj :vlax-true)
)
)
This should make everything visible in the drawing that has been turned invisible.
returns a 'nil'
As it should, but did anything show up in model space? If not, then maybe a regen.
no, nothing showed up. Regen didn't do anything either except think too long.
-
Are there any zero length lines or text in there? (sorry if this has already been asked)
-
Are there any zero length lines or text in there? (sorry if this has already been asked)
I don't know. How would I check for that?
-
Very interesting.
Just to be clear. You purged the drawing ad infinitum, ran the counts report, and then subsequently tried that lisp statement and it bombed?
It suggests the anonymous block definitions are referenced yet there are no anonymous block instances. Like I mentioned earlier, could be a nesting issue.
Aside from the visibility issue (Tim, to be truly effective you need to perform same on every entity in every block definition to absolutely ensure / force visibility) you can also force qtext to force display of text / attribute entities that sport no content (i.e., empty string). I remember diagnosing that very sick instrumentation drawings about a decade ago that were bloated. Qtext revealed approximately 70000 empty text entities.
Try qtext [enter] on [enter] regenall [enter] zoom [enter] extents [enter].
Poof, "OMG, it's full of stars!"
There's other maladies like zero length lines et al ... I'm intrigued Robert, care to send me a copy of the drawing? Results as confidential as you want.
I've got about 15 minutes before my wife gets home and the honey dos start.
cad labs at g mail dot com
-
oh, and there are 3 dwgs like this now... he just informed me. Dwg files that are entirely too large. Never do we have dwgs larger than 3mb!
-
Afterthought, 42MB is going to be too big to email, even if zipped me thinks. Do you have winzip? You could partition it into 10MB chucks and send each separately.
/thinking out loud
-
Are there any zero length lines or text in there? (sorry if this has already been asked)
I don't know. How would I check for that?
Theres a lisp at the swamp.... I'll try to find it.
-
What is the size of the newly created drawing when using this?
(command ".-wblock"
(strcat (getvar "dwgprefix") (getvar "dwgname")"-NEW")
"*"
)
-
What does this return
(defun c:LoItemCount (/ ObjType ObjList tempList)
(vlax-for lo (vla-get-Layouts (vla-get-Activedocument (vlax-get-Acad-Object)))
(setq ObjList nil)
(vlax-for obj (vla-get-Block lo)
(setq ObjType (vla-get-ObjectName obj))
(if (setq tempList (assoc ObjType ObjList))
(setq ObjList (subst (cons (car tempList) (1+ (cdr tempList))) tempList ObjList))
(setq ObjList (cons (cons ObjType 1) ObjList))
)
)
(prompt (strcat "\n Count for layout: " (vla-get-Name lo)))
(foreach lst ObjList
(prompt (strcat "\n Object type [Amount]: " (car lst) " [ " (itoa (cdr lst)) " ]"))
)
)
(princ)
)
I'm very intrigued as well.
<snip> ..
(Tim, to be truly effective you need to perform same on every entity in every block definition to absolutely ensure / force visibility)
.. <snip>
True.
Edit: Update code to run correctly.
-
I've found this posting to be helpful in similar situations...(courtesy of rkmcswain)
http://rkmcswain.blogspot.com/2007/11/drawings-larger-than-they-should-be.html (http://rkmcswain.blogspot.com/2007/11/drawings-larger-than-they-should-be.html)
-
What's the report if you paste this to the command line in the afflicted drawing (forgive me it's a bit crude)?
(progn
(defun _AnalyzeThis ( this / _IndexThisEx _IndexThis _Main )
(defun _IndexThisEx ( this / objectname pair )
;; index is a lexical global declared in _Main
(setq index
(if
(setq pair
(assoc
(setq objectname
(vlax-get this 'Objectname)
)
index
)
)
(subst
(list
(car pair)
(1+ (cadr pair))
)
pair
index
)
(cons
(list objectname 1)
index
)
)
)
;; not strictly needed but
;; return the index to the caller
)
(defun _IndexThis ( this )
;; _IndexThis is a wrapper for IndexEx.
;; don't get it? Too bad, so sad.
(_IndexThisEx this)
;; this is not a robust example of programming,
;; but in the interests of time and ascii economy
;; I'm using a simplistic recursive sledge hammer
;; technique
(vl-catch-all-apply
'(lambda ( )
;; force an error if the 'this'
;; object is not a collection
(vlax-get this 'Count)
;; let 'em know we haven't died
(princ
(strcat
"Indexing "
(vl-prin1-to-string this)
"\n"
)
)
;; 'kay, let's roll
(vlax-for object this
(_IndexThis object)
)
)
)
)
(defun _Main ( this / index )
;; variable 'index' is a lexical global accessed
;; by lexical global function _IndexEx.
;(_IndexThis (vlax-get this 'Blocks))
(_IndexThis (vlax-get this 'ModelSpace))
(princ "\nOrdered by object type:\n")
(mapcar 'print
(vl-sort
index
'(lambda ( a b ) (< (car a) (car b)))
)
)
(princ "\n\nOrdered by object count (descending):\n")
(mapcar 'print
(vl-sort
index
'(lambda ( a b ) (> (cadr a) (cadr b)))
)
)
(princ "\n\nTotal object count: ")
(princ (apply '+ (mapcar 'cadr index)))
(princ)
)
(_Main this)
)
(defun C:AnalyzeThis ( )
(_AnalyzeThis (vla-get-activedocument (vlax-get-acad-object)))
(princ)
)
(c:AnalyzeThis)
)
-
I've found this posting to be helpful in similar situations...(courtesy of rkmcswain)
http://rkmcswain.blogspot.com/2007/11/drawings-larger-than-they-should-be.html (http://rkmcswain.blogspot.com/2007/11/drawings-larger-than-they-should-be.html)
Good tip but I can can tell you with certainty it's not a layer filters or registered applications problem.
-
Try qtext [enter] on [enter] regenall [enter] zoom [enter] extents [enter].
Poof, "OMG, it's full of stars!"
Michael, you're a genius!
The dwg turned out to be a UNIVERSE!!!
-
If they are empty text strings, you can use this to select them
(setq ss (ssget "x" '((0 . "MTEXT,TEXT") (1 . ", ")))); Jason Piercey
-
Be mindful there's also the potential for other "hidden" gems, like wipeouts, 3dfaces etc. That "AnalyzeThis" code should be very revealing me thinks.
Also, keep in mind qtext will reveal blank text, attdefs and attributes (the latter hosted in blocks).
-
so far we've got it down to 13MB, it's still large. But it's better than 42MB!
so how do I find other "hidden" gems to rid them?
-
Did you run the AnalyzeThis code snip?
Edit: Would be interesting to see the results generated from the 42MB version, rather than the 13MB version.
-
What's the report if you paste this to the command line in the afflicted drawing (forgive me it's a bit crude)?
(progn
(defun _AnalyzeThis ( this / _IndexThisEx _IndexThis _Main )
(defun _IndexThisEx ( this / objectname pair )
;; index is a lexical global declared in _Main
(setq index
(if
(setq pair
(assoc
(setq objectname
(vlax-get this 'Objectname)
)
index
)
)
(subst
(list
(car pair)
(1+ (cadr pair))
)
pair
index
)
(cons
(list objectname 1)
index
)
)
)
;; not strictly needed but
;; return the index to the caller
)
(defun _IndexThis ( this )
;; _IndexThis is a wrapper for IndexEx.
;; don't get it? Too bad, so sad.
(_IndexThisEx this)
;; this is not a robust example of programming,
;; but in the interests of time and ascii economy
;; I'm using a simplistic recursive sledge hammer
;; technique
(vl-catch-all-apply
'(lambda ( )
;; force an error if the 'this'
;; object is not a collection
(vlax-get this 'Count)
;; let 'em know we haven't died
(princ
(strcat
"Indexing "
(vl-prin1-to-string this)
"\n"
)
)
;; 'kay, let's roll
(vlax-for object this
(_IndexThis object)
)
)
)
)
(defun _Main ( this / index )
;; variable 'index' is a lexical global accessed
;; by lexical global function _IndexEx.
;(_IndexThis (vlax-get this 'Blocks))
(_IndexThis (vlax-get this 'ModelSpace))
(princ "\nOrdered by object type:\n")
(mapcar 'print
(vl-sort
index
'(lambda ( a b ) (< (car a) (car b)))
)
)
(princ "\n\nOrdered by object count (descending):\n")
(mapcar 'print
(vl-sort
index
'(lambda ( a b ) (> (cadr a) (cadr b)))
)
)
(princ "\n\nTotal object count: ")
(princ (apply '+ (mapcar 'cadr index)))
(princ)
)
(_Main this)
)
(defun C:AnalyzeThis ( )
(_AnalyzeThis (vla-get-activedocument (vlax-get-acad-object)))
(princ)
)
(c:AnalyzeThis)
)
the report:
Indexing #<VLA-OBJECT IAcadModelSpace 010d5e04>
Ordered by object type:
("AcDbArc" 20)
("AcDbBlockReference" 1)
("AcDbBlockTableRecord" 1)
("AcDbCircle" 4)
("AcDbHatch" 1)
("AcDbLine" 172)
("AcDbMText" 4)
("AcDbPolyline" 8)
("AcDbSolid" 7)
("AcDbText" 1)
Ordered by object count (descending):
("AcDbLine" 172)
("AcDbArc" 20)
("AcDbPolyline" 8)
("AcDbSolid" 7)
("AcDbCircle" 4)
("AcDbMText" 4)
("AcDbBlockReference" 1)
("AcDbText" 1)
("AcDbHatch" 1)
("AcDbBlockTableRecord" 1)
Total object count: 219
-
Hmmm, that looks wrong, and by magnitudes. Revisiting code ...
-
(defun _AnalyzeThis...
Got a giggle from that. I would have never thought of qtext. Nice MP!
-
DGC -- Didn't know what to call it, lol.
Robert -- what's the name of that sole block instance and what's in it?
-
Did you run the AnalyzeThis code snip?
Edit: Would be interesting to see the results generated from the 42MB version, rather than the 13MB version.
here's the report from 42mb file:
Indexing #<VLA-OBJECT IAcadModelSpace 0ebe4f24>
Ordered by object type:
("AcDbArc" 90)
("AcDbBlockReference" 9)
("AcDbBlockTableRecord" 1)
("AcDbCircle" 19)
("AcDbHatch" 1)
("AcDbLine" 416)
("AcDbMText" 12)
("AcDbPolyline" 11)
("AcDbRotatedDimension" 3)
("AcDbSolid" 7)
("AcDbSpline" 6)
("AcDbText" 457211)
Ordered by object count (descending):
("AcDbText" 457211)
("AcDbLine" 416)
("AcDbArc" 90)
("AcDbCircle" 19)
("AcDbMText" 12)
("AcDbPolyline" 11)
("AcDbBlockReference" 9)
("AcDbSolid" 7)
("AcDbSpline" 6)
("AcDbRotatedDimension" 3)
("AcDbHatch" 1)
("AcDbBlockTableRecord" 1)
Total object count: 457786
-
DGC -- Didn't know what to call it, lol.
Robert -- what's the name of that sole block instance and what's in it?
probably just an attributed header, i.e. %%U PLAN %%U
or a Preliminary Not For Construction stamp.
-
On a side note....
The lines with zero length thing - I have coworkers that would say 'What's the big deal?' 'As long as you can't see them or print them they are no problem'.
I'm guessing that when cleaning their house, the just shove stuff under the bed, couch, chair, etc....
craigr
-
On a side note....
The lines with zero length thing - I have coworkers that would say 'What's the big deal?' 'As long as you can't see them or print them they are no problem'.
I'm guessing that when cleaning their house, the just shove stuff under the bed, couch, chair, etc....
craigr
hahaha... I agree.
Alot of these guys here in my office really don't know much about acad. I don't either, but I know a hell of alot more than they do.
-
probably just an attributed header, i.e. %%U PLAN %%U
or a Preliminary Not For Construction stamp.
Ummm, if it has nested, upon nested anonymous blocks it could be hiding more obesity.
Honey do begins ... off to get winter tires for wifey's car ... Michael can play no more.
:cry:
-
probably just an attributed header, i.e. %%U PLAN %%U
or a Preliminary Not For Construction stamp.
Ummm, if it has nested, upon nested anonymous blocks it could be hiding more obesity.
Honey do begins ... off to get winter tires for wifey's car ... Michael can play no more.
:cry:
thanks for all your help thus far!!!
-
something that deletes all "null text"
http://www.theswamp.org/index.php?topic=881.msg11693#msg11693
something that deletes zero length lines
http://www.theswamp.org/index.php?topic=7739.0
(might be worth experimenting on a "copy" of the drawing to see what, if anything, it does)
-
How about "Ctrl+A" to select all objects? This will even select blank entities. You can then use the properties box to see a list of what they are and how many of them. You can even erase them.
-
thanks for all your help thus far!!!
You're most welcome - truly my pleasure.
:lol:
-
Another tip which could help with self-diagnosing is to use quick select. If it lists an object type, there are some in your drawing. You can select them even if they are empty, and delete away.
-
bit late in getting on the bus i know....ddptype and change your points from a (virtually invisible dot) to a cross???
-
I want to thank everyone again for all your help.
qtext is what helped solve my problem with 2004, AND simply opening the same dwg with a newer version of acad, i.e. 2007, saving it and then closing it drastically reduced the dwg size!!
-
I too have noticed that saving dwgs to a newer rev decreases the file size.
I wonder how they do that.
craigr
-
but stupid weird thing is, although we have in our office 2004 and some machines now have 2007, we all have to save our dwg formats as ACAD2000/LT2000 format.