---

Hallo Leute,

nach viel rumsuchen in Google und Quälereien der Suche, wende ich mich an euch   

Ich habe derzeit Macros die mir eine PDF oder DXF Datei aus dem aktuell ausghewählten Zeichnungsblatt erstellen.
Funktioniert soweit super.
Doch ich möchte diese beiden zusammen legen.

Meine bisherige Arbeitsweise

-Zeichnung erstellen (Blattname: "Blatt1")
-Macro "DXF Blatt" ausführen (dies erstellt mir ein neues leeres Blatt mit dem namen "DXF" welches auf 1:1 gesetzt wird.)
-Abwicklung drauf
-fertig

Was ich nun gerne machen würde, ist das wenn ich auf das Macro klicke, es mir:

-PDF aus "Blatt1" erstellt
-DXF aus "DXF" erstellt

falls dabei das Blatt "DXF" fehlen sollte, soll es einfach "übersprungen" werden, sodass nur das PDF generiert wird.

Ich habe generell zu wenig Erfahrung mit VBA. Das Macro "DXF Blatt" habe ich mir vor einem Jahr selbst zusammen geschustert, aber ich habe wieder alles verlernt, da ich es nicht regelmäßig brauche. Daher wäre es klasse wenn Ihr mir dabei helfen könntet.

hier noch das PDF Macro

Code:

---

Dim swApp               As SldWorks.SldWorks
Dim swModel             As SldWorks.ModelDoc2
Dim swExportPDFData     As SldWorks.ExportPdfData
Dim sFilename           As String
Dim nErrors             As Long
Dim nWarnings           As Long
 
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swExportPDFData = swApp.GetExportFileData(1)
 
sFilename = Left(swModel.GetPathName, InStrRev(swModel.GetPathName, ".") - 1)
swExportPDFData.SetSheets swExportData_ExportCurrentSheet, ""
swExportPDFData.ViewPdfAfterSaving = False
swModel.Extension.SaveAs sFilename & ".PDF", 0, 0, swExportPDFData, nErrors, nWarnings
 
End Sub

---

Gruß
Alex

[Diese Nachricht wurde von Wick3d am 06. Aug. 2017 editiert.]

[Diese Nachricht wurde von Wick3d am 06. Aug. 2017 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP