[讨论]：AUTOCAD的批处理

lkai_11 · 发表于 2003-2-14 16:53:46

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

怎么没看到有关CAD的批处理的帖子？一次偶然机会在电视上看人家演示过，但只看到了结束部分。哪位高人帖一个教程上来大家讨论讨论！！

27182818284 · 发表于 2003-2-14 20:26:59

autocad批处理即“脚本”，加载脚本有两种方式：
一是在autocad环境内执行script，当然，菜单也一样。
二是在启动命令下加 /b *.scr，例如："c:\program files\AutoCAD 2002\acad.exe" /b fs.scr，即是在启动时运行名叫fs.scr的脚本文件。
autocad12时代，常用脚本来打印，做幻灯等。尤其是打印，我觉得连autocad14以后带的“批处理打印实用程序”也有所弗如。当然，用脚本来打印还要结合dos批处理程序。
脚本可以用文本编辑器编辑，但常用的是从autocad文本窗口复制，步骤大致如下：
   1. 关闭对话框显示
   2. 逐步输入你要执行的命令
   3. 击f2显示文本窗口
   4. 把文本窗口复制到文本编辑器
   5. 选择要复制的文字，把命令、选项清理出来形成一个脚本文件
当然，脚本无法三言两语讲完，如果要学习脚本，还是要找参考书的。

rockywh · 发表于 2003-2-14 22:58:34

scr文件与windows屏幕保护程序的后缀一样，使得原来可以直接运行的.scr文件不能运行了，我挺烦的。因为我有时离开机器时想直接运行平保。

lkai_11 · 发表于 2003-2-14 23:43:32

怎么我看到的好象不是这样。
还有其他办法吗？

27182818284 · 发表于 2003-2-15 00:00:47

那你看到的是不是批处理打印？见这儿：
http://www.xdcad.net/forum/showthread.php?s=&threadid=31313

lkai_11 · 发表于 2003-2-15 11:28:00

只有批处理打印吗？
还是谢谢楼上的，让我又学了点东西。

ll_j · 发表于 2003-2-15 12:09:04

最初由 rockywh 发布
scr文件与windows屏幕保护程序的后缀一样，使得原来可以直接运行的.scr文件不能运行了，我挺烦的。因为我有时离开机器时想直接运行平保。

这样修改注册表：

ll_j · 发表于 2003-2-15 12:16:51

最初由 lkai_11 发布
只有批处理打印吗？
还是谢谢楼上的，让我又学了点东西。

还有一种“批处理”，就是软件启动批处理文件，是在DOS时代运行Acad用的，用于设置acad运行环境，内有如：
set acad=c:\acadr12;c:\acadr12\fonts;...
set acaddrv=c:\acadr12\drv
...
这样的句子。现在使用Windows环境，软件能设定在系统中了，就是现在的Options的一部分。

lkai_11 · 发表于 2003-2-17 08:28:57

请问27182818284，批处理打印实用程序的窗口在哪里打开的？

27182818284 · 发表于 2003-2-17 08:32:56

在WINDOWS的开始菜单里

LUCAS · 发表于 2003-2-17 09:16:23

供參考
批處理例子(1)
http://www.xdcad.net/forum/showthread.php?s=&threadid=31865

批處理例子(2) 註:Migration Assistance有提供類似程序

