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