如何获得多个图形文件名？

wzh

当我同时打开几个图形文件时，如何得到这几个文件的文件名表？

王咣生

(vl-load-com) (defun c:test ()
(setq AcadObject (vlax-get-acad-object)
AcadDocuments (vlax-get-property AcadObject 'Documents)
) (setq lst '())
(vlax-for each AcadDocuments
(setq lst (append lst (list (vlax-get-property each 'Name))))
)
lst
) 返回当前打开的所有文档名称列表,如: ("Drawing1.dwg" "Drawing2.dwg" "Drawing3.dwg")