使用ObjectDBX打开文件，需要判断该文件是否已经打开

林霄云

复制非打开文件的特定块至本图 等自定义操作时，都是默认该文件未打开。当该文件打开时，会产生错误。因此在逻辑上应该先判断该文件是否已经打开。如果已经打开，则不再需要按objectdbx的方式进行vla-open，直接在打开的docs里取得该doc对象即可。

1. (if (not (hasopened DwgName))
   
2.   (progn
   
3.   (setq dbxDoc (vla-GetInterfaceObject *acad* (GetObjectDBXVer)));
   
4.   (vla-open dbxDoc DwgName)
   
5.   );progn
   
6.   (progn
   
7.   (setq dbxDoc (vla-item *docs* (strcat (vl-filename-base DwgName)(vl-filename-extension DwgName))))
   
8.   )
   
9.   );if 根据文件是否打开判断，采用合适的doc对象

(if (not (hasopened DwgName))<br />   (progn<br />   (setq dbxDoc (vla-GetInterfaceObject *acad* (GetObjectDBXVer)));<br />   (vla-open dbxDoc DwgName)<br />   );progn<br />   (progn <br />   (setq dbxDoc (vla-item *docs* (strcat (vl-filename-base DwgName)(vl-filename-extension DwgName))))<br />   )<br />   );if 根据文件是否打开判断，采用合适的doc对象

其中判断文件是否打开自定义函数如下：

1. (defun hasopened( dwgname / *ACAD* *DOC* *DOCS*  flag doc)
   
2.   ;返回dwgname是否已经打开
   
3.   ;designed by 林霄云 2019年6月5日
   
4.   (setq        *ACAD* (vlax-get-acad-object)
   
5.         ;*DOC*  (vla-get-ActiveDocument *acad*)
   
6.         *DOCS* (vla-get-Documents *ACAD*)
   
7.     flag nil
   
8.     dwgname (findfile dwgname)
   
9.   )
   
10.   
    
11.     (vlax-for  doc   *DOCS*
    
12.        (if (= dwgname (vla-get-fullname doc))
    
13.            (setq flag T)
    
14.           ) ;if
    
15.     );vlax-for
    
16.   flag
    
17. );defun

(defun hasopened( dwgname / *ACAD* *DOC* *DOCS*  flag doc)<br />   ;返回dwgname是否已经打开<br />   ;designed by 林霄云 2019年6月5日<br />   (setq        *ACAD* (vlax-get-acad-object)<br />         ;*DOC*  (vla-get-ActiveDocument *acad*)<br />         *DOCS* (vla-get-Documents *ACAD*)<br />     flag nil<br />     dwgname (findfile dwgname)<br />   )<br />   <br />     (vlax-for  doc   *DOCS*<br />        (if (= dwgname (vla-get-fullname doc)) <br />            (setq flag T)<br />           ) ;if<br />     );vlax-for<br />   flag<br /> );defun

masterlong

不一定是当前CAD打开的
还有一种可能是设为只读文件

USER2128

dos_openp

不想多说

来晚了，来晚了，林大大出山了……

taoyi0727

GetObjectDBXVer  能发下这个子函数吗?

林霄云

taoyi0727 发表于 2019-6-21 17:17
GetObjectDBXVer  能发下这个子函数吗?

1. ;;154.1 [功能] 获取ObjectDBX版本字符串
   
2. ;;用于操作非打开文件
   
3. (defun GetObjectDBXVer (/ VERSION)
   
4.   (if (>= (setq VERSION (atoi (getvar "acadver"))) 16)
   
5.     (strcat "ObjectDBX.AxDbDocument." (itoa VERSION))
   
6.   )
   
7. )

;;154.1 [功能] 获取ObjectDBX版本字符串<br /> ;;用于操作非打开文件<br /> (defun GetObjectDBXVer (/ VERSION)<br />   (if (>= (setq VERSION (atoi (getvar "acadver"))) 16)<br />     (strcat "ObjectDBX.AxDbDocument." (itoa VERSION))<br />   )<br /> )

林霄云

为何不能正常显示代码块？

taoyi0727

林霄云 发表于 2019-6-25 15:09

谢谢

你看到你这个自己改了一下
;;说明:判断指定CAD文件是否已经打开
;;参数:dwgname:路径+文件名+后缀 [str]
;;返回:t or nil
;;用法T-judge-dwg-file-state "E:\\桌面\\硬包.dwg")
(defun T-judge-dwg-file-state (dwgname / docs flag)
        (setq DOCS (vla-get-Documents (vlax-get-acad-object)));所有CAD文件档集合
        (vlax-for doc DOCS
                (if (= (strcase dwgname) (strcase (vla-get-fullname doc)));获取文档的路径+名称
                        (setq flag T)
                )
        )
        flag
)

林霄云

林霄云 发表于 2019-6-25 15:10
为何不能正常显示代码块？

代码如果自动识别，增加了一个多余的引号，即[code="lisp]；手动选择lisp语言，为[code=lisp]，能正确显示。