VB Net =》DxF 转 PDF DxF 显示 PDF 预览

    Public Sub Dwg2Pdf(ByVal files As List(Of FileInfo))

        If files.Count = 0 Then
            Return
        End If
        Dim doc As AcadDocument = Nothing
        Dim destPath As String = String.Empty
        'InitializationApp()

        Dim activeDoc As Document = Application.DocumentManager.MdiActiveDocument
        'Dim ThisDrawing As AcadDocument = CType(activeDoc.AcadDocument, AcadDocument)




        Try

            For Each f In files
                If File.Exists(f.FullName) = False Then
                    Continue For
                End If
                'doc = _app.Documents.Open(f.FullName, True)
                doc = Application.DocumentManager.Open(f.FullName, True).AcadDocument
                'doc = ThisDrawing.Open(f.FullName, True)
                'ThisDrawing.LoadShapeFile(f.FullName)

                'doc = ThisDrawing

                doc.SetVariable("sdi", 0)
                doc.SetVariable("Filedia", 0)
                doc.SetVariable("RASTERPREVIEW", 1)
                doc.SetVariable("BACKGROUNDPLOT", 0)
                doc.ActiveLayout.ConfigName = "DWG To PDF.pc3"
                doc.ActiveLayout.UseStandardScale = True
                doc.ActiveLayout.StandardScale = AcPlotScale.acScaleToFit
                doc.ActiveLayout.PlotType = AcPlotType.acExtents
                doc.ActiveLayout.CenterPlot = True
                doc.ActiveLayout.PlotRotation = AcPlotRotation.ac0degrees
                doc.ActiveLayout.PlotType = Common.AcPlotType.acExtents
                doc.Plot.QuietErrorMode = True
                destPath = Path.Combine(f.Directory.FullName, Path.GetFileNameWithoutExtension(f.Name) & ".pdf")
                doc.Plot.PlotToFile(destPath)
                If doc IsNot Nothing Then doc.Close(False)
            Next

        Catch e As System.Exception
            Throw e
        Finally

            Try
                doc.Close(False)
                '_app.Quit()
            Catch
            End Try
        End Try
    End Sub