NorthRotation Example

AEC Auto

NorthRotation Example

Sub Example_NorthRotation()
    
    ' This example returns the NorthRotation setting for the current drawing.
    Dim dbPref As AecArchBaseDatabasePreferences
    Set dbPref = AecArchBaseApplication.ActiveDocument.Preferences
    
    MsgBox "The current value for NorthRotation is: " & dbPref.NorthRotation, _
        vbInformation, "NorthRotation Example"
    
End Sub