Documents Example
Sub Example_Documents()
' This example returns the number of drawings loaded
' in the current session.
Dim docs As AeccDocuments
Set docs = AeccApplication.Documents
MsgBox "The number of loaded drawings is: " & docs.Count, _
vbInformation, "Documents Example"
End Sub