Topic: returned as a AcadBlockReference

[Humbertogo]

Is there any possibility to explode AcadBlockReference.. do some changes
in all entry and returned as a AcadBlockReference  back

Thanks

[Keith™]

Well, I suppose it is possible ... I would just have to look at how it needed to be handled to do what you are needing. If you are simply wanting to redefine a block reference, you should probably redefine the block itself in the block table. You can enumerate the individual entities in the block and modify as needed.

[Dnereb]

You don't need to do explode the block to do the damage.
It's possible to alter a block just like in refedit.

[Humbertogo]

You don't need to do explode the block to do the damage.
It's possible to alter a block just like in refedit.

Pls explame more about

[Bryco]

Hi Humbertogo
Make a block with a circle and run this

Sub BlockEdit()

    Dim oBlocks As AcadBlocks
    Dim oBlock As AcadBlock
    Dim oBref As AcadBlockReference
    Dim Ent As AcadEntity
    Dim V, BlockEnt As AcadEntity
    Set oBlocks = ThisDrawing.Blocks
    ThisDrawing.Utility.GetEntity Ent, V, "Pick a blockreference:"
    If TypeOf Ent Is AcadBlockReference Then
        Set oBlock = oBlocks(Ent.Name)
        For Each BlockEnt In oBlock
            If TypeOf BlockEnt Is AcadCircle Then
                BlockEnt.radius = BlockEnt.radius * 2
                BlockEnt.Color = acRed
                Ent.Update
                Exit For
            End If
        Next BlockEnt
   
    End If

End Sub


I remember wanting to explode blocks to find the arcs and the lines, if you need that I have some stuff

[Jürg Menzi]

I remember wanting to explode blocks to find the arcs and the lines, if you need that I have some stuff

Remember that you can't explode NUS blocks with the Explode method since A2k4...

[Bryco]

Ouch didn't know that. Now another function to make.

[Humbertogo]

Thanks again