对多个文件进行批处理操作

notredave · 发表于 2020-2-26 16:49:33

我有一个平面图，我在B/W中绘制。我还用某些图层绘制这些平面图，这些图层以彩色绘制。我过去的做法是创建一个脚本文件，打开这些图层，然后打印文件并关闭而不保存。我将使用Scriptpro程序在多个文件上执行此操作。有时我会把它设置成在晚上跑步
我正在寻找Scriptpro的替代品，并考虑将JTB Smartbatch作为替代品。有人有这个项目的经验吗
谢谢

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

JohnK · 发表于 2020-3-10 06:28:36

Lee Mac在这里有一个脚本编写程序：我一直都在使用它。太棒了。
http://www.lee-mac.com/scriptwriter.html

Crank · 发表于 2020-3-10 15:40:22

很久以前，我给自己写了一个“运行lisp的脚本”，它基本上只是运行在某个目录中找到的所有lisp，bat和exe文件。我创建了一个AutoCAD配置文件（剥离了所有不必要的东西），它只是加载了该lisp，因此当我想在一系列图形上运行脚本时，我刚刚打开该AutoCAD配置文件并选择要运行脚本的文件。简单有效。
最近，我被要求编写一个程序（C++）来挖掘1，000个文件夹以查找特定文件。我的程序为每个文件生成了一个脚本（lisp），然后用这些文件创建了一个“master-run-all.bat”来运行脚本。我被告知，最终的图纸数量是5，000张，我花了一个周末来处理所有这些图纸。...这是非常具体的，根本不是通用的，但我提出这个概念只是因为它有点相关。

dgorsman · 发表于 2020-3-10 15:48:21

如果您正在寻找速度，请尝试AcCoreConsole。

darktom · 发表于 2020-3-11 08:11:48

还推荐

paulslondon · 发表于 2020-3-13 04:37:42

多谢帮忙

JohnK · 发表于 2020-3-13 05:32:21

我今天需要做一些图纸的批次处理作业，我从来没有听说过“accoresole”（我在AutoCAD出现之前就离开了它），但我按照上面的链接，今天早上我为自己创建了一个快速解决方案。我创建了一个批次脚本，我可以拖动绘图文件来运行脚本。要运行的脚本文件和批次脚本位于同一个文件夹中，根据需要替换/修复路径（我的笔记本电脑上只安装了AutoCAD 2018）。批次脚本：“BatchDrawings_accoreconsole.cmd”@echoff。
:: 进程文件作为批处理脚本的参数，。
::。
:: 最后更新时间：04.14.20上午9:41:00。
::。
:: ：约翰·考尔。
。
设置脚本="%~dp0\BatchDrawings_accoreconsole.scr"。
设置脚本=%脚本：\\=\%。
：处理Arg的。
if[%1]==[]goto endmark。
调用"C：\Program Files\欧特克\AutoCAD 2018\accoreconsole.exe" /i"%~f1" /s%script% /len-US。
如果错误级别1转到错误标记。
SHIFT。
转到进程Args。
：错误标记。
回声，。
回声，。
回显错误处理%~f1。
暂停。
回声，。
：端点。
rem。
rem完成。
rem示例脚本："BatchDrawings_accoreconsole.scr"（仅示例，替换为您想要的）

copy

( (lambda ( / *error* ERROR-LST- )
 
       (setq
         ERROR-LST-
                    '("AUTOSNAP" "OSMODE" "APERTURE" "HPSPACE" "HPASSOC"
                      "MIRRTEXT" "AUPREC" "LUPREC" "DIMZIN" "CECOLOR" "CLAYER"
                      "CMDECHO" "FILEDIA" "OSMODE")
         ERROR-LST- (mapcar (function (lambda (a) (list 'setvar a (getvar a)))) ERROR-LST-)
       );_end setq
 
       (defun *error* (msg)
          (command) (command)
          (mapcar 'eval ERROR-LST-))
 
    (mapcar
      '(lambda ( x / )
         (eval x)
         (repeat 2 (command))
         (princ))
      '(
        ;; --== ==--
        ;;
 
 
        ;;
        ;; --== ==--
        (command "audit" "yes")
        ;; audit the drawing
        (command "bldsyspurge")
        (repeat 5 (command "_purge" "a" "*" "n"))
        ;; purge the drawing a ;few times
        (*error* "")
        (command "_qsave")
        ;; save
        )
      ) ; mapcar
    (princ) 
    )
 )