---

Hallo

Ich lade ein bestehendes Product mit Neu Aus und muss dann alle parts händisch umbenennen. Gibt es dafür ein Makro?   Ich habe schon im Forum gestöbert und etwas gefunden. Leider ist die Seite auf der dieses Makro zu finden sein soll veraltet und das Makro nicht mehr auffindbar.
Es muss eine suchen&ersetzen Funktion haben. Glaub ich...

LG Lutz293

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

---

Habs doch noch im Forum gefunden!!!

Sub CATMain()

String5 = Inputbox ("Eingeben welcher Name oder Nummer ersetzt werden soll!!! ", "Test")
String3 = Inputbox ("Zu ersetzenden Namen oder Nummer eingeben", "Test")

    Set productDocument1 = CATIA.ActiveDocument 
    Set selection1 = productDocument1.Selection 
    selection1.Search "(CATAsmSearch.Part),all"
    For i = 1 To selection1.Count     
        Set productDocument1 = CATIA.ActiveDocument     
        Set product1 = productDocument1.Product   
        Set products1 = product1.Products     
        Set product2 = products1.Item(selection1.Item(i).Value.Name)
        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

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