;;批量处理文件转存别种格式
;;虽然速度慢了点
;;注意:转存R15以下无预览图
;;By LUCAS(龙龙仔)
;;
;;虽配合Expresstools__(acetutil.arx)
;;为加速程序执行,程序将设定系统变量ACADLSPASDOC
;;即<只载入 acad.lsp 至 AutoCAD 执行期所开启的第一个图面>
;;当然程序结束后,会还原系统变量ACADLSPASDOC
;;
;;acR12_DXF: AutoCAD Release12/LT2 DXF (*.dxf)
;;acR13_DWG: AutoCAD Release13/LT95 DWG (*.dwg)
;;acR13_DXF: AutoCAD Release13/LT95 DXF (*.dxf)
;;acR14_DWG: AutoCAD Release14/LT97 DWG (*.dwg)
;;acR14_DXF: AutoCAD Release14/LT97 DXF (*.dxf)
;;acR15_DWG: AutoCAD 2000 DWG (*.dwg)
;;acR15_DXF: AutoCAD 2000 DXF (*.dxf)
;;acR15_Template: AutoCAD 2000 Drawing Template File (*.dwt)
;;acNative: A synonym for the latest drawing release.
;; In this release, this value equals acR15_DWG.
;;
;;USAGE: (CH "acR14_DWG")
(arxload "acetutil.arx" NIL)
(vl-load-com)
(defun CH (MODE / HOLDECHO APP DWGNAME PREFIX_DWG NN QQ HOLDLSP WW LL)
(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))))
(setq WW (vla-open (vla-get-documents APP) DWGNAME))
(setq LL (strlen MODE))
(cond
((or (equal (strcase (substr MODE (- LL 2) 3)) "DXF")
(equal (strcase (substr MODE (- LL 7) 8)) "TEMPLATE")
)
(vla-saveas
WW
(vl-string-right-trim ".DWG" (strcase DWGNAME))
(eval (read MODE))
)
)
(t
(vla-saveas WW DWGNAME (eval (read MODE)))
)
)
(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)

;;批量处理文件转存别种格式                                 
;;虽然速度慢了点                               
;;注意:转存R15以下无预览图                                 
;;By LUCAS(龙龙仔)                                        
;;                                                         
;;虽配合Expresstools__(acetutil.arx)                      
;;为加速程序执行,程序将设定系统变量ACADLSPASDOC            
;;即<只载入 acad.lsp 至 AutoCAD 执行期所开启的第一个图面> 
;;当然程序结束后,会还原系统变量ACADLSPASDOC                
;;                                                         
;;acR12_DXF:                AutoCAD Release12/LT2  DXF (*.dxf) 
;;acR13_DWG:                AutoCAD Release13/LT95 DWG (*.dwg) 
;;acR13_DXF:                AutoCAD Release13/LT95 DXF (*.dxf) 
;;acR14_DWG:                AutoCAD Release14/LT97 DWG (*.dwg) 
;;acR14_DXF:                AutoCAD Release14/LT97 DXF (*.dxf) 
;;acR15_DWG:                AutoCAD 2000 DWG (*.dwg) 
;;acR15_DXF:                AutoCAD 2000 DXF (*.dxf) 
;;acR15_Template:        AutoCAD 2000 Drawing Template File (*.dwt)    
;;acNative:                A synonym for the latest drawing release.    
;;                      In this release, this value equals acR15_DWG. 
;;                                                                   
;;USAGE: (CH "acR14_DWG") 
 
(arxload "acetutil.arx" NIL) 
(vl-load-com) 
(defun CH (MODE / HOLDECHO APP DWGNAME PREFIX_DWG NN QQ HOLDLSP WW LL) 
  (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)))) 
        (setq WW (vla-open (vla-get-documents APP) DWGNAME)) 
        (setq LL (strlen MODE)) 
        (cond 
          ((or (equal (strcase (substr MODE (- LL 2) 3)) "DXF") 
               (equal (strcase (substr MODE (- LL 7) 8)) "TEMPLATE") 
           ) 
           (vla-saveas 
             WW 
             (vl-string-right-trim ".DWG" (strcase DWGNAME)) 
             (eval (read MODE)) 
           ) 
          ) 
          (t 
           (vla-saveas WW DWGNAME (eval (read MODE))) 
          ) 
        ) 
        (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)

lkai_11 · 发表于 2003-2-17 10:16:39

谢谢！27182818284！LUCAS！
不过二次开发我看不懂了。呵呵……

myquanh · 发表于 2003-7-20 17:19:34

有谁有做成lsp等可以直接加载的小程序呀？期待共享1

GPT · 发表于 2003-7-20 21:38:51

这是一个批打印的例子。

broload · 发表于 2004-4-8 22:57:48

当你对acad的操作非常熟悉之后很容易就可以自己写出一个脚本来
脚本在你只有现成数据，而且数据量很大时非常有用
在和别的系统交换数据时也很有用，可惜我现在也不会在acad里怎样提取数据

账号		自动登录	找回密码
密码			立即注册

[讨论]：AUTOCAD的批处理

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子