Documents Example

Land Auto

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