Mission: Get the list of all DBX opened drawings

[Ahankhah]

Hi all,

 

as you know there is a way to get a list of all opened drawings.

 

(defun Get:OpenDrawings ( / *dwg* *acdocs*)
(vlax-for <doc> (MT:vla-get-Documents)
 (if (eq "" (setq *dwg* (vla-get-fullname <doc>))) (setq *dwg* (vla-get-name <doc>))) 
 (setq *acdocs* (cons (cons (strcase *dwg*) <doc>) *acdocs*))
)
(reverse *acdocs*)
)

(Get:OpenDrawings)
returns an assoc list of all opened drawings' ((name1 . vla-object1) (name2 . vla-object2) ... (nameN . vla-objectN))

 

Is there a way to get all opened drawings in current session as ObjectDBX?