Preferences Example

AEC Auto

previous page next page

Preferences Example 

Sub Example_Preferences()
    
    ' 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

previous page start next page