| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| InnovationsForum: Digital Factory – Das Online-Event für Ihre Fertigung |
Autor
|
Thema: Makro zum Erstellen von .pdf und .dxf (4956 mal gelesen)
|
Konfig Master Karoshi Mitglied
Beiträge: 11 Registriert: 27.10.2011
|
erstellt am: 14. Nov. 2011 14:54 <-- editieren / zitieren --> Unities abgeben:
Hallo ich bin Praktikant bei einer Firma und arbeite seit guten zwei Monaten mit Solidworks 2011. Man möchte nun dass ich ein Makro erstelle mit welchem Bauteile automatisch als PDF und DXF abgespeichert werden. Bei Extra/Makro/Aufnahme habe ich eine Datei als DXF und PDF gespeichert und danach die Aufnahme gestoppt. Die Datei abgespeichert und ein neues Bauteil geöffnet um das neue Makro anzuwenden mit der "Ausführen-Taste" jedoch erscheint dann im Folgenden "Fehler beim kompilieren: Syntaxfehler" Die drittletzte Zeile von unten ist dann rot markiert bei mir: boolstatus = Part.DeleteNamedView(*Aktuell) Dim swApp As Object
Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Sub main() Set swApp = _ Application.SldWorks Set Part = swApp.ActiveDoc longstatus = Part.SaveAs3("C:\Users\fa\Desktop\Test\Test77.PDF", 0, 0) longstatus = Part.SaveAs3("C:\Users\fa\Desktop\Test\Test77.DXF", 0, 0) swPart = swApp.NewPart() Set Part = swApp.ActiveDoc Dim myModelView As Object Set myModelView = Part.ActiveView myModelView.FrameLeft = 0 myModelView.FrameTop = 0 Set myModelView = Part.ActiveView myModelView.FrameState = swWindowState_e.swWindowMaximized swApp.ActivateDoc2 "Zeichnung1 - Blatt1", False, longstatus Set Part = swApp.ActiveDoc Set Part = swApp.ActiveDoc Set myModelView = Part.ActiveView myModelView.FrameLeft = 0 myModelView.FrameTop = 0 Set myModelView = Part.ActiveView myModelView.FrameState = swWindowState_e.swWindowMaximized swApp.ActivateDoc2 "Test77", False, longstatus Set Part = swApp.ActiveDoc Dim myView As Object Set myView = Part.CreateDrawViewFromModelView3("C:\Users\fa\Desktop\Test\Test77.SLDPRT", "*Aktuell", 0, 0, 0) boolstatus = Part.DeleteNamedView(*Aktuell) Part.ClearSelection2 True End Sub Ist der Weg den ich eingeschlagen habe überhaupt richtig oder muss man das ganze programmieren um ans Ziel zu kommen? Frage würdet ihr mir irgendwelche "Programmier Lehrbücher" empfehlen welche mir in Verbindung mit Solidworks weiterhelfen könnten? Würde gerne das ganze auch nachvollziehen..
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
THSEFA Mitglied Konstrukteur/CAD-Admin
Beiträge: 1141 Registriert: 27.11.2002 SWX 2020 SP5.0 Premium Windows 10 Pro 64Bit Citrix VM Intel(R) XEON(R) Gold 6146 CPU @ 3.20GHz 24 GB Ram<P>Windows 10 Pro 64Bit
|
erstellt am: 14. Nov. 2011 15:00 <-- editieren / zitieren --> Unities abgeben: Nur für Konfig Master Karoshi
|
Konfig Master Karoshi Mitglied
Beiträge: 11 Registriert: 27.10.2011
|
erstellt am: 14. Nov. 2011 15:18 <-- editieren / zitieren --> Unities abgeben:
|
Konfig Master Karoshi Mitglied
Beiträge: 11 Registriert: 27.10.2011
|
erstellt am: 14. Nov. 2011 15:37 <-- editieren / zitieren --> Unities abgeben:
|
Wolle1970 Mitglied Konstrukteur
Beiträge: 76 Registriert: 14.05.2009 SWX2019 SP5.0 PDM professional
|
erstellt am: 15. Nov. 2011 14:04 <-- editieren / zitieren --> Unities abgeben: Nur für Konfig Master Karoshi
Genau so etwas brauchen wir auch. Nur für pdf und dwg. Dieses zu ändern ging problemlos. Kleines Problem noch: Das Makro schreibt die neuen Dateien in das Verzeichnis der SW-Datei. Da wir eine Datenbank nutzen, wäre es für uns hilfreich, die Dateien in ein anderes, lokales Verzeichnis zu speichern. Was muß dann geändert werden. Perfekt wäre natürlich die Frage, wo die Dateien gespeichert werden sollen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Andi Beck Ehrenmitglied V.I.P. h.c. Konstrukteur
Beiträge: 2572 Registriert: 02.10.2006 Firma: SW 2023-4.0 + PDM Prof. Windows 10 Pro 64bit, i9-11900 32 GbRAM, Quadro P2200 Home: SW 2022-5.0 Passungstabelle von Heinz Windows 11 Pro 64bit, i7-12700K, 32 GbRAM, GeForce GTX 1050Ti Samsung C34H892, 3440x1440 Pixel
|
erstellt am: 15. Nov. 2011 19:57 <-- editieren / zitieren --> Unities abgeben: Nur für Konfig Master Karoshi
Hallo Wolle, in diesem Beitrag habe ich mein Schriftfeldmakro veröffentlicht. http://ww3.cad.de/foren/ubb/Forum2/HTML/022779.shtml Darin enthalten ist ebenfalls ein Export von verschiedenen Formaten. Dabei kann der Speicherort zwischen 2 Positionen gewählt werden. Und zwar entweder beim Original oder einem im Makro vordefinierten Pfad, je nach Format unterschiedlich. Evtl. kannst du aus meinem Makro die Routinen in deins übertragen. Grüße, Andi ------------------ Hast du kein Problem? Such dir eins. ( Und löse es ) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
formi Mitglied Virtuell Optimization Engineer
Beiträge: 626 Registriert: 18.04.2007
|
erstellt am: 15. Nov. 2011 20:18 <-- editieren / zitieren --> Unities abgeben: Nur für Konfig Master Karoshi
Das wäre unser Makro für PDF und DXF. Die Makro Datei sowie die beiden Ordner PDF und DXF müssen dort hin kopiert werden, wo auch die Zeichnungen die zu konvertieren sind, kopiert werden. funktioniert eigentlich ganz gut. Einziges manko: Die Blatt-Beziechung wird in den Dateinamen geschrieben. ------------------ Engineers have the power to bring minds in reality! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ad_man Mitglied freiberuflicher Entwicklungsing. (Fahrzeugtechnik, CSWP, CPPA))
Beiträge: 1366 Registriert: 20.12.2003 SolidWorks 2023 SP5 mit Enterprise PDM , Windows 11, Dell Precision 3660, i7-12700K, 96 GB DDR-Ram, Quadro RTX A4000
|
erstellt am: 15. Nov. 2011 21:07 <-- editieren / zitieren --> Unities abgeben: Nur für Konfig Master Karoshi
|