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的程序,当然你可以自己更改相关变量值,以达到打印其他纸张大小的目的。

您可能还喜欢...

3 条回复

  1. Louis Han说道:

    这篇文章在首页好长啊

  2. 远见旅研说道:

    可悲哦,CAD菜鸟。。。

回复 Louis Han 取消回复

您的电子邮箱地址不会被公开。 必填项已用*标注

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据