VolumeSuffix Example

AEC Auto

VolumeSuffix Example

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