VolumnSuffix Example

Land Auto

VolumnSuffix Example

Sub Example_VolumeSuffix()
    
    ' This example displays the VolumeSuffix setting for the current drawing.
    Dim dbPref As AeccDatabasePreferences
    Set dbPref = AeccApplication.ActiveDocument.preferences
    
    MsgBox "The current value for VolumeSuffix is " & dbPref.VolumeSuffix, _
        vbInformation, "VolumnSuffix Example"
    
End Sub