Drawings Example
Sub Example_Drawings()
' This example returns the number of Drawings
' in the current project.
Dim proj As AeccProject
Set proj = AeccApplication.ActiveProject
MsgBox "The number of Drawings in the current Project is: " & proj.Drawings.Count _
, vbInformation, "Drawings Example"
End Sub