想把一个DWG文件打印为PDF,图形都能正常打开，就最后一句的时候打印失败，请高手指点

跃池先生 · 发表于 2014-11-25 20:14:00

Imports System
Imports Autodesk..Interop
Imports Autodesk.AutoCAD.Interop.Common
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim AcadApp As Autodesk.AutoCAD.Interop.AcadApplication
      Dim AcadDoc As Autodesk.AutoCAD.Interop.AcadDocument
      AcadApp = CreateObject("autocad.application")
      AcadApp.Visible = True
      AcadApp.Documents.Open("C:\1.DWG")
      AcadDoc = AcadApp.ActiveDocument
      AcadDoc.ModelSpace.Layout.PlotType = Autodesk.AutoCAD.Interop.Common.AcPlotType.acExtents '定义打印范围
      AcadDoc.ModelSpace.Layout.ConfigName = "DWG To PDF.pc3"                                  '选定打印机配置
      AcadDoc.ModelSpace.Layout.CanonicalMediaName = "ANSI_A_(11.00_x_8.50_Inches)"       '设置图幅
      AcadDoc.Plot.PlotToFile("C:\1.pdf")                                                    '打印
End Sub

sdypoky5qqu.png

该贴已经同步到

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复