AUTOLISP中如何打开一个DWG文件/如何批量打开指定目录下的所有DWG文件

cishicike001

紧急求助：1、AUTOLISP中如何打开一个DWG文件；
                  2、如何批量打开指定目录下的所有DWG文件。

rark123

(setq pf (getfiled "指定原文件路径中的一个图形文件:>" "*" "dwg" 8))
  (setq path (vl-filename-directory pf))
  (setq path (strcat path "\\"))
  (setq aa (vl-directory-files path "*.dwg" 1))

cishicike001

楼上的你好：
(vl-load-com)
(setq path "E:\\CAD")
(foreach Open-File-Name (vl-directory-files path "*.dwg")
 (vla-activate (vla-open (vla-get-documents (vlax-get-acad-object)) (strcat path "\\" Open-File-Name)))
(command "_.plot"))

我也是这样做的，可我再想继续往下执行的时候不能执行下面的命令了，即使想关闭文件
(command "close") 也不能执行了

该怎么办啊？

lijiao

批量打印，建议用ＶＢＡ比较好

cishicike001

VBA应该怎么写啊，能不能给个参考啊

rark123

可以用脚本 来做

(defun c:gg (/ filename directory files file obj_f)
  (defun writefile ()
    (write-line (strcat "open " file) obj_f)
    (write-line "erase (ssget \"x\" '((0 . \"line\"))) " obj_f) ;删除所有直线
    (write-line "purge a * n" obj_f)
    (write-line "zoom e" obj_f)
    (write-line "save " obj_f)
  )
  (if (setq filename (getfiled "选择文件所在路径" "" "dwg" 16))
    (progn
      (setq directory (vl-filename-directory filename))
      (if (null (wcmatch directory "*\\"))
 (setq directory (strcat directory "\\"))
      )
      (setq files (vl-directory-files directory "*.dwg" 1))
      (setq obj_f (open "temp.scr" "w"))
      (while files
 (setq file (strcat directory (car files)))
 (writefile)
 (setq files (cdr files))
      )
      (close obj_f)
      (command "script" "temp.scr")
    )
  )
)