C#CAD环境下DWG转PDF使⽤命令CAD环境下DWG转PDF
sherry什么意思Private Sub Button2_Click(nder 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")
illusions'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 = ThisDrawingibelieve是什么意思
doc.SetVariable("sdi", 0)中国式英语
doc.SetVariable("Filedia", 0)
chineculture
doc.SetVariable("RASTERPREVIEW", 1)
baadoc.SetVariable("BACKGROUNDPLOT", 0)
doc.ActiveLayout.ConfigName = "DWG To PDF.pc3"
doc.ActiveLayout.UStandardScale = True
doc.ActiveLayout.StandardScale = AcPlotScale.acScaleToFit
doc.ActiveLayout.PlotType = AcPlotType.acExtentsdfm
doc.ActiveLayout.CenterPlot = True
doc.ActiveLayout.PlotRotation = AcPlotRotation.ac0degrees
doc.ActiveLayout.PlotType = Autodesk.AutoCAD.Interop.Common.AcPlotType.acExtents
according todoc.Plot.QuietErrorMode = True
destPath = Path.Combine(f.Directory.FullName, Path.GetFileNameWithoutExtension(f.Name) & ".pdf")
doc.Plot.PlotToFile(destPath)
If doc IsNot Nothing Then doc.Clo(Fal)
Next
Catch e As System.Exception
Throw e
Finally
Try
doc.Clo(Fal)
_app.Quit()
Catch
End Try
End Try
End Sub
