---

Testbaugruppe.zip

Hallo zusammen,
ich versuche den Instance Name eines selektierten Products entsprechend dem PartName zu benennen. Funktioniert leider nur auf der obersten Strukturebene.
Hat jemand eine Idee woran das liegen könnte? (Im Anhang befindet sich ne Testbaugruppe, zum Nachvollziehen)

Vielen Dank für die Hilfe

Code:

---

Sub CATMain()
    Dim tSelection As Selection
    Set tSelection = CATIA.activeDocument.Selection
   
    Dim tProduct As Product
    Set tProduct = tSelection.Item(1).LeafProduct
   
    tProduct.name = "Hubeldidub.2"

End Sub

---

------------------
                  \\\\|////
                  \\ _ _ //
                   ( o o )
================oOOo-(_)-oOOo==================
    The next time you think you are perfect,
           try walking on water
========================Oooo===================
                  oooO  (  )
                  (  )  ) /
                   \ ( (_/
                    \_)

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

---

Hallo

schau mal hier.
Da sollte was dabei sein für dich !!

------------------
Sei Schlau bleib Dumm !!?!! 

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

---

Hallo,
erst einmal vielen Dank für die Antwort. Konnte mir aus den Skripten was zusammen basteln was funktioniert (siehe unten)

Jetzt ist es aber so, dass diese Skripte die komplette Produktstruktur durchlaufen, bis sie das gewünschte Product finden. Bei vielen Bauteilen ist dieses Skript sehr langsam. Daher wollte ich es über die Selection machen. Kennt daher jemand einen Lösungsansatz für die Umbennennung des Instance-Name über das SelectedElement?

Vielen Dank.

Code:

---

Private Sub RenameInstanceInProduct(ByRef pProductBase As Product, ByRef pProductToRename As Product, ByVal pName As String)
    Dim tProducts As Products

    If pProductBase.name = pProductToRename.name Then
        pProductBase.name = pName
        Exit Sub
    Else
        For i = 1 To pProductBase.Products.Count
            RenameInstanceInProduct pProductBase.ReferenceProduct.Products.Item(i), pProductToRename, pName
        Next
    End If
End Sub

---

------------------
                  \\\\|////
                  \\ _ _ //
                   ( o o )
================oOOo-(_)-oOOo==================
    The next time you think you are perfect,
           try walking on water
========================Oooo===================
                  oooO  (  )
                  (  )  ) /
                   \ ( (_/
                    \_)

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