Rotation Example

Rotation Example

Sub Example_Rotation()

'This example shows the rotation referance angle for an AEC Entity

    Dim object As Object
    Dim pt As Variant
    Dim geo As AecGeo

    ThisDrawing.Utility.GetEntity object, pt, "Select AEC Entity:"
    
    If TypeOf object Is AecGeo Then
        Set geo = object
        Dim rotString As String
        rotString = ThisDrawing.Utility.AngleToString(geo.Rotation, acDegrees, 4)
        MsgBox "AEC Entity Rotation is: " & rotString, vbInformation, "Rotation Example"
    Else
        MsgBox "No AEC Entity selected.", vbInformation, "Rotation Example"
    End If

End Sub