[求助]：有没有什么函数可以得出当前CAD开了几个文档？

bbo · 发表于 2006-3-3 08:40:14

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

有没有什么函数可以得出当前CAD开了几个文档？

Underway · 发表于 2006-3-3 08:55:20

(defun GetDocsCollection (/ ThisApp colDocs)
  (vl-load-com)
  (setq thisApp (vlax-get-acad-object))
  (setq colDocs (vla-get-documents thisApp))
  (vl-bb-set 'colDocs colDocs)
)

(defun CheckOrCreateDocs (/ colDocs)
  (vl-load-com)
  (if (= colDocs nil)
(if (= (setq colDocs (vl-bb-ref 'colDocs)) nil)
   (GetDocsCollection)
)
  )
)

(defun CountOpenDwgs (/ colDocs)
  (CheckOrCreateDocs)
  (setq colDocs (vl-bb-ref 'colDocs))
  (vla-get-count colDocs)
)

(defun ListOpenDwgs (/ colDocs totOpenDwgs lKounter dwgList)
  (setq totOpenDwgs (CountOpenDwgs))
  (setq colDocs (vl-bb-ref 'colDocs))
  (setq lKounter 0)
  (setq dwgList (list))
  (while (< lKounter totOpenDwgs)
(setq
   dwgList (append
dwgList
(list (vla-get-FullName (vla-item colDocs lKounter)))

      )
)
(setq lKounter (1+ lKounter))
  )
  (setq dwgList dwgList)
)

info: http://www.cadchat.com/forums/lofiversion/index.php/t877.html

bbo · 发表于 2006-3-3 09:18:33

谢谢 Underway

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：有没有什么函数可以得出当前CAD开了几个文档？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子