标签：and 命令 with https active comm tle path new
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim f As FileInfo = New FileInfo("E:\j9-FwfeplGMIpixSqiD9d.dxf") Dim f1 As FileInfo = New FileInfo("E:\[3500×0×2][数量10](1).dxf") ‘Dim f2 As FileInfo = New FileInfo("E:\j9-FwfeplGMIpixSqiD9d.dxf") ‘Dim f3 As FileInfo = New FileInfo("E:\j9-FwfeplGMIpixSqiD9d.dxf") Dim list = New List(Of FileInfo)() list.Add(f) list.Add(f1) Dwg2Pdf(list) End Sub
Public Shared Sub Dwg2Pdf(ByVal files As List(Of FileInfo))
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
‘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 = Autodesk.AutoCAD.Interop.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
源码地址 ：https://download.csdn.net/download/bosslizhiyong/12414134
标签：and 命令 with https active comm tle path new
原文地址：https://www.cnblogs.com/shangdishijiao/p/12882929.html
