---

Hallo,
ich bin seit Tagen verzweifelt auf der Suche nach einer Idee zur Programmierung meines CatScripts zur Lösung eines Problems.

Ich habe in einem Ordner "x:\..\ABCD\EFG1\00001\" den Catia Process "EFG1ABCD00001_abcdfghijk.CATProcess" mit einem Unterprojekt "EFG1ABCD00001_abcdfghijk.CATProject" und ca. 7-9 Unterparts "EFG1ABCD00001_abcdfghijk1-9.CATPart".

Nun möchte ich diesen Process von "x:\..\ABCD\EFG1\00001\" nach "x:\..\WXYZ\EFG1\00001\" senden und gleichzeitig alle Dateien von EFG1ABCD00001_abcdfghijk nach EFG1WXYZ00001_abcdfghijk umbenennen.

Auch möchte ich die Teilenummer und die Bezeichnung im Product ändern.

Zusammengefasst kann man sagen ich möchte einfach in sämtlichen Dateinamen, Bezeichnungen und Teilenummern das ABCD durch ein WXYZ ersetzen und dann das ganze in ein anderes Verzeichnis senden.

Hat jemand eine Idee?
Ich habe leider überhaupt keine Ahnung von VBA...und ich muss ca 100 Prozesse verschieben und im Moment öffne ich jeden Prozess mit "Neu aus" und gebe dann per Hand allen einen neuen Dateinamen und dann ändere ich per Hand jede Bezeichnung und Teilenummer.
Habe jetzt schon 10 Stunden hinter mir und bin erst bei 10 Prozessen....

Ich wäre über jede Hilfe dankbar!!!

DAnke schon einmal im vorraus!!

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

---

Servus
Jetzt bist du richtig.
Bitte Suchfunktion nutzen (13 Beiträge tiefer findest du schon einen erste Diskussion zu solch einem Thema)

Gruß
Bernd

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

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

---

Hallo Bernd,

danke für die Hilfe, dies war mein erster Post hier im Forum und ich war etwas überfordert =)
Der andere Threat zum Thema umbenennen hilft mir ein klein wenig, ich habe es schon geschafft das sich etwas an der ItemPartNumber ändert!

Ich werde mich wohl noch ein wenig durchbeißen müssen, aber im Moment komme ich kaum weiter

Vielen Dank =)

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

---

Ich habe jetzt diesen Code:

Code:

---

Sub CATMain()

String5 = "ABCD"
String3 = "WXYZ"

    Set productDocument1 = CATIA.ActiveDocument
    Set selection1 = productDocument1.Selection
    selection1.Search "(CATAsmSearch.Product),all"

    For i = 1 To selection1.Count
        Set productDocument1 = CATIA.ActiveDocument
        Set product1 = productDocument1.Product        Set products1 = product1.Products
        Set product2 = selection1.Item(i).Value
        String2 = product2.PartNumber
        String4 = product2.Name
        Dim Text1, Text2, Text3, Vergleich, Text4
        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

---

Doch er wirft mir den Fehler raus das er wenn ich es in einem Process Starte, dass er "Set product1 = productDocument1.Product" nicht verwenden kann da er ja in einem Process ist. Wie kann ich jetzt sagen das er sich immer auf das Hauptprodukt im Process beziehen soll?

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

---

Naja ich öffne jetzt einfach das Product und dann gehts =)
Jetzt wäre es nur noch interessant wie ich das:

1. Neu öffnen aus
2. Alles einzeln umbenennen
3. Öffnen
4. Speichern in neuem Ordner

umgehen kann =)

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