AngularAzimuth Example

Land Auto

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