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