Offset Example

Offset Example

Sub Example_Offset()

    'This example will find the offset of the MVBlock tag to the end of the leader.
    
    Dim obj As AcadObject
    Dim bubble As AecMVBlockRef
    Dim anchor As AecAnchor
    Dim leaderAnchor As AecAnchorLeadEntToNode
    Dim pt As Variant
    
    ThisDrawing.Utility.GetEntity obj, pt, "Select bubble"
    If TypeOf obj Is AecMVBlockRef Then
        Set bubble = obj
        Set anchor = obj.GetAnchor
        If TypeOf anchor Is AecAnchorLeadEntToNode Then
            Set leaderAnchor = anchor
            Dim offset As Variant
            Dim offsetString As String
            
            offset = leaderAnchor.offset
            offsetString = offset(0) & ", " & offset(1) & ", " & offset(2)
            MsgBox "Offset from node = " & offsetString, vbInformation, "Offset Example"
        Else
            MsgBox "Not anchored to column grid", vbInformation, "Offset Example"
        End If
    Else
        MsgBox "Not a bubble", vbInformation, "Offset Example"
    End If
    

End Sub