VLISP批量打开图纸操作遇到问题

yixinexin

下面代码，运行到(setq doc (vla-open (vla-get-documents APP) DWGNAME2))报错；求大神指导

1. (arxload "acetutil.arx" NIL) ;;需要相应版本的 ET（Express Tools）工具支持
   
2. (vl-load-com)
   
3. (defun c:GText (/ OLDECHO APP DWGNAME2 path num dwgname OLDLSP doc ent
   
4. );;主程序定义
   
5. (setq OLDECHO (getvar "cmdecho"));;保存系统变量值
   
6. (setvar "cmdecho" 0)
   
7. (setq path
   
8. (strcat
   
9. (vl-string-right-trim
   
10. "\\"
    
11. (strcase (acet-ui-pickdir
    
12. "选择目录"
    
13. (vl-string-right-trim "\\" (getvar "dwgprefix")) "批量修改")))"\\"))
    
14. (setq OLDLSP (getvar "ACADLSPASDOC"));;保存系统变量值
    
15. (setvar "acadlspasdoc" 0)
    
16. (setq dwgname (vl-directory-files path "*.DWG"))
    
17. (setq num 0)
    
18. (if (/= dwgname NIL)
    
19. (progn
    
20. (setq APP (vlax-get-acad-object));获得 Acad 对象
    
21. (repeat (length dwgname)
    
22. (setq DWGNAME2 (strcase (strcat path (nth num dwgname))))
    
23. (setq doc (vla-open (vla-get-documents APP) DWGNAME2));打开图形并获得其对象
    
24.   
    
25. ;;运行到上步程序报错
    
26.   
    
27. ;;以下用省略号代表具体处理程序，用户可在此处添加自己所需的处理的代码。
    
28.   
    
29. ;; ,start
    
30. 
    
31. ;;;end
    
32.   
    
33. 
    
34. (vla-close doc :vlax-false);关闭图形(不检查是否保存)
    
35. (setq num (1+ num))
    
36. )
    
37. (vlax-release-object doc)
    
38. (vlax-release-object APP)
    
39. )
    
40. (prompt "\n 所选目录中未有任何图形!!")
    
41. )
    
42. (setvar "acadlspasdoc" OLDLSP);;恢复系统变量值
    
43. (setvar "cmdecho" OLDECHO) ;;恢复系统变量值
    
44. (princ)
    
45. )
    

(arxload "acetutil.arx" NIL) ;;需要相应版本的 ET（Express Tools）<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">工具</a>支持<br /> (vl-load-com)<br /> (defun c:GText (/ OLDECHO APP DWGNAME2 path num dwgname OLDLSP doc ent<br /> );;主程序定义<br /> (setq OLDECHO (getvar "cmdecho"));;保存系统变量值<br /> (setvar "cmdecho" 0)<br /> (setq path<br /> (strcat<br /> (vl-string-right-trim<br /> "\\"<br /> (strcase (acet-ui-pickdir<br /> "选择目录"<br /> (vl-string-right-trim "\\" (getvar "dwgprefix")) "批量修改")))"\\"))<br /> (setq OLDLSP (getvar "ACADLSPASDOC"));;保存系统变量值<br /> (setvar "acadlspasdoc" 0)<br /> (setq dwgname (vl-directory-files path "*.DWG"))<br /> (setq num 0)<br /> (if (/= dwgname NIL)<br /> (progn<br /> (setq APP (vlax-get-acad-object));获得 Acad 对象<br /> (repeat (length dwgname)<br /> (setq DWGNAME2 (strcase (strcat path (nth num dwgname))))<br /> (setq doc (vla-open (vla-get-documents APP) DWGNAME2));打开图形并获得其对象<br />   <br /> ;;运行到上步程序报错<br />   <br /> ;;以下用省略号代表具体处理程序，用户可在此处添加自己所需的处理的代码。<br />   <br /> ;; ,start<br /> <br /> ;;;end<br />   <br /> <br /> (vla-close doc :vlax-false);关闭图形(不检查是否保存)<br /> (setq num (1+ num))<br /> )<br /> (vlax-release-object doc)<br /> (vlax-release-object APP)<br /> )<br /> (prompt "\n 所选目录中未有任何图形!!")<br /> )<br /> (setvar "acadlspasdoc" OLDLSP);;恢复系统变量值<br /> (setvar "cmdecho" OLDECHO) ;;恢复系统变量值<br /> (princ)<br /> )<br />

yixinexin

顶一下！来大神啊

nzl1116

yixinexin 发表于 2015-3-18 18:09
顶一下！来大神啊

用文档集合对象添加文档的方法。

yixinexin

nzl1116 发表于 2015-3-18 18:54
用文档集合对象添加文档的方法。

初学，能具体点吗？或者给我一个类似的链接，我自学一下。谢谢啊

llsheng_73

测试支行到(setq doc (vla-open (vla-get-documents APP) DWGNAME2))没有出错，成功打开了文件
不排除因为形文件支持或者图形文件版本等原因引起打开文件出错的可能

lijiao

我的理解是这样的，lisp只能在当前文档中执行（这句话不知对否，我一直没法验证），当你打开一个文档后，刚打开的文档就成了当前文档，于是后面的程序就不再执行，要等待原来的文档被激活成当前文档后，才继续执行后面程序。
建议用VBA中的open方法实现文档的打开和关闭。

nzl1116

yixinexin 发表于 2015-3-19 09:00
初学，能具体点吗？或者给我一个类似的链接，我自学一下。谢谢啊

是我理解错了，这可以用open方法，但是出错的地方不是(setq doc ...)
而是(vla-close ...)
原因是，当你调用open方法时，ACAD打开一个文档需要时间，当一个文档还没有完全打开时，变量doc还不是文档对象，而是nil；而程序运行的时间要比打开一个文档的时间要少的多，所以在调用open方法和close方法之间你还要加上空操作。

yixinexin

nzl1116 发表于 2015-3-19 18:24
是我理解错了，这可以用open方法，但是出错的地方不是(setq doc ...)
而是(vla-close ...)
原因是，当你 ...

哦，我试下