| |
![](https://ww3.cad.de/php/image.php?resolution=width:20050) | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
![](https://ww3.cad.de/php/image.php?resolution=width:20044) | Optimieren Sie Ihre SOLIDWORKS Tasks mit Visiativ myCADtools - Jetzt Kostenlos testen >>, eine Pressemitteilung
|
Autor
|
Thema: Makro für Export in STEP214 (4965 mal gelesen)
|
Luschtinetz Mitglied Konstrukteur / Programmierer für CNC-Maschinen
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Luschtinetz](/foren/ubb/pmimages/gbu.gif) Beiträge: 47 Registriert: 29.09.2008
|
erstellt am: 02. Aug. 2012 19:43 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
Hallo, ich habe mir aus der MakroMania-Tauschbörse das Makro für PDF- und DXF Export geholt und für Step überarbeitet. Leider wird die Step-Datei immer als STEP203 gespeichert und nicht als STEP214. Hier mein Code:
Code:
Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Dim FeatureData As Object Dim Feature As Object Dim Component As Object Dim Step As Long Dim saveFileName As String Sub main()Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc Set SelMgr = Part.SelectionManager If (swApp.ActiveDoc.GetPathName = "") Then 'Abfrage ob Name vergeben wurde MsgBox ("Bitte zuerst Teil speichern!") Exit Sub End If Step = swApp.SetUserPreferenceIntegerValue(swStepAP, 214) saveFileName = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 6) + "Step" ' Speichern als Step-Datei Part.SaveAs2 saveFileName, 0, True, False Part.Save2 False Name = Part.GetPathName() swApp.CloseDoc Name End Sub
Kann mir bitte jemand auf die Sprünge helfen, wo mein Fehler ist?Vielden Dank im Voraus. Gruss Klaus Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
StefanBerlitz Guter-Geist-Moderator IT Admin (CAx)
![](/foren/avatars/StefanBerlitz.gif)
![Schreiben Sie einen Gästebucheintrag für StefanBerlitz](/foren/ubb/pmimages/gbu.gif) Beiträge: 8756 Registriert: 02.03.2000 SunZu sagt: Analysiere die Vorteile, die du aus meinem Ratschlag ziehst. Dann gliedere deine Kräfte entsprechend und mache dir außergewöhnliche Taktiken zunutze.
|
erstellt am: 03. Aug. 2012 09:02 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Luschtinetz
Hallo KLaus, bei mir läuft das Makro direkt so wie es soll, es wird eine STEP Datei in AP214 im Verzeichnis des aktiven Teils erstellt und dann das Modell geschlossen. Was klappt denn bei dir nicht, bzw. bekommst du eine Fehlermeldung? Wenn es auf AP203 bleibt, der Rest aber klappt, kann es ja nur an der Zeile liegen, wo du umstellst auf AP214:
Zitat: Original erstellt von Luschtinetz:
Code: Step = swApp.SetUserPreferenceIntegerValue(swStepAP, 214)
Deine Rückgabevariable hast du zwar als Long deklariert und du bekommst ein Boolean zurück, aber das wird implizit umgewandelt und ist kein Problem. Es kann in meinen Augen also nur sein, dass du den Verweis auf die Konstanten nicht eingebunden hast, das Makro infolgedessen das swStepAP nicht zu 75 auflöst (das ist der Wert der Konstanten) sondern zu 0 und damit nicht das Step-Saveformat umstellt, sondern die DXF-Version (Const swDxfVersion ist der Wert 0 bei den Konstanten ![](/foren/ubb/zwinker.gif) ). Am schnellsten kannst du das prüfen, indem du in der Zeile statt swStepAP eben 75 reinschreibst oder unter Extras/Verweise die zu deiner Version passende Konstanten einbindest. Ciao, Stefan ------------------ Inoffizielle deutsche SolidWorks Hilfeseite http://solidworks.cad.de
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Luschtinetz Mitglied Konstrukteur / Programmierer für CNC-Maschinen
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Luschtinetz](/foren/ubb/pmimages/gbu.gif) Beiträge: 47 Registriert: 29.09.2008
|
erstellt am: 03. Aug. 2012 09:18 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
Hallo Stefan, vielen Dank für deine Antwort. Nach der Änderung, die Du mir empfohlen hast, funktioniert das Makro wie gewünscht. Zitat: Am schnellsten kannst du das prüfen, indem du in der Zeile statt swStepAP eben 75 reinschreibst oder unter Extras/Verweise die zu deiner Version passende Konstanten einbindest.
Den Code für die Umstellung hatte ich aus dem Solidworks-Forum (ich bin nicht der Makro-Profi, meine bisherigen Makros sind alle aus der Tauschbörse). Gruss Klaus Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Jethro Mitglied Techniker
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Jethro](/foren/ubb/pmimages/gbu.gif) Beiträge: 75 Registriert: 10.12.2018 Win 10 SWX 2021 SP 3
|
erstellt am: 21. Mrz. 2022 14:02 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Luschtinetz
Hallo liebe Makrobenutzende Solidworks-Gemeinde Ich stehe genau vor der selben Aufgabe, aus SWX -Dateien STEP-Dateien zu erzeugen. Da ich noch nie Makros verwendet habe, möchte ich kurz nachfragen, ob dieses spezielle Makro oben auch unter SWX 2021 funktioniert. Hat das schon jemand probiert? Die Makroinstallation muss ich mir ebenso anschauen, aber das mache ich am besten ersteinmal selbst und frage dann gezielt nach. Danke für Eure Tipps Jethro Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bk.sc Ehrenmitglied V.I.P. h.c. Konstrukteur Sondermaschinenbau
![](/foren/avatars/bk.sc.gif)
![Schreiben Sie einen Gästebucheintrag für bk.sc](/foren/ubb/pmimages/gbu.gif) Beiträge: 2782 Registriert: 18.07.2012 -Solid Works 2019 SP5 -Pro Engineer WF 3
|
erstellt am: 21. Mrz. 2022 15:33 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Luschtinetz
Hallo Jethore, die SWX API ist so aufgebaut dass 99,9% der Methoden auch in zukünftigen Versionen problemlos funktionieren. Im Macro oben sehe ich jetzt auch nichts was Probleme verursachen könnte. Da es hier um ein VBA Macro geht wird dieses nicht installiert wie z.B. ein Add-Ins, dieses wird einfach nur aus der SWX Umgebung heraus ausgeführt (analog Excel VBA). Gruß Bernd ------------------ --- Man muß nicht alles wissen, man muß nur wissen wo es steht --- Staatlich anerkannte Deutschniete ![](/foren/ubb/zwinker.gif) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Jethro Mitglied Techniker
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Jethro](/foren/ubb/pmimages/gbu.gif) Beiträge: 75 Registriert: 10.12.2018 Win 10 SWX 2021 SP 3
|
erstellt am: 22. Mrz. 2022 07:32 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Luschtinetz
Hallo Bernd Ich habe das Makro erfolgreich getestet, sowohl in SWX 2017 als auch in SWX 2021. Zur Erstellung habe ich die in Solidworks integrierte Microsoft-VBA-Konsole benutzt, die sich über Extras >> Makro >> Neu/ Bearbeiten aufrufen lässt. Das letzte mal Visual Basic ist schon sehr lange her, aber es hat dennoch problemlos geklappt, in diesem Fall per Copy und Paste des Codes aus dem Thread von Klaus. Es funktioniert tadellos. Die geöffneten SLDPRT-Dateien werden auf Knopfdruck einzeln als STEP-Dateien im selben Ordner unter selben Namen gespeichert, Baugruppen ebenso. Was für eine Hilfe. Herzlichen Dank an alle. Jethro Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
deckelmaho Mitglied Konstrukteur
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für deckelmaho](/foren/ubb/pmimages/gbu.gif) Beiträge: 239 Registriert: 03.03.2020 SolidWorks 2023 SP5 Windows 10 64bit Office 2019
|
erstellt am: 23. Mrz. 2022 09:39 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Luschtinetz
|