---

Hallo Zusammen,

wir müssen gerade einem externen Fertiger öfters 3D-Daten im .step Format zur Verfügung stellen. Da man (ich  ) natürlich faul bin, wollte ich mir ein einfaches Makro erstellen, welches mir aus einem geöffneten 3D-Teil ein STEP erzeugt und abspeichert. Funktioniert auch soweit, allerdings schaffe ich es einfach nicht den Dateinamen auszulesen. Hier steht halt immer der gleiche.

Kann mir hier jemand bitte helfen?

MFG Martin

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

' Save As
longstatus = Part.SaveAs3("C:\Users\Mleber\Desktop\3D\HIER_MUSS_DER_DATEI_NAME_HIN.STEP", 0, 0)
End Sub

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

---

Hallo Martin
Schau mal hier

https://ww3.cad.de/foren/ubb/Forum2/HTML/032594.shtml

Da ging es zwar um PDFs aber sollte dir etwas weiterhelfen.

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

---

Sorry, ich komm da nicht klar. Bin kein Programmierer.

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

---

Hallo Martin,
und wenn du gleich mehrere erzeugen möchtest, dann schau mal hier vorbei.

http://ww3.cad.de/foren/ubb/Forum2/HTML/030730.shtml

Neueste Version ganz unten.

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

---

Hallo,
das find ich zwar richtig cool, allerdings ist es auch nichts für mich. Der Fertigt schickt uns eine Mail mit Artikelnummern. Diese Artikelnummern öffnen wir bei uns und wollen auch nur diese eine als STEP speichern. Bei dem aufgezeichneten Makro kann doch nicht so viel fehlen, da muss doch "nur" der Name der geöffneten Datei als Dateiname eingesetzt werden. Ich hab wie gesagt leider keine Ahnung von programmieren 

Gruß

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

---

Dann schau doch mal hier

http://ww3.cad.de/foren/ubb/Forum2/HTML/032458.shtml#000011

hier kannst du den Code aus meiner ersten Antwort einfach übernehmen, du musst nur .dxf durch .step ersetzten.

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

---

OH ich danke dir mein Freund     

Hier nochmal der Code für N00bs wie mich 

Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Public modelName As String

Dim longstatus As Long
Dim longwarings As Long
Dim boolstatus As Boolean

Sub main()

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc

modelName = swModel.GetTitle

longstatus = swModel.SaveAs3("C:\Users\Mleber\Desktop\3D\" + modelName + ".STEP", 0, 0)

End Sub

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

---

Hallo,

die Zeile:

"modelName = swModel.GetTitle"

ist ohne zusätzlich eingebaute Prüfung im Makro eher nicht so toll, da hier der Rückgabewert abhängig von den Einstellungen in Windows ist und zwei verschiedene Ergebnisse möglich sind, einmal mit und einmal ohne die Endung.

Wenn es natürlich kein Problem ist wenn eine Datei an dem einen Rechner Bauteilname.STEP heißt und an einem anderen Bauteilname.SLDPRT.STEP dann kann man die Zeile auch so verwenden.

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