[求助]：请问在程序中怎样知道一个DWG文件已被打开

杨少

请问在程序中怎样知道一个DWG文件已被打开

秋枫

在一个lisp程序中，总是有DWG文件打开的。

杨少

对不起,我得意思是怎样知道 "d:\1.dwg" 文件已被打开.(可能现在 AutoCAD 已打开多个文件)

LUCAS

;;;usage:(isdocopen "1.dwg");不含路径

2. 
   
3. (defun ISDOCOPEN (NAME / TEMP)
   
4.   (setq NAME (strcase NAME))
   
5.   ;; only need to do this once
   
6.   (vl-catch-all-apply
   
7.     '(lambda ()
   
8.        (vlax-for DOC (vla-get-documents (vlax-get-acad-object))
   
9.          (if (eq NAME (strcase (vla-get-name DOC)))
   
10.            (progn (setq TEMP DOC)
    
11.                   (exit)  ;; stop iterating
    
12.            )
    
13.          )
    
14.        )
    
15.      )
    
16.   )
    
17.   TEMP
    
18.   ;; returns the document object if open, or NIL
    
19. )
    

<br /> (defun ISDOCOPEN (NAME / TEMP)<br />   (setq NAME (strcase NAME))<br />   ;; only need to do this once<br />   (vl-catch-all-apply<br />     '(lambda ()<br />        (vlax-for DOC (vla-get-documents (vlax-get-acad-object))<br />          (if (eq NAME (strcase (vla-get-name DOC)))<br />            (progn (setq TEMP DOC)<br />                   (exit)  ;; stop iterating<br />            )<br />          )<br />        )<br />      )<br />   )<br />   TEMP<br />   ;; returns the document object if open, or NIL<br /> )<br />

XDSoft

还有个方法，你试试程序修改那个DWG的名字，打开的肯定返回修改不成功的。

杨少

Thanks

秋枫

最初由 LUCAS 发布
[B];;;usage:(isdocopen "1.dwg");不含路径

[CODE]
(defun ISDOCOPEN (NAME / TEMP)
  (setq NAME (strcase NAME))
  ;; only need to do this once
  (vl-catch-all-apply
    '(lambda ()
       (vlax-for ... [/B]

vl-catch-all-apply的这一招不错。收下了。原来这可以屏蔽exit