---

Hallo, ich hätte ein Frage:

Ich habe da ein bestehendes step-Makro. Das Makro speichert mir das aktuell geöffnete Catia-Teil als step-Datei in den Ordner wo sich das Catia-Teil befindet. Soweit so gut. Ich möchte aber die Funktionalität des Makros noch erweitern.

Es soll mir am Ende des Dateinamens den Text „Rohteil“ dazuhängen.
Zum Beispiel wenn das Teil „54133134.stp“ hieße, dann soll er mir automatisch das step-file mit dem Namen „54133134_ Rohteil.stp“ erstellen.

Wie müsste ich das bestehende Makro umbauen, damit das funktioniert?

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

Hoffe ihr könnt mir da weiterhelfen,
Gruß Stefan

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

---

Hallo Stefan,

mit

Code:

---

StpPath = DocPath & "\" & Left(DocName, Len(DocName) - 8) &_ Rohteil& ".stp"

---

sollte das funktionieren.

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

---

Code:

---

Sub CATMain()
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

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

partDocument1.ExportData StpPath, "stp"
partDocument1.ExportData StpPath, "3dxml"

End Sub

---

Wenn du bei sPath die Dateiendung nicht vorgibst, kannst du ein einem Abwasch weitere Dateiformate exportieren. Die zugehörige Endung wird jeweils angehängt.

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

---

Das funktioniert perfekt,
Dankeschön!

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