AngleFromNode Example

AngleFromNode Example

Sub Example_AngleFromNode()

    'This example will find the angle from the node 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 "Angle from node = " & ThisDrawing.Utility.AngleToString(leaderAnchor.AngleFromNode, acDegrees, 4), vbInformation, "Example AngleFromNode"
        Else
            MsgBox "Not anchored to column grid", vbInformation, "Example AngleFromNode"
        End If
    Else
        MsgBox "Not a bubble", vbInformation, "Example AngleFromNode"
    End If
    

End Sub