AngularDisplayFormat Example

AngularDisplayFormat Example

Sub Example_AngularDisplayFormat()
    
    ' This example returns the AngularDisplayFormat setting for the current drawing.

    Dim dbPref As AecArchBaseDatabasePreferences
    Set dbPref = AecArchBaseApplication.ActiveDocument.Preferences
    
    ' Convert the constant to a string.
    Dim strUnits As String
    Select Case dbPref.AngularDisplayFormat
        Case 0
            strUnits = "Degrees."
        Case 1
            strUnits = "Degrees/Minutes/Seconds"
        Case 2
            strUnits = "Grads."
        Case 3
            strUnits = "Radians"
        Case 4
            strUnits = "Surveyor"
    End Select
    
    MsgBox "The current value for AngularDisplayFormat is " & strUnits, _
        vbInformation, "AngularDisplayFormat Example"
    
End Sub