VBA - Get the names of all AutoCAD files open

[katto01]

Hello,

 

Is there a way to get the names of all AutoCAD files open using VBA?

 

Thank you

[ammobake]

Hmmm.  Is this for a network wide application across multiple users?

[katto01]

no just for the local machine

[BIGAL]

Lisp version close for VBA (setq acDocs (vla-get-documents (vlax-get-acad-object)))

 

(vlax-dump-object  (vla-get-documents (vlax-get-acad-object)))
; IAcadDocuments: The collection of all AutoCAD drawings open in the current session
; Property values:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00007ff747b21e30>
;   Count (RO) = 2

[katto01]

thanks. sorry i need VBA. need to incorporate this into a larger VBA code

 

[BIGAL]

Yeah understand but I dont work in VBA often, convert (setq acDocs (vla-get-documents (vlax-get-acad-object))) to VBA google etc

 

Something like AcadApplication.Documents

[PeterPan9720]

Sub DocOpened()
a = AcadApplication.Documents.Count
b = AcadApplication.Documents.Item(1).Name
c = AcadApplication.Documents.Item(2).Name
d = AcadApplication.Documents.Item(3).Name

End Sub
 

Edited July 1, 2021 by PeterPan9720