How i can sweep an BlockReference and find entities without explode

[MarceloRocha777]

How i can sweep an BlockReference and find entities without explode, really I've one point in the block and i want find your position, but I not want use dynamic block and nor use of the base point.

I have code with AcadBlock , I need it with acadBlockReference, will be that somebody can help me?



Function GetEntityInBlockRef(ByRef varPick As Variant, BlockEntity As AcadBlock) As Boolean
Dim elem As Object
Dim Blkref As AcadBlockReference
Dim BlK As AcadBlock
On Error GoTo Err_GetEntityInBlockRef

For I = 0 To BlK.count
Set elem = BlK.Item(I)
If StrComp(elem.EntityName, "AcDbBlockReference", 1) = 0 Then
Set Blkref = elem
varPick(0) = Blkref.InsertionPoint(0)
varPick(1) = Blkref.InsertionPoint(1)
varPick(2) = Blkref.InsertionPoint(2)
GetEntityInBlockRef = True
End If
Debug.Print elem.EntityName
Next I
Exit Function
Err_GetEntityInBlockRef:
GetEntityInBlockRef = False
Exit Function
End Function