| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS | | | | SolidCAM World 2024 in Rosenheim, eine Veranstaltung am 24.09.2024
|
Autor
|
Thema: PDF Makro (1193 / mal gelesen)
|
Alex3D Mitglied Konstrukteur
Beiträge: 48 Registriert: 16.08.2017 SolidWorks 2022 SP5, I9-13900KS, 32 GB Ram DDR5, M2 SSD, RTX A4000 Windows 10
|
erstellt am: 19. Mrz. 2020 14:41 <-- editieren / zitieren --> Unities abgeben:
Servus Leute, ich benutze das Makro von Andi (http://solidworks.cad.de/mm_boerse02.htm) um einfach PDF's zu erstellen. Weiß jemand, wie ich das VB Skript dementsprechend anpasse, dass es nur das aktuelle Blatt ausgibt? LG Alex ------------------ MfG Alex Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bk.sc Ehrenmitglied V.I.P. h.c. Konstrukteur Sondermaschinenbau
Beiträge: 2795 Registriert: 18.07.2012 -Solid Works 2019 SP5 -Pro Engineer WF 3
|
erstellt am: 20. Mrz. 2020 13:45 <-- editieren / zitieren --> Unities abgeben: Nur für Alex3D
Hallo Alex, schau dir mal das Beispiel "Save File as PDF Example (VBA)" + die Methode "GetCurrentSheet Method (IDrawingDoc)" + die Methode "GetName Method (ISheet)". Damit solltest du alles haben um das Macro anzupassen. Gruß Bernd
------------------ --- Man muß nicht alles wissen, man muß nur wissen wo es steht --- Staatlich anerkannte Deutschniete Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Alex3D Mitglied Konstrukteur
Beiträge: 48 Registriert: 16.08.2017 SolidWorks 2022 SP5, I9-13900KS, 32 GB Ram DDR5, M2 SSD, RTX A4000 Windows 10
|
erstellt am: 26. Mrz. 2020 13:45 <-- editieren / zitieren --> Unities abgeben:
|
bk.sc Ehrenmitglied V.I.P. h.c. Konstrukteur Sondermaschinenbau
Beiträge: 2795 Registriert: 18.07.2012 -Solid Works 2019 SP5 -Pro Engineer WF 3
|
erstellt am: 27. Mrz. 2020 11:35 <-- editieren / zitieren --> Unities abgeben: Nur für Alex3D
Hallo Alex, hab dir mal auf die schnelle ein Macro zusammengestöpselt das nur das aktive Blatt als PDF exportiert. Code: Option ExplicitDim swApp As SldWorks.SldWorks Dim swModelDoc As SldWorks.ModelDoc2 Dim swModelDocExt As SldWorks.ModelDocExtension Dim swDrawingDoc As SldWorks.DrawingDoc Dim swExportPDFData As SldWorks.ExportPdfData Dim boolstatus As Boolean Dim filename As String Dim lErrors As Long Dim lWarnings As Long Dim strSheetName As String Sub main() 'SolidWorks initialisieren Set swApp = Application.SldWorks ' Dokument Objekt holen Set swModelDoc = swApp.ActiveDoc Set swModelDocExt = swModelDoc.Extension Set swExportPDFData = swApp.GetExportFileData(1) 'Überprüfen ob Dokument eine Zeichnung ist If swModelDoc.GetType <> swDocDRAWING Then MsgBox "Bitte öffnen Sie eine Zeichnung", vbOKOnly + vbInformation Exit Sub End If 'Abfrage ob Dokument bereits gespeichert wurde If swModelDoc.GetPathName = "" Then MsgBox "Bitte zuerst Zeichnung speichern!", vbOKOnly + vbInformation Exit Sub End If 'Dokument festlegen als Zeichnungsdokumet Set swDrawingDoc = swModelDoc ' Dateipfad für PDF festlegen = Dateipfad des Zeichnungsdokumentes filename = swModelDoc.GetPathName filename = Replace(filename, ".SLDDRW", ".PDF") ' Einstellung für PDF-Export festlegen das nur aktuelles Blatt exportiert wird boolstatus = swExportPDFData.SetSheets(swExportData_ExportSpecifiedSheets, swDrawingDoc.GetCurrentSheet) 'PDF erstellen boolstatus = swModelDocExt.SaveAs(filename, 0, 0, swExportPDFData, lErrors, lWarnings) End Sub
Gruß Bernd ------------------ --- Man muß nicht alles wissen, man muß nur wissen wo es steht --- Staatlich anerkannte Deutschniete Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
MWN Mitglied Dipl.-Ing.
Beiträge: 492 Registriert: 14.02.2007
|
erstellt am: 30. Mrz. 2020 09:45 <-- editieren / zitieren --> Unities abgeben: Nur für Alex3D
Moin Alex, ich hab mal meine Macro-Sammlung durchforstet und dir zwei Macros angehangen. Eines, was nur die PDF speichert und das zweite, was die PDF auch gleich druckt. Du brauchst die Dateien nur herunterzuladen und das ".txt" am Ende zu entfernen. Leider habe ich im Moment kein SWX zur Hand, um sie mit deiner Version zu testen. Probier es aus und viel Erfolg. Tobias ------------------ "...Kommunikation ist nur so gut wie ihr Ergebnis..." - frei nach Richard Bandler / John Grinder "...Wenn du das tust, was du schon immer tust, wirst du auch nur das erhalten, was du schon immer erhalten hast..." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|