LinearPrecision Example

LinearPrecision Example

Sub Example_LinearPrecision()

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

    Dim dbPref As AecArchBaseDatabasePreferences

    Set dbPref = AecArchBaseApplication.ActiveDocument.Preferences

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

	vbInformation, "LinearPrecision Example"

End Sub