---

Hallo,

ich möchte mit einem Makro die Nomenclature in das Feld Instance Name und in das Feld PartNumber kopieren. Und das für die Gesamte Baugruppe bei allen Teilen (.Product & .Part).

Was ich schon geschafft habe, ist das Kopieren der Partnumber zu Instance Name mit der (hoffentlich) richtigen Nummerierung.

Das ganze sieht so aus:

Code:

---

Set Documents = CATIA.Documents

For Each Item In Documents

If Right(Item.Name, 10) = "CATProduct" Then

Set CurrentProduct = Item.Product.Products

For i = 1 To CurrentProduct.Count

CurrentPartnumber = CurrentProduct.Item(i).Partnumber

k = 1

For j = 1 To CurrentProduct.Count

CurrentLine = CurrentProduct.Item(j).Partnumber

If CurrentLine = CurrentPartnumber Then

CurrentProduct.Item(j).Name = CurrentPartnumber & "." & k

k = k + 1

End If

Next

Next

End If

Next

End Sub

---

Leider Schaffe ich es nicht, vorher die Nomenclature in das Feld Part Number zu kopieren.

Könnt Ihr mir da behilflich sein?

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

---

Servus

Probier es mal so:

Code:

---

...
For i = 1 To CurrentProduct.Count

CurrentProduct.Item(i).Partnumber = CurrentProduct.Item(i).ReferenceProduct.Nomenclature

CurrentPartnumber = CurrentProduct.Item(i).Partnumber

k = 1
...

---

Gruß
Bernd

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

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

---

Servus,

vielen Dank! Es funktioniert jetzt so wie es soll.

Danke und Gruß

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