批量打印PDF代码供参考
本帖最后由 etoxp 于 2019-8-26 22:01 编辑说明：
1.其中有一些代码是在本论坛找的。
2.程序直接考虑了一些常用的图幅，所以打印时不必进行图幅设置，但对图名的字高做了限制。3.通过矩形框来识别图框，矩形框与图名、图号都要放在bplot图层中。
4.程序适用于与示例中的类似的图框。
5.专门配置了页面设置与打印样式文件，注意放到相应的路径下。也可以直接修改代码，改成自己的想要的设置。
DWG To PDF(For xpPDF批量打印).pc3
DWG To PDF(For xpPDF批量打印).pmp
蓝图 0.1 0.20.ctb
6.程序还有很多bug，欢迎优化，供有编程爱好的网友参考，不建议直接用于工作当中。
7.程序很简陋，没有UI界面。
8.其它说明见程序代码。
20190810更新：进行了优化，不再使用command来打印，避免打印时图面窜位得不到正确的效果。
20190826:有一个bug，要加一句：(setvar "backgroundplot" 0)，否则有时候只能打印出一张pdf，而不能连续打印，想试用的自己加上吧。我自己只是用的cad2012，所有其它版本的cad可能用不了。
经过本人测试，该程序使用教程如下：
1、本程序目前只适合在cad2012上运行。
2、本程序只适合操作图形中的横版图纸，竖版的图纸无法运行，建议使用时将绘制好的竖版图纸旋转至横版图纸后执行本程序。
3、执行此程序前必须新建一个图层，图层名为bplot。
4、图框外侧线用矩形线封闭，该矩形线所在图层必须为bplot。
5、图纸内容一栏中的字体高度在1:100的比例基础上必须是300高，同样图号一栏中的字体高度在1:100的比例基础上必须是300高。（1:50的比例字高是150，1:150的比例字高是450，以此类推）
6、图纸内容一栏中的字期图号一栏中的字所在图层必须是bplot图层。
以上是批量转PDF时图形文件必须具备的几个要点，下面再介绍一下该程序的安装教程：
1、将文件夹中的DWG To PDF(For xpPDF批量打印).pc3这个文件考入到C:\Users\Administrator\AppData\Roaming\Autodesk\AutoCAD 2012 - Simplified Chinese\R18.2\chs\Plotters这个文件夹；
2、将文件夹中的DWG To PDF(For xpPDF批量打印).pmp这个文件考入到C:\Users\Administrator\AppData\Roaming\Autodesk\AutoCAD 2012 - Simplified Chinese\R18.2\chs\Plotters\PMP Files这个文件夹；
3、将文件夹中的蓝图 0.1 0.20.ctb这个文件考入到C:\Users\Administrator\AppData\Roaming\Autodesk\AutoCAD 2012 - Simplified Chinese\R18.2\chs\Plotters\Plot Styles这个文件夹；
4、用appload这个命令加载文件夹中xpdf 批量打印_24.LSP,当然也可将其加入启动组，以便每次打开cad自动加载。 (defun c:xpdf (/)
(xpdf0 "*")
)
(defun c:xpdfA2 (/)
(xpdf0 "1.0A2横")
)
(defun c:xpdfA1 (/)
(xpdf0 "1.0A1横")
)
(defun c:xpdfA3 (/)
(xpdf0 "1.0A3横")
)懂了 20190810更新：进行了优化，不再使用command来打印，避免打印时图面窜位得不到正确的效果这个居中不就行了吗？有没有当时的代码，看看我试了很久没实现输出带图名PDF。。。 另外我参考了你的代码，VLA-PLOTTOFILE 运行，有些图纸或者有些电脑打印不出，有的打印一张就报错，错误是automation输入错误， 留存，备用 这个有用，学习学习 好东西，支持 谢谢大师分享好程序
谢谢大师分享 都是高手 请问810这个文件夹中编号35的lsp有什么作用啊，我现在是加载24lsp，35那个加载后无反应呢