请问如何在CAD2000中用lisp控制dwg文件的打开与关闭啊???

yys790113 · 发表于 2003-8-2 08:38:00

本人在lisp编程时需要经常打开dwg的索引文件, 这个问题在R14中比较好解决, 直接使用
(command "open" "c:\\drawing1.dwg")命令就可以打开一个文件, 但是这个命令在CAD2000以上的多文档环境中不能使用,请问有没有比较好的办法解决啊?
(我想直接在lisp程序中使用, 不另外使用VBA程序)

3kd · 发表于 2003-8-2 13:49:00

(command "set" "filedia" "0")
(command "open" "c:\\drawing1.dwg")
(command "set" "filedia" "1")
这样就可以了！

yys790113 · 发表于 2003-8-2 22:19:00

首先感谢你的解答, 但是你的解答仍然只适用于R14,
而且是否显示对话框的系统变量我早就考虑到了,
但是现在要解决的问题是是如何在多文档方式使用(command "open")
在2000中使用(command "open" "c:\\drawing1.dwg")显然行不通, 不信你试一下

3kd · 发表于 2003-8-3 00:46:00

我在2002中试了，可以呀！

龙龙仔 · 发表于 2003-8-4 12:52:00

;;一个VLISP的批量处理范例
;;从这个范例可以了解VLISP如何批量处理图档
;;虽然速度慢了点,但非常实用
;;By LUCAS(龙龙仔)
;;从文件移除未使用之具名参考
;;
;;虽配合Expresstools__(acetutil.arx)
;;为加速程序执行,程序将设定系统变量ACADLSPASDOC
;;即
;;当然程序结束后,会还原系统变量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 " &ltURGE完成>!!!"))
         (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)