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