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