---

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

---

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   ).

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

---

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

---

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

---

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 

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

---

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

---

Hi Jethro,

ich habe für alle die keine VBA Kenntnisse mitbringen und trotzdem automatisieren wollen ein Tool für SOLIDWORKS gebastet.

Das ist das Feature PartSaveAs
https://www.youtube.com/watch?v=Ylk0QK4i81g&t=27s

Vielleicht macht es das was du möchtest und vielleicht auch etwas mehr...

Hier sind noch Videos der anderen Feature und wie du das Tool einrichten kannst.
https://swxtools.de/tutorials/

Beste Grüße
Kevin

------------------
HOMEPAGE | SWXTools.de - SWXHelper für SOLIDWORKS
KONTAKT | support@swxtools.de
FACEBOOK | facebook.com/SWXHelper
TWITTER | twitter.com/SWXTools

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