VolumePrecision Example

VolumePrecision Example

Sub Example_VolumePrecision()

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

    Dim dbPref As AecArchBaseDatabasePreferences

    Set dbPref = AecArchBaseApplication.ActiveDocument.preferences

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

        vbInformation, "VolumePrecision Example"

End Sub