Topic: BURST everything until you can't burst no more!!

[Guest]

We've got some drawings from a client who binds everything when they send us the updated backgrounds (not a big deal).  However, after they bind everything, their backgrounds consist of nested blocks within nested blocks within nested blocks, wash, rinse, repeat.  Does anyone have any kind of "SUPER" burst command that will burst (not explode) blocks until all blocks are bursted??!?  We're wasting a TON of time trying to extract what we need from their drawings.

[T.Willey]

See if this works for you.

Code: [Select]

(defun c:Test (/ Sel BlkObj CurSpace MyExplodeBlock)

(defun MyExplodeBlock (BlkObj CurSpace / tempTextObj tempObjList)

(if (vl-catch-all-error-p (setq tempObjList (vl-catch-all-apply 'vlax-invoke (list BlkObj "Explode"))))
(prompt
(strcat
"\n Could not explode block "
(vla-get-Name BlkObj)
" inserted at location "
(vl-princ-to-string
(vlax-get BlkObj 'InsertionPOint)
)
)
)
(progn
(foreach obj tempObjList
(cond
((= (vla-get-ObjectName obj) "AcDbAttributeDefinition")
(vla-Delete obj)
)
((= (vla-get-ObjectName obj) "AcDbBlockReference")
(MyExplodeBlock obj CurSpace)
)
(t
(foreach prop '( "Layer"
"Color"
"Linetype"
"LinetypeScale"
)
(vlax-put obj prop (vlax-get BlkObj prop))
)
)
)
)
(if (equal (vla-get-HasAttributes BlkObj) :vlax-true)
(foreach Att (append (vlax-invoke BlkObj 'GetAttributes) (vlax-invoke BlkObj 'GetConstantAttributes))
(setq tempTextObj
(vlax-invoke
CurSpace
'AddText
(vlax-get Att 'TextString)
(vlax-get Att 'InsertionPoint)
(vlax-get Att 'Height)
)
)
(foreach prop '( "Alignment"
"Backward"
"Color"
"Layer"
"Linetype"
"LinetypeScale"
"Lineweight"
"Normal"
"ObliqueAngle"
"Rotation"
"ScaleFactor"
"StyleName"
"TextAlignmentPoint"
;"TextGenerationFlag"
"UpsideDown"
"Visible"
)
(vlax-put tempTextObj prop (vlax-get Att prop))
)
)
)
(vla-Delete BlkObj)
)
)
)

(setq CurSpace
(vlax-get
(vla-get-ActiveDocument (vlax-get-Acad-Object))
(if (equal (getvar "cvport") 1)
"PaperSpace"
"ModelSpace"
)
)
)
(if
(and
(setq Sel (entsel "\n Select block to explode until no mas blocks: "))
(setq BlkObj (vlax-ename->vla-object (car Sel)))
(= (vla-get-ObjectName BlkObj) "AcDbBlockReference")
)
(MyExplodeBlock BlkObj CurSpace)
)
(princ)
)


[CADaver]

Wanna flatten it while you're at it??



sorry couldn't resist...

[Guest]

Wanna flatten it while you're at it??



sorry couldn't resist...

Seeing as how I'm referencing a building floor plan (well, actually, it's 3 different levels due to the grade changes) into a site plan for coordination purposes only, I probably will!  I don't need a 3D floor plan to see where the mechanical spaces are.

[Krushert]

Wanna flatten it while you're at it??



sorry couldn't resist...

Seeing as how I'm referencing a building floor plan (well, actually, it's 3 different levels due to the grade changes) into a site plan for coordination purposes only, I probably will!  I don't need a 3D floor plan to see where the mechanical spaces are.

Jeeze while you are at why don't explode the dimensions,  you don't need dimesions to see the mechanical spaces.   

[Guest]

I'm actually going to delete the dimensions.

These drawings are a mess.... references bound inside of references bound inside of references....  I just want to strip them down, make them as small as possible and use only the information that I need.  Is that too much to ask??!? 

Here's just a little snippet of what I have to deal with for layers.  Notice the number of layers.  We don't have that many for our site plan!!

[Krushert]

I'm actually going to delete the dimensions.

These drawings are a mess.... references bound inside of references bound inside of references....  I just want to strip them down, make them as small as possible and use only the information that I need.  Is that too much to ask??!? 

Here's just a little snippet of what I have to deal with for layers.  Notice the number of layers.  We don't have that many for our site plan!!

Good it not my current project. 
My building elevations are set up that way.  102 instances of 38 xrefs and what is not counted is the nested xrefs within the 38 xrefs.  But I don't bind.  I etransmit it as is and let you guys do what ever you want to it.

[T.Willey]

Did the code I provided work?

[Josh Nieman]

Wanna flatten it while you're at it??



sorry couldn't resist...

 

[Guest]

Did the code I provided work?

What little bit I tried so far, yes.

Thanks.

[T.Willey]

Did the code I provided work?

What little bit I tried so far, yes.

Thanks.

Cool.  You're welcome.

[LE]

Matt;

See if this works also....


http://www.theswamp.org/index.php?topic=18383.msg224681#msg224681

[Guest]

Matt;

See if this works also....


http://www.theswamp.org/index.php?topic=18383.msg224681#msg224681

Nice!  Very fast.  I'm keeping this one!