通过VBA将图纸导出为PDF并放大

Sub ExportToPDF()
    Dim acadApp As AcadApplication
    Set acadApp = GetObject(, "AutoCAD.Application")
    
    ' 检查是否有打开的文档
    If acadApp.Documents.Count = 0 Then
        MsgBox "没有打开的文档。"
        Exit Sub
    End If
    
    ' 获取当前活动文档
    Dim acadDoc As AcadDocument
    Set acadDoc = acadApp.ActiveDocument
    
    ' 获取当前布局空间
    Dim layoutSpace As AcadLayout
    Set layoutSpace = acadDoc.Layouts.Item("Model")
    
    ' 导出PDF的文件名和路径
    Dim pdfPath As String
    pdfPath = "C:\Temp\Drawing.pdf"
    
    ' 设置导出参数
    Dim pdfOptions As AcadExportOptions
    Set pdfOptions = acadApp.GetInterfaceObject("AutoCAD.PlotOptions.18")
    pdfOptions.PlotToFile = True
    pdfOptions.PlotType = acExtents
    pdfOptions.UseStandardScale = True
    pdfOptions.StandardScale = acScaleToFit
    pdfOptions.PaperSize = acPaperA4
    pdfOptions.PlotQuality = acExportOptimizeForPrint
    
    ' 导出为PDF
    layoutSpace.Export pdfPath, pdfOptions
    
    ' 打开导出的PDF文件
    Dim shellApp As Object
    Set shellApp = CreateObject("Shell.Application")
    shellApp.Open pdfPath
    
    ' 放大PDF文件（示例使用Adobe Acrobat Reader）
    Shell "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe /A ""zoom=125%"" " & pdfPath, vbNormalFocus
End Sub