AngularPrecision Example

AngularPrecision Example

Sub Example_AngularPrecision()

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

    Dim dbPref As AecArchBaseDatabasePreferences

    Set dbPref = AecArchBaseApplication.ActiveDocument.Preferences

    MsgBox "The current value for AngularPrecision is " & dbPref.AngularPrecision, _

        vbInformation, "AngularPrecision Example"

End Sub