[建议]关于批处理的建议和本人一点思路

zark

本人是从事测绘行业的，很多时候成果出来就是一大堆，验收有问题也要改一大堆，虽然有时

工作很简单，但是数量太多了，做起来很烦。

于是本人就迫切需要知道通过什么接口可以做出批处理函数，希望大家不吝赐教

本人愚味，想到了一个很土很土的方法，讲出来大家不要笑掉大牙哈，思路来自CAD病毒。

假设现在需要将20幅图里的多余图层或块名清除，可以用PURGE，打开20幅，清理20次就行了

。本人现在利用ACAD.LSP。能一步做到位，具体方法如下：

新建一个文件，文件名为acad.lsp

内容：

  (defun s::startup ()
      (command "purge" "a" "*" "n")
      (prin1)
)

存放位置：将该文件放在CAD的搜索路径中，比如C:\Program Files\AutoCAD 2004

操作：打开ACAD绘图软件，然后执行：文件－打开，然后一次性选择需要清理的那20幅图，最后点击“打开”，哈哈，是不是每一幅图都自动清理呀？
（注：如果文件太多，不可一次性全部选择，本人曾一次打开60幅图，结果内存不足，死机了哈）

本人举了一个很笨很笨的例子实现了批处理，但是这个方法真的很笨呀，用完还要把ACAD。LSP删掉。所以真心希望我们的版主们多花点心，研究下让LSP实现批处理，谢谢谢谢谢谢.........

想学习批处理的朋友们
顶
要顶
一定顶
真的要顶
用千斤顶顶
.............

liu_kunlun

方法很好。

你试一下：将 (setq S::STARTUP (append S::STARTUP (list (command "purge" "a" "*" "n"))))写到acad.mnl中，该文件在....support文件夹中。

或许应该：将 (setq S::STARTUP (append S::STARTUP '((command "purge" "a" "*" "n"))))写到acad.mnl中，该文件在....support文件夹中。
     

langson

能不能编一种程序，打开一个对话框，然后通过浏览，选择需要编辑的文件，这样比较直观

aicr317

或许从这里，能给你点启发：

;;;;;;这是一个参照指定目录下所有DWG文件的程序

(defun dim_scei_xrefdwg ()
  (setvar "CMDECHO" 0)
  (vl-load-com)
  (if (entlast) (command ".erase" "all" ""))
  (setq fn (if fn fn ""))
  (if (setq fn (getfiled "选择文件" fn "dwg" 2)) (progn
   (setq strpath (vl-filename-directory fn)
            fl (vl-directory-files strPath "*.dwg" 1)
            i 0)
   (repeat (length fl)
    (setq fnm (strcat strpath "/" (nth i fl)) i (1+ i))
 
    (command "-insert" fnm "0,0")  ;;;;;;;;;;;;;;;这里换成(command "purge" "a" "*" "n")不知可行否，下班了，回家再测试！
    (while (not (zerop (getvar "CMDACTIVE"))) (command ""))
   )
  ))
  (setvar "CMDECHO" 1)
  (princ)
)

langson

非常感谢哦

phoenixdjq

本论坛就有这样的帖子，你找一下

zml84

.                      .

狂刀lxx

arx写的？

老前辈的成果参考:
http://www.cadtutor.net/forum/showthread.php?t=39718
http://web2.airmail.net/terrycad/LISP/Scrs.Lsp
http://through-the-interface.typepad.com/through_the_interface/2009/06/batch-processing-autocad-drawings-from-lisp-without-sdi.html

phoenixdjq

忘了是哪个版主写的了

vba写的，还有一个lisp写的