如何用.NET(CSharp & VB.NET)将DWG文件打印为PDF

因为有人问到，所以写了个例子。具体的要求是从.NET(比如C#)里面调用AutoCAD ActiveX API实现后台打印DWG文件为PDF文件，而且要把打印页面的大小设置成和DWG视图的页面的大小一致。当然除了ActiveX API，其它接口，比如ObjectARX和AutoCAD.NET API也支持打印并能实现上述功能的。不过我们今天就限定一下范围，用一用ActiveX API，而且指定产品是AutoCAD 2010吧。

执行步骤：打开一个dwg文件，用netload加载下面代码所在的.dll文件，再输入命令plottest，就得到输出结果（一个.pdf文件）。

要用到的参考：

AcDbMgd.dll;AcMgd.dll;AutoCAD 2010 Type Library;System.Windows.Forms; AutoCAD/ObjectDBX Common 18.0 Type Library.

VB.NET:

Imports System

Imports Autodesk.AutoCAD.Runtime

Imports Autodesk.AutoCAD.Interop

Imports Autodesk.AutoCAD.Interop.Common

Imports Autodesk.AutoCAD.ApplicationServices

Imports Autodesk.AutoCAD.DatabaseServices

Imports Autodesk.AutoCAD.EditorInput

 

        <Autodesk.AutoCAD.Runtime.CommandMethod("Plottest")> _

        Public Sub PlotToPDF()

            Dim activeDoc As Document = Application.DocumentManager.MdiActiveDocument

            Dim ThisDrawing As AcadDocument = CType(activeDoc.AcadDocument, AcadDocument)

            Dim layout As AcadLayout = ThisDrawing.ActiveLayout

            Dim MediaName As String = layout.CanonicalMediaName

            If MediaName.Equals("") Then

                activeDoc.Editor.WriteMessage("There is no media set for the active layout.")

                Return

            Else

                activeDoc.Editor.WriteMessage(("The media for the active layout is: " + MediaName))

            End If