- (setq AcadObject (vlax-get-acad-object)
- AcadDocument (vla-get-ActiveDocument AcadObject)
- mSpace (vla-get-ModelSpace AcadDocument)
- )
-
- (setq msg "\r \n")
-
- ;;; 处理整个文件集合,并取出已加载的
-
- ;;; 文件的名称
-
- (setq DocumentSel (vla-get-Documents AcadObject))
-
- (VLAX-FOR Document DocumentSel
-
- (setq msg (STRCAT msg (vla-get-Name Document) "\r \n"))
- )
- ;Get the document collection object from the application
- ;and active the 2nd item in the collection:
- ;从应用程序获取文档集合对象
- ;并激活集合中的第二个项目:
- (setq docs (vla-get-documents (vlax-get-acad-object)))
- (vla-activate (vla-item docs 1))
部分代码示意 |