使用VBA导出Pdf文件

muck · 发表于 2022-7-6 21:58:13

AutoCAD 2010

是否有VBA代码来创建pdf文件。可能使用Exportpdf命令之类的命令
在AutoCAD中，没有页面设置菜单。一些可以放在VBA中的批处理循环中。
非常感谢。

muck · 发表于 2022-7-6 22:43:35

Sub CreatePDF（）

Dim PTConfig As AcadPlotConfigurations（Dim PT配置为AcadPlotConfigurations）
Dim PlotConfig作为AcadPlotConfiguration
将PtObj设置为AcadPlot
变暗背景图

'使用所有需要的参数创建新的绘图配置
设置PtObj=ThisDrawing。情节
设置PtConfigs=ThisDrawing。打印配置
'添加新的绘图配置
PtConfigs。添加“PDF”，False
'您创建的绘图配置变为活动状态
设置PlotConfig=PtConfigs。项目（“PDF”）
'使用此方法设置比例
PlotConfig。StandardScale=acScaleToFit
'更新绘图

PlotConfig。刷新PlotDeviceInfo
'此处指定要使用的pc3文件
PlotConfig。ConfigName=“DWG到PDF.pc3”
'您可以在此处选择打印样式表
PlotConfig。样式表=ComboBox3。价值
'PlotConfig。样式表=“Acad.ctb”

'指定是否使用打印样式打印
PlotConfig。PlotWithPlotStyles=True

'如果要以批处理模式创建pdf文件，
“我建议关闭BACKGROUNDPLOT系统变量，
'因此autocad在完成之前不会继续执行任何操作
'pdf创建
背景图=此图纸。GetVariable（“背景图”）
此图纸。SetVariable“BACKGROUNDPLOT”，0
'更新绘图
PlotConfig。刷新PlotDeviceInfo
'现在可以使用PlotTofile方法
如果是PtObj。PlotToFile（替换（ThisDrawing.FullName，“dwg”，“pdf”），PlotConfig。ConfigName）然后
MsgBox“PDF已创建”
其他的
MsgBox“PDF创建失败”
如果结束
'如果您希望删除您创建的第个绘图配置
，并设置“BACKGROUNDPLOT”系统变量
'恢复到其原始状态。
PtConfigs。项目（“PDF”）。删去
设置PlotConfig=Nothing
此图纸。SetVariable“BACKGROUNDPLOT”，BackPlot

末端接头

Cocoroboss · 发表于 2022-7-6 23:00:19

很抱歉，我想知道是否可以使用“导出”作为VBA命令将图形导出为PDF文件？

我使用了你描述的代码，它可以工作，但需要25秒。对于一个图形。当我在AutoCad上手动执行此操作时，我看到在单击生成想要的PDF后，“导出PDF”只需不到1秒的时间。

是否有使用Export命令的代码？我尝试了“SendCommand”，但它不起作用。

[编程交流] 使用VBA导出Pdf文件

发表回复

精选推荐