Topic: Are there anymore tools to clean a drawing of junk?

[Krushert]

The other thing  I noticed with the blocks is that I can only see and touch 3 blocks with the name fork_truck but the counts is stating that there are 94.  Am I reading info from the counts correctly?

T.Willey
you routine came back with 7 instances for the for truck block but Quick Select confrim my 3. 
 
A "I don't know" shrug with shoulder pads

[Matt__W]

The other thing  I noticed with the blocks is that I can only see and touch 3 blocks with the name fork_truck but the counts is stating that there are 94.  Am I reading info from the counts correctly?

T.Willey
you routine came back with 7 instances for the for truck block but Quick Select confrim my 3. 
 
A "I don't know" shrug with shoulder pads

Shoulder pads??  Seriously??   

[T.Willey]

The other thing  I noticed with the blocks is that I can only see and touch 3 blocks with the name fork_truck but the counts is stating that there are 94.  Am I reading info from the counts correctly?

T.Willey
you routine came back with 7 instances for the for truck block but Quick Select confrim my 3. 
 
A "I don't know" shrug with shoulder pads

Did you erase any in the current drawing session?  I know that if you erase one, then block record still shows that it is there, but it really isn't in the drawing.  It is stored for undo reasons.  That would be a simple check to do if you need it.

Edit:  It looks like the block Michael was worried about are inserted more than once.  Which could be a reason for the high file size.

("A$C460E5761" . 4)
("A$C33915B18" . 5)

 A$C33915B18.Count = 800
 A$C460E5761.Count = 513

[Krushert]

Did you erase any in the current drawing session?  I know that if you erase one, then block record still shows that it is there, but it really isn't in the drawing.  It is stored for undo reasons.  That would be a simple check to do if you need it.

Edit:  It looks like the block Michael was worried about are inserted more than once.  Which could be a reason for the high file size.

("A$C460E5761" . 4)
("A$C33915B18" . 5)

 A$C33915B18.Count = 800
 A$C460E5761.Count = 513

I closed the file and reopen then ran the CountBlockInserts and this is what I came up with.  Very little change all.  No change to Mike's blocks.  My fork truck drop by one though I did not erase any of those (would love too).

Command: CountBlockInserts

("FILLER CIP SKID" . 5)
("s802" . 4)
("s802 CIP MOdule" . 4)
("cip return" . 4)
("2.5 xw shuttle valve" . 4)
("21MPR-1xH" . 5)
("W45-100" . 5)
("13MHHMCB-1H Clamp" . 4)
("S14AWF-1 BPE Ferrule Standard-IBS" . 5)
("A$C15162F42" . 6)
("2.5 x 2.5 WE TEE" .
("tank foundation" . 5)
("s-802 tank" . 5)
("A$C72CA4FE4" . 5)
("A$C353D2893" . 5)
("S14AWF-2 BPE Ferrule Standard-ISS" . 5)
("7.5HPXP" . 4)
("WK44-1-BW" . 4)
("S2S-1H BPE 90 Elbow BW" . 6)
("Scissor Lift" . 7)
("Bulk Bag conveyor" . 7)
("vulk bag with pallet" . 11)
("tank" . 4)
("REDUCER_ECC_DOWN" . 5)
("ICES-Val_BUTTERFLY" . 5)
("BRIX" . 4)
("AT1M1PLA$0$MP-009" . 4)
("AT1M1PLA$0$PI-314" .
("AT1M1PLA$0$SBV" . 23)
("AT1M1PLA$0$MP-010" . 6)
("AT1M1PLA$0$LOOP" . 5)
("AT1M1PLA$0$MV-009" . 4)
("AT1M1PLA$0$MP-004" . 5)
("A$C5C1B2361" . 11)
("A$C737226D9" . 11)
("A$C0613688A" . 4)
("A$C460E5761" . 4)
("A$C33915B18" . 5)
("A$C15A444BD" . 19)
("Fork_Truck" . 6)
("RECTANG" . 4)
("spanner" . 4)

[MP]

Hey Krush, can you send the drawing to mp at caddlabs dot com? I've got 15 minutes left at lunch, I'd like to examine the patient if it's alright with you.

[Krushert]

Hey Krush, can you send the drawing to mp at caddlabs dot com? I've got 15 minutes left at lunch, I'd like to examine the patient if it's alright with you.

Sorry but in a red line meeting.  Coming at ya if still want to mess with.  Its a 9meg zipped file. 

[MP]

Got it, thanks. I'll look at it as soon as possible.

- Michael.

[T.Willey]

This one should give you the correct amount if you have erased a block in the current drawing ( at least it did here ).

Code: [Select]

(defun c:CountBlockInserts (/ EntData tempEnt tempData InsCntList)
   
    (while (setq EntData (tblnext "block" (not EntData)))
        (setq tempEnt (tblobjname "block" (cdr (assoc 2 EntData))))
        (setq tempData (entget tempEnt))
        (setq tempData (entget (cdr (assoc 330 tempData))))
        (if (setq tempData (member '(102 . "{BLKREFS")  tempData))
            (progn
                (setq tempData (cdr (reverse (cdr tempData))))
                (setq tempData (vl-remove-if 'vlax-erased-p (mapcar 'cdr tempData)))
                (setq InsCntList (cons (cons (cdr (assoc 2 EntData)) (length tempData)) InsCntList))
            )
        )
    )
    (foreach i InsCntList
        (print i)
    )
    (princ)
)


[Krushert]

This one should give you the correct amount if you have erased a block in the current drawing ( at least it did here ).

I got a

unable to get ObjectID: 1

 

[Serge J. Gianolla]

Is there anything that I can throw at?

WBlock?!

[Krushert]

Is there anything that I can throw at?

WBlock?!

Ah the good ole stand by.  Forget about that one. 
I will give it a try tomorrow when I get into work.
Thanks

[M-dub]

Is there anything that I can throw at?

WBlock?!

Ah the good ole stand by.  Forget about that one. 
I will give it a try tomorrow when I get into work.
Thanks

Just don't use a crossing window when you pick your objects or you'll ( likely ) be back in the same boat!

[Krushert]

Is there anything that I can throw at?

WBlock?!

Ah the good ole stand by.  Forget about that one. 
I will give it a try tomorrow when I get into work.
Thanks

I decided that I would try copy and pasting to new file and Wblock out objects to a new file.  Wblock reduced the file size the most as assumed.

[Krushert]

Now here is an interesting point.  I open the three files, ran a purge and then saved.  The "pasted" file went down in size but the other two went up a bit. 

[M-dub]

I'm assuming that these drawings are too busy to select each component individually...


Another thing I've done in the past was to wblock out sections of the drawing at a time.  Usually in quarters.  Draw a line from midpoint to midpoint of the border, both horizontally and vertically.  Then wblock everything inside each of the four sections and see if you can find the "problem".