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