Dwg到pdf

naren · 发表于 2022-7-5 16:36:02

大家好，

在长时间的谷歌搜索之后，我找到了一个理想的lisp例程，可以将DWG转换为PDF，并做了一些小的更改以满足我的要求。这里的问题是这个例程一次转换每个DWG，但我必须将大约100个DWG转换为pdf。有人可以帮助我将此例程转换为批处理转换器：（。

naren · 发表于 2022-7-5 16:42:13

抱歉忘记了例行程序

（默认c:A3\u BIGENCOLOUR\u PDF（/）
（setvar“cmdecho”0）

（setq cur\u plottransparencyoverride（getvar“plottransparencyoverride”））
（setvar“PLOTTRANSPARENCYOVERRIDE”2）

（setq cur_space（getvar“ctab”））

(
（命令“缩放”“范围”）
（setq filename（getfield“Enter PDF file name”“”“PDF”1））；；；https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/plot-pdf-lisp/td-p/3060536
（命令“-plot”启动绘图命令
“是”；详细的绘图配置？
（getvar“ctab”）；获取布局名称
“DWG到PDF.pc3”；输入输出设备名称GEBRUIK DEQUALL\\VIR UNC PARTHS
“ISO全排气A3（420.00 x 297.00 MM）”；输入纸张大小
“毫米”；输入纸张单位
“景观”；输入图形方向
“否”；情节颠倒？
“窗口”；输入绘图区域
"1:1" ; 输入打印比例
“中心”；输入打印偏移（x，y）
“是”；使用打印样式打印？
“道具ctb”；输入打印样式表名称或
“否”；使用线宽打印？
“否”；使用打印比例缩放线宽？
“否”；先打印图纸空间？
“否”；隐藏图纸空间对象？
文件名
;;;“否”；将绘图写入文件
“是”；保存对页面设置的更改
“是”；继续绘图
))

（setvar“cmdecho”1）
（setvar“PLOTTRANSPARENCYOVERRIDE”cur\u PLOTTRANSPARENCYOVERRIDE）
（普林斯）

（普林斯）
)

SunnyTurtle · 发表于 2022-7-5 16:48:35

我知道这不是你想要的，但你有没有考虑过出版
https://knowledge.autodesk.com/support/autocad/troubleshooting/caas/sfdcarticles/sfdcarticles/How-to-publish-multiple-drawings-into-PDF-in-AutoCAD.html