CoordinatePrecision Example

CoordinatePrecision Example

Sub Example_CoordinatePrecision()

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

    Dim dbPref As AecArchBaseDatabasePreferences

    Set dbPref = AecArchBaseApplication.ActiveDocument.Preferences

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

        vbInformation, "CoordinatePrecision Example"

End Sub