---

Hallo,
ich bräuchte ein ganz einfaches Makro, dass das gerade geöffnete Teil als step-Datei abspeichert.
Wie müsste das Makro aussehen?

Hoffe ihr könnte mir da kurz helfen,
Danke

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

---

Servus

Schon mal mit dem Makrorekorder probiert einen Einstiegspunkt für dein Makro zu bekommen?

Code:

---

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

partDocument1.ExportData "D:\TestPart.stp", "stp"

End Sub

---

Viel Spaß beim anpassen des Codes (zB Pfad und Dateiname aus dem Dokument übernehmen usw)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Danke für die Hilfe,
hat funktioniert. Falls noch jemand das Makro benötigt:

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

    DocName =partDocument1.Name
    DocPath = partDocument1.Path
    StpPath = DocPath & "\" & Left(DocName, Len(DocName) - 8) & ".stp"

partDocument1.ExportData StpPath, "stp"

End Sub

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

---

Die Dateiendung muss nicht im Namen nicht enthalten sein.

Code:

---

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

    DocName =partDocument1.Name
    DocPath = partDocument1.Path
    StpPath = DocPath & "\" & Left(DocName, Len(DocName) - 8)

On Error resume Next
partDocument1.ExportData StpPath, "stp"
partDocument1.ExportData StpPath, "3dxml"

End Sub

---

Das hat den Vorteil, dass du weitere Formate mit exportieren kannst, ohne den Dateinamen neu generieren zu müssen.

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