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