ElevationPrecision Example
Sub Example_ElevationPrecision()
' This example returns the ElevationPrecision setting for the current drawing.
Dim dbPref As AecDatabasePreferences
Set dbPref = AecArchBaseApplication.ActiveDocument.Preferences
MsgBox "The current value for ElevationPrecision is: " & dbPref.ElevationPrecision, _
vbInformation, "ElevationPrecision Example"
End Sub