---

Hallo,

Ich habe ein Referenzdatei die ich für die Konstruktion von Einzelteilen verwenden möchte.
Der Dateiname wir über einen Parameter (Teilenummer) gesteuert:
Nach ausführen eines Makros soll er die Dateien mit dem  Namen des Parameters (Dateibenennung)  im gleichen Verzeichnis neu speichern (Speichern unter ).
Wie sollte so ein Makro aussehen?

Danke

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

---

Servus

Für ein CATPart zB so:

Code:

---

Sub CATMain()

Dim oPartDocument As PartDocument
Dim oParameter as Parameter
Dim strFolderPath as String
Dim strPath as String

Set oPartDocument = Catia.ActiveDocument

Set oParmeter = oPartDocument.Part.Parameters.item("MyPartName")

strFolderPath = oPartDocument.Path

strPath = strFolderPath & Catia.FileSystem.FileSeparator & oParmeter.ValueAsString & ".CATPart"

oPartDocument.SaveAs strPath

End Sub

---

Gruß
Bernd

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

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

---

Danke funktioniert sehr gut.

Hab noch eine MsgBox hinzugefügt damit man sieht das die Datei gespeichert worden ist.

MsgBox ("Datei wurd gespeichert")

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