LeaderExtension1 Example

LeaderExtension1 Example

Sub Example_LeaderExtension1()

    'This example will find the 1st Leader Extension for a bubble attached to a
    ' column grid
    
    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
            MsgBox "Leader Extension1 = " & leaderAnchor.LeaderExtension1
        Else
            MsgBox "Not anchored to column grid", vbInformation, "Example LeaderExtension1"
        End If
    Else
        MsgBox "Not a bubble", vbInformation, "Example LeaderExtension1"
    End If

End Sub