AngularAzimuth Example

AngularAzimuth Example

Sub Example_AngularAzimuth()

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

    Dim dbPref As AecArchBaseDatabasePreferences

    Set dbPref = AecArchBaseApplication.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