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

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

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


该贴已经同步到 **** Hidden Message *****

mikewolf2k 发表于 2014-11-26 08:46:00

前面不了解，只是提示下，如果是Win7，可能有权限限制，试试换个非系统目录。

跃池先生 发表于 2014-11-26 18:23:00


还真是这个原因，换成D盘就可以了，非常感谢！！！
页: [1]
查看完整版本: 想把一个DWG文件打印为PDF,图形都能正常打开，就最后一句的时候打印失败，请高手指点