Explode Blocks

I am writing a new routine that will bind all of the xrefs in the current
drawing and then explode them. I am able to iterate through the blocks
collection and bind all of the xrefs, but I can not figure out how to
explode the blocks after I bind them. Any help would be much appreciated.

Thanks,

Pat

 

Out of curiosity ... WHY?
___

 

I would do it like this.

Dim blk As AcadBlock
Dim oInsert As AcadBlockReference
Dim iCode(1) As Integer
Dim vVal(1) As Variant
Dim ss As AcadSelectionSet

iCode(0) = 0: iCode(1) = 2
vVal(0) = "INSERT"

On Error Resume Next
Set ss = ThisDrawing.SelectionSets.Item("explode_xrefs")
If Err.Number <> 0 Then
Err.Clear
Set ss = ThisDrawing.SelectionSets.Add("explode_xrefs")
End If
On Error GoTo 0

For Each blk In ThisDrawing.Blocks
If blk.IsXRef = True Then
vVal(1) = blk.Name
blk.Bind (True)
ss.Clear
ss.Select acSelectionSetAll, , , iCode, vVal
For Each oInsert In ss
oInsert.Explode
oInsert.Delete
Next oInsert
End If
Next blk

HTH,
Jeff

 

The blocks are standard blocks and standard notes. I have these blocks
xrefed into a template drawing. I am xrefing because I would like the most
up to date block when the drawing is started. I need to bind these and
explode these so that they can be updated per the project.

Thanks,

Pat

 

Hmm, this could be a very handy little routine. Just need to apply a filter
to it, I only want to bind certain xref's. But this has potential for
something I'd like to do in the office.

Thanks Jeff.

 

You're welcome. I'm glas someone can put it to use.

Jeff