AreaPrecision Example

AreaPrecision Example

Sub Example_AreaPrecision()

    ' This example displays the AreaPrecision setting for the current drawing.

    Dim dbPref As AecArchBaseDatabasePreferences

    Set dbPref = AecArchBaseApplication.ActiveDocument.preferences

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

	vbInformation, "AreaPrecision Example"

End Sub