AngularDisplayFormat Example

AngularDisplayFormat Example

Sub Example_AngularDisplayFormat()

    ' This example returns the AngularDisplayFormat setting for the current drawing.

    Dim dbPref As AeccDatabasePreferences

    Set dbPref = AeccApplication.ActiveDocument.Preferences

    ' Convert the constant to a string.

    Dim strUnits As String

    If dbPref.AngularDisplayFormat = 1 Then

        strUnits = "degrees."

    Else

        strUnits = "grads."

    End If

    MsgBox "The current value for AngularDisplayFormat is " & strUnits, _

        vbInformation, "AngularDisplayFormat Example"

End Sub