Explode a block after insert in the drawing

[zsolti_sdd]

hy 

how can i explode the block, in my case "a4" ,after i insert in the drawing.

.......

Dim explodedObjects As Variant
Dim explodable As Boolean

Dim origin(0 To 2) As Double 

origin(0) = -268.671: origin(1) = -1409.2798: origin(2) = 0  'inseration coordinates
p1 = origin 

ThisDrawing.ModelSpace.InsertBlock p1, "a4", 1, 1, 1, 0, 0  ' insert the block

but the explode code ?????

[Alfred.NESWADBA]

Hi,

look to that method >>>click<<< which shows the function to get the (exploded) entities of a blockreference.

HTH, - alfred -