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