How can I explode a special block without a loop?

[Anonymous]

Hello,
I have a drawing with a block "sample". How can I explode this block
"sample"
with vba and without For Each or For Next loop?

This code is NOT correct:

Dim objBlockReference As AcadBlockReference
Dim vntSubEntities As Variant

objBlockReference.Name = "sample"
vntSubEntities = objBlockReference.Explode

Thanks.
Hartmut Callies

[Anonymous]

"Hartmut Callies" wrote in message
news:5410419@discussion.autodesk.com...
Hello,
I have a drawing with a block "sample". How can I explode this block
"sample"
with vba and without For Each or For Next loop?

by using a selection set 🙂
hth
Mark