---

Hallo,

ich möchte in einem PRoduct ALLE darin enthaltenen Products auf ALLEN Ebenen so umbenennen, dass der ursprüngliche Name duch Datum erweitert wird.

Mit meinem Code werden ALLE Products gefunden, in der Schleife auch deren Namen, aber umbenannt wird zum Schluss nur der Name des obersten Products.

Was ist in meinem Code falsch?

Hier mein Code:

        Dim myCatiaApp As INFITF.Application
        Dim myProduct As ProductStructureTypeLib.Product
        Dim myProductDoc As ProductStructureTypeLib.ProductDocument
        Dim myPartNumber As String

        myCatiaApp = GetObject("", "CATIA.Application")
        myProductDoc = myCatiaApp.ActiveDocument
        myProduct = myProductDoc.Product

        myCatiaApp.StartCommand("Expand All Levels")

        myProductDoc.Selection.Search("CATProductSearch.Assembly,all")

        For j = 1 To myProductDoc.Selection.Count()

            myPartNumber = myProductDoc.Product.Products.Item(j).Name

            myProduct = myProductDoc.Selection.Item(j).Value
            myProduct.PartNumber = myPartNumber & "-" & Now.Date()
        Next

End Sub

THX

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

---

Servus
Willst du alle CATProducts umbenennen und alle Products? (im CATPart ist auch ein Product enthalten das in ein CATProduct dann eingehängt wird).
Warum machst du eine Schleife über die Selection sprichst dann aber die Products-Collection an?

zB (ungetestet, bzw willst du nun die PartNumber oder den Name anpassen?)

Code:

---

For j = 1 To myProductDoc.Selection.Count()       
    mySubProduct = myProductDoc.Selection.Item2(j).Value 'ggf noch .ReferenceProduct
    myPartNumber = mySubProduct.myPartNumber
    mySubProduct.PartNumber = myPartNumber & "-" & Now.Date() 'kann das Product auch mehrfach vorkommen?
Next

---

Gruß
Bernd

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

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

---

Hallo Bernd,

danke inzwischen hatte ich es ( wohl mehr durch Zufall ) raus.

Das funktioniert gut mit umbenennen von PartNumber. Ich möchte zusätzlich auch für alle auch Instance Name ändern, weil die Änderung von PartNumber bei mir nur unter Properties nachvollziehbar ist, aber im Baum nicht sichtbar.

Für das Umbenennen von Instance Name habe ich in die Schleife dann eingebaut:
mySubProduct.Name = myPartNumber & "_" & Now.Date()

Die Umbenennung erfolgt, aber nur in der ersten Ebene. Ich erkenne den Unterschied nicht, warum PartNumber für alle geändert wird und Instance Name nur für die erste Ebene, wenn es doch in derselben Schleife passiert.

Danke.

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

---

Servus
Was hast du selektiert? Die Instanzen oder das Product selbst (bitte mit Watch-Fester prüfen (was ist das Parent?))
Auf catia.cad.de findest du ein Makro zum abgleichen der Instance-Names, schau dir das mal an.

Gruß
Bernd

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

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

---

Ich habe es nicht herausgefunden.
Habe schon alles durchprobiert :-(

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

---

Servus
Da der Exemplarename ja einzigartig sein muss, musst du IMHO sowieso mit einer Schleife die Products-Collection jedes Products (also CATProduct und Componente) abarbeiten.
ggf kannst du dann auch das von mir verlinkte Makro anpassen dass es die Benennung entsprechend deinen Wünschen anpasst.

Gruß
Bernd

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

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