批量打印例程

logsplitter · 发表于 2022-7-6 08:29:25

附件是我与PDFCreator一起用于批量打印pdf图纸的例程。问题是我使用的是Bricscad V12，他们所做的最新更改使该例程关闭，因为“qprint”不再使用“previous”绘图变量。我想知道你们这些大师中是否有人知道如何将其适应“plot”命令？

我认为使用脚本可能是一种方式，但不知道如何插入它。有什么想法吗？
感谢您的任何意见！下面是例行公事。

代码B打印：
（默认C:B打印（/）
（if（非dos_dir）（arxload“DOSLib11.brx”））
（setq文件（dos\u getfilem“选择要打印的文件…”“C:\\”“图形文件（*.dwg）|*.dwg”））
（setq dwgpath（car文件））
（如果（/=文件为零）
（程序
（foreach dwgfile（acad\u strlsort（cdr文件））
（命令“.open”（strcat dwgpath dwgfile））
（命令“.qprint”）
（命令“.qsave”）
（命令“.close”）
)
)
)
)