---

Hallo Ihr,

ich hab mal wieder was zum knobeln.

Ich habe einen Prozess vom NC-Programmmieren und dieser besteht aus den Dateien:

AAA1XXXX11111_AAAAAAAA.CATProcess
AAA1XXXX11111_BBBBBBBB.CATProduct (PartNumber: AAA1XXXX11111_BBBBBBBB, Name: AAA1XXXX11111_BBBBBBBB)
AAA1XXXX11111_CCCCCCCC.CATPart (PartNumber: AAA1XXXX11111_CCCCCCCC, Name: AAA1XXXX11111_CCCCCCCC)
AAA1XXXX11111_DDDDDDDD.CATPart (PartNumber: AAA1XXXX11111_DDDDDDDD, Name: AAA1XXXX11111_DDDDDDDD)
AAA1XXXX11111_EEEEEEEE.CATPart (PartNumber: AAA1XXXX11111_EEEEEEEE, Name: AAA1XXXX11111_EEEEEEEE)

Und alle Dateien incl. CATProcess befinden sich im Ordner C:\XXXX\11111\

Ich möchte nun den aus allen Dateinamen, Teilnummern und Exemplarnamen das "XXXX" durch ein "YYYY" ersetzen und die Dateien in den Ordner C:\YYYY\1111\ verschieben..

Im Grunde heißt das doch, dass ich die Process, Product und Part Dateien im Editor öffnen könnte und einfach per "Ersetzen" XXXX mit YYYY austauschen lasse, jedoch kommt dann eine Fehlermeldung wenn ich die Dateien wieder in Catia öffnen möchte.

Ich würde nun gerne ein Makro schreiben, das mir egal wo im Process den String "XXXX" mit "YYYY" ersetzt ohne dabei Einfluss auf Fräskonturen und anderen Verknüpfungen zu haben, alles soll am Ende erneut funktionieren.

Grund der ganzen Geschichte ist die Umbenennung sehr vieler Processe (120ST mit jeweils 10-15 Produkten) mit einer Neuen Artikelnummer.

Code:

---

Sub CATMain()

String5 = "XXXX"
String3 = "YYYY"

Set productDocument1 = CATIA.ActiveDocument
    Set selection1 = productDocument1.Selection

    selection1.Search "(CATAsmSearch.Product),all"

    For i = 1 To selection1.Count
    Set product2 = selection1.Item(i).Value
        String2 = product2.PartNumber
        String4 = product2.Name
        Dim Text1, Text2, Text3, Vergleich, Text4, Vergleich2
        Text1 = String2
        Text2 = String5
        Text3 = String3
        Text4 = String4
        Vergleich = Replace(Text1, Text2, Text3)
        product2.PartNumber = Vergleich
        Vergleich2 = Replace(Text4, Text2, Text3)
        product2.Name =        Vergleich2

Next

End Sub

---

Diesen Code habe ich hier im Forum gefunden jedoch benennt es mir nur die PartNumber um und nicht den product2.Name. Außerdem werden alle Fräskonturen verändert und der Process läuft nicht mehr wie vorher.

Ich komme leider selber nicht dahinter was ich machen muss...

Vielen Dank schon einmal im vorraus für Tipps und Hilfen

Die Catia interne V5 Automatisierungs Hilfe habe ich schon versucht als Hilfe zu benutzen aber da versteh ich leider gar nichts....und im großen weiten Internet finde ich keine Hilfe mehr...mir fehlen einfach die Grundlagen und ich weiß nicht mal wie man im Process die Producte anspricht...

Schonmal Danke Danke Danke

[Diese Nachricht wurde von netattack am 18. Sep. 2013 editiert.]

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

---

Servus
Dazu findest du sicher schon was im Forum (oder auch hier (ungetestet)??).
Dazu muss die Baugruppe (bei dir ggf der Porcess) rekursiv durchgearbeitet werden, für jedes Dokument ein SaveAs und die PartNumber korrigieren.
Ggf geht auch dein vorhandenes Script, wenn du mit "NewFrom" ein Kopie deines Process (mit Parts und Products) erstellst, das Umbenennen ausführst und erst dann speicherst.

Gruß
Bernd

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

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

---

Super danke Bernd,
der Tipp mit dem speichern erst nach dem Umbenennen hat funktioniert.
Was ich nur noch nicht verstehe ist, warum er nur die PartNumber umbenennt und nicht den Exemplarnamen.
Hast du da auch einen Tipp?

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