VolumnPrecision Example

VolumnPrecision Example

Sub Example_VolumePrecision()

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

    Dim dbPref As AeccDatabasePreferences

    Set dbPref = AeccApplication.ActiveDocument.preferences

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

        vbInformation, "VolumnPrecision Example"

End Sub