AutoCAD自动批量打印Autolisp程序

最近经常性的出电气图纸，有时候一个项目会出N多张图，常常是出图的时候点鼠标点到手抽筋。而且我们电气跟机械出图有些习惯不太一样，比如，机械设计师们喜欢每一个DWG文件中只保存一个图纸，而电气设计则喜欢把所有的电气图纸存放于一个DWG文件中。所以网络上的打印程序基本上都不能用，于是研究了一下Autolisp语言，自己编写了一个相当于批处理一样的小程序，用来批量打印同一文件中的图纸。

当然若想打印的时候省些力气，之前绘制电气图纸的时候，应当将图纸规则排列。

源码如下：

可能对CAD有点了解的同学们发现了，我用的是plot这个系统自带打印函数，只不过我采用的是命令行的方式”-plot”。如果对AutoLisp不熟悉也不要紧，只要按照以下步骤做就可以了。

1.将上面的源程序复制下来，另存为tmp.lsp文件

2.打开CAD，在CAD命令行中输入ap按下回车，或者点击菜单“工具”-“AutoLisp”-“加载应用程序..”，加载刚才保存的tmp.lsp文件，加载后命令行处会提示“APPLOAD 已成功加载 tmp.lsp。”

3.在CAD命令行中输入tmp，回车后就可以执行这个小程序了。

程序使用说明：

若有如下图所示的12张图纸需要打印，则根据提示依次输入响应的参数即可。

其中”获取左上角点”一项可以通过鼠标点击。若不清楚当前可用打印机的名称，在输入打印设备名时输入“?”，则可以调出当前可用的打印设备。

注：本程序只在CAD2004，CAD2006，CAD2008环境下测试过，均可以实现批量打印。且只是给出了A4的程序，当然你可以自己更改相关变量值，以达到打印其他纸张大小的目的。