VLISP如何获取已打开DWG的列表和关闭某个指定的dwg

masterlong

问题1：
如何获取已打开DWG的列表
问题2：
假设已打开1.dwg 2.dwg 3.dwg
当前活动文件是1.dwg
如何关闭3.dwg

masterlong

;;一个VLISP的批量处理范例
;;从这个范例可以了解VLISP如何批量处理图档
;;虽然速度慢了点,但非常实用
;;By LUCAS(龙龙仔)
;;从文件移除未使用之具名参考                                 
;;                                                           
;;虽配合Expresstools__(acetutil.arx)                        
;;为加速程序执行,程序将设定系统变量ACADLSPASDOC              
;;即<只载入 acad.lsp 至 AutoCAD 执行期所开启的第一个图面>   
;;当然程序结束后,会还原系统变量ACADLSPASDOC
;;                 
;;Usage: (PURGEALL <循环次数>)                                                            
;;Usage: (PURGEALL 5)                                       

(arxload "acetutil.arx" NIL)
(vl-load-com)
(defun PURGEALL(TIMES / HOLDECHO APP DWGNAME PREFIX_DWG NN QQ HOLDLSP WW)
  (setq HOLDECHO (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq PREFIX_DWG
         (strcat
           (strcase (acet-ui-pickdir
                      "选择目录"
                      (vl-string-right-trim "\\" (getvar "dwgprefix"))
                      "移除未使用之具名参考"
                    )
           )
           "\\"
         )
  )
  (setq HOLDLSP (getvar "ACADLSPASDOC"))
  (setvar "acadlspasdoc" 0)
  (setq QQ (vl-directory-files PREFIX_DWG "*.DWG"))
  (setq NN 0)
  (if (/= QQ NIL)
    (progn
      (setq APP (vlax-get-acad-object))
      (repeat (length QQ)
        (setq DWGNAME (strcase (strcat PREFIX_DWG (nth NN QQ))))
        (if (not (vl-catch-all-apply
                   'vla-open
                   (list (vla-get-documents APP) DWGNAME)
                 )
            )
          (progn
            (repeat TIMES (vla-purgeall WW))
            (vla-save WW)
            (prompt (strcat "\n" DWGNAME " <PURGE完成>!!!"))
            (vla-close WW :vlax-false)
          )        )
        (setq NN (1+ NN))
      )
      (vlax-release-object WW)
      (vlax-release-object APP)
    )
    (prompt "\n所选目录中未有任何图档!!!")
  )
  (setvar "acadlspasdoc" HOLDLSP)
  (setvar "cmdecho" HOLDECHO)
  (princ)
)
(princ)

这个程序运行不成功
红色文字中的ww是什么？

xiabin68

支持一下，

masterlong

找到第2贴的原贴了
联接如下
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=4647

利用该程序的思路
算是曲线救国解决了我的问题

不过
有没有办法获取已打开dwg文件的列表
并且指定某个文件关闭呢
我看doslib里也只有"关闭全部"的功能

xiaxiang

masterlong 发表于 2013-1-21 14:42
找到第2贴的原贴了
联接如下
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=4647

有没有办法获取已打开dwg文件的列表

2. (defun Get:OpenDrawings ( / *dwg* *acdocs*)
   
3. (vlax-for <doc>  (vla-get-documents (vlax-get-acad-object))
   
4.   (if (eq "" (setq *dwg* (vla-get-fullname <doc>)))
   
5.   (setq *dwg* (vla-get-name <doc>))
   
6.   )
   
7.   (setq *acdocs* (cons (cons (strcase *dwg*) <doc>) *acdocs*))
   
8. )
   
9. (reverse *acdocs*)
   
10. )
    
11. 
    
12. (Get:OpenDrawings)

(defun Get:OpenDrawings ( / *dwg* *acdocs*)<br /> (vlax-for <doc>  (vla-get-documents (vlax-get-acad-object))<br />   (if (eq "" (setq *dwg* (vla-get-fullname <doc>)))<br />   (setq *dwg* (vla-get-name <doc>))<br />   ) <br />   (setq *acdocs* (cons (cons (strcase *dwg*) <doc>) *acdocs*))<br /> )<br /> (reverse *acdocs*)<br /> )<br /> <br /> (Get:OpenDrawings)

并且指定某个文件关闭

2. 
   
3. 
   
4. ;;dwgName  ->file name "Drawing3.dwg"
   
5. ;;bSave    -> t save
   
6. ;;         ->nil not save
   
7. (defun CloseAndSave ( dwgName bSave / myDocs myDoc)
   
8. (setq myDocs (vla-Get-Documents (vlax-get-acad-object))
   
9.          myDoc (vla-Item myDocs dwgName))
   
10.     (vlax-for i myDocs
    
11.         (if (= (strcase dwgName) (strcase (vla-get-Name i)))
    
12.             (if
    
13.                 (and
    
14.                     bSave
    
15.      myDoc
    
16.                     (equal (vla-get-ReadOnly i) :vlax-false)
    
17.      (equal (vla-get-Active i) :vlax-false)
    
18.                 )
    
19.                 (vla-Close i :vlax-true)
    
20.                 (vla-Close i :vlax-false)
    
21.             )
    
22.         )
    
23.     )
    
24. )
    

<br /> <br /> ;;dwgName  ->file name "Drawing3.dwg"<br /> ;;bSave    -> t save<br /> ;;         ->nil not save<br /> (defun CloseAndSave ( dwgName bSave / myDocs myDoc)<br /> (setq myDocs (vla-Get-Documents (vlax-get-acad-object))<br />          myDoc (vla-Item myDocs dwgName))<br />     (vlax-for i myDocs<br />         (if (= (strcase dwgName) (strcase (vla-get-Name i)))<br />             (if<br />                 (and<br />                     bSave<br />      myDoc<br />                     (equal (vla-get-ReadOnly i) :vlax-false)<br />      (equal (vla-get-Active i) :vlax-false)<br />                 )<br />                 (vla-Close i :vlax-true)<br />                 (vla-Close i :vlax-false)<br />             )<br />         )<br />     )<br /> )<br />

如果需要关闭当前文档，lisp似乎做不到，只有依赖VBA表达式

2. 
   
3. (command "vbastmt" "activedocument.close false")

<br /> (command "vbastmt" "activedocument.close false")

masterlong

非常感谢

lisp关闭当前文档
可以用下面的方式吧
(command "close")

Ccccccc

xiaxiang 发表于 2013-1-21 16:09
如果需要关闭当前文档，lisp似乎做不到，只有依赖VBA表达式

请教，我这样做，为什么不能正确关闭？

;;并且指定某个文件关闭
;;dwgName  ->file name "Drawing3.dwg"
;;bSave    -> t save
;;         ->nil not save
(defun CloseAndSave ( dwgName bSave / myDocs myDoc)
(setq myDocs (vla-Get-Documents (vlax-get-acad-object))
         myDoc (vla-Item myDocs dwgName))
    (vlax-for i myDocs
        (if (= (strcase dwgName) (strcase (vla-get-Name i)))
            (if
                (and
                    bSave
     myDoc
                    (equal (vla-get-ReadOnly i) :vlax-false)
     (equal (vla-get-Active i) :vlax-false)
                )
                (vla-Close i :vlax-true)
                (vla-Close i :vlax-false)
            )
        )
    )
)

(defun TT ( )
(CloseAndSave ("Drawing3.dwg" T))
(princ)  
)

xiaxiang

Ccccccc 发表于 2013-3-11 15:09
请教，我这样做，为什么不能正确关闭？

;;并且指定某个文件关闭

(CloseAndSave ("Drawing3.dwg" T))
------>
(CloseAndSave "Drawing3.dwg" T)