---

Hallo,

ich möchte in die Exemplarnamen von allen Parts in einem Produkt in mit Hilfe eines Makros ändern.
Wie kann ich alle Parts in einer Liste oder ähnlichem verarbeiten?

Gruß Holger

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

---

Hallo Holger!

Hier mal ein kleines Beispiel wie sowas aussehen kann:

Sub CATMain()
    Set productDocument1 = CATIA.ActiveDocument   
    Set selection1 = productDocument1.Selection   
    selection1.Search "CATProductSearch.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)         
        product2.Name = selection1.Item(i).Value.Parent.Parent.Name & " / " & selection1.Item(i).Value.Name       
    Next i
End Sub

Ciao
Max

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

---

Image1.jpg

Danke für die schnelle Antwort.
Leider läuft das Makro bei mir nicht.
Die Fehlermeldung ist im Anhang.

Dennoch denke ich der Ansatz hilft mir schon weiter.

Gruß Holger

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

---

okay, dann schreibst du vermutlich mit CATScript, da brauchts das i nicht, aber die Language-Zeile:

Language = "CATScript"
Sub CATMain()
    Set productDocument1 = CATIA.ActiveDocument   
    Set selection1 = productDocument1.Selection   
    selection1.Search "CATProductSearch.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)         
        product2.Name = selection1.Item(i).Value.Parent.Parent.Name & " / " & selection1.Item(i).Value.Name       
    Next
End Sub

das müsst laufen!
die "product2.Name ="-Zeile kannst du auch
beliebig an deine bedürfnisse anpassen. (zB :

product2.Name = "Neuer_Part_Name_" & i

oder dergleichen, die möglichkeiten und verknüpfungen sollten durch die beispiele klar werden)

Ciao
Max

[Diese Nachricht wurde von MaxZ am 19. Jul. 2005 editiert.]

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

---

Super!!!
Jetzt hat's geklappt.
Danke.

Gruß Holger

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