在 AutoCAD 上将 dwg 转换为 pdf答案

【问题标题】：Convert dwg to pdf on AutoCAD在 AutoCAD 上将 dwg 转换为 pdf
【发布时间】：2018-05-06 05:45:09
【问题描述】：

您好，如何使用 VBA 将我的 AutoCAD 绘图绘制为 Pdf？我试过了

Sub PlotToPdf()
ThisDrawing.ActiveLayout.ConfigName = "DWF6 ePlot.pc3"
Dim plotFileName As String
plotFileName = "Z:\USERS\KweziM\PROJECT S\MyPlot.pdf"

Dim result As Boolean

result = ThisDrawing.Plot.PlotToFile(plotFileName)
End Sub

但这不起作用。

【问题讨论】：

标签： vba autocad

【解决方案1】：

最后一行应该是子程序调用，而不是函数调用...应该是这样的

ThisDrawing.Plot.PlotToFile plotFileName

您不需要result 变量。

【讨论】：

【解决方案2】：

试试这个：

Public Sub VBAplot()
    Dim currentplot As AcadPlot
    Set currentplot = ThisDrawing.Plot

    ThisDrawing.ActiveLayout.ConfigName = "PDFCreator" ' Your plot device.
    ThisDrawing.ActiveLayout.CanonicalMediaName = "A4"

    ThisDrawing.ActiveLayout.StandardScale = acScaleToFit
    ThisDrawing.Application.ZoomExtents
    currentplot.PlotToDevice


End Sub

【讨论】：

谢谢，但这在代码的第 4 行给了我一个“无效输入”错误。ThisDrawing.ActiveLayout.ConfigName = "PDFCreator"
PDFCreator 是外部应用程序。虚拟 PDF 绘图仪。我想你没有安装它。所以你应该使用其他一些 PDF 绘图仪或“pc3”配置文件。
在 AutoCAD 中您几乎没有内置驱动程序可以保存为 PDF，例如“DWG To PDF.pc3”“AutoCad PDF（通用文档）.pc3”“AutoCad PDF（高质量打印）.pc3”使用其中之一