ElevationPrecision Example

ElevationPrecision Example

Sub Example_ElevationPrecision()

    ' This example returns the ElevationPrecision setting for the current drawing.

    Dim dbPref As AeccDatabasePreferences

    Set dbPref = AeccApplication.ActiveDocument.Preferences

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

        vbInformation, "ElevationPrecision Example"

End Sub