AngularAzimuth Example
Sub Example_AngularAzimuth()
' This example returns the AngularAzimuth setting for the current drawing.
Dim dbPref As AeccDatabasePreferences
Set dbPref = AeccApplication.ActiveDocument.Preferences
' Convert the constant to a string.
Dim Style As String
Dim AngAzm As Long
' Determine AngularAzimuth setting
AngAzm = dbPref.AngularAzimuth
Select Case AngAzm
Case 0
Style = "bearings."
Case 1
Style = "north azimuths."
Case 2
Style = "south azimuths."
End Select
MsgBox "The current value for AngularAzimuth is " & Style, vbInformation, "AngularAzimuth Example"
End Sub