---

Getestet auf Win2k R12SP5 und WinXP R10Sp4

Ich möchte abc.1 in xyz.1 umbenennen
Folgende Productstruktur

+Part1(abc.1)
|
+Komponente + Part1(abc.1)
                      |
                      + Part1(abc.2)

Dann rufe ich dieses VBA-Makro auf:

Sub CATMain()
Dim MyProduct As ProductDocument
Dim MyProducts As Products

Set MyProduct = CATIA.ActiveDocument
Set MyProducts = MyProduct.Product.Products

MyProducts.Item(1).Name = "xyz.1"

MyProducts.Item(2).Products.Item(1).Name = "xyz.2"
MyProducts.Item(2).Products.Item(2).Name = "xyz.3"

End Sub

Nach dem ich die Eigenschaften der einzelnen Parts angeschaut habe, wurde die Anzeige auch teilweise aktualisiert.
Jedoch wurden die Namen in der Unterkomponente nicht geändert.

+Part1(xyz.1)
|
+Komponente + Part1(abc.1)
                      |
                      + Part1(abc.2)

Hat jemand einen Tip ???

------------------
Mit freundlichem Gruß von Carl Tenschert

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

---

Hallo Carl,

ich hatte dasselbe Problem und habe es folgendermaßen gelöst:
Wenn man sich einmal anschaut, was der Makrorekorder dazu ausspuckt, stößt man auf die Funktion GetItem.
Allerdings wird in der Hilfe darauf hingewiesen, dass man diese Funktion nicht(!) benutzen sollte.

Ich habe die Funktion trotzdem verwendet und es hat einwandfrei funktioniert.
In deinem Fall musst du die beiden Zeilen

MyProducts.Item(2).Products.Item(1).Name = "xyz.2"
MyProducts.Item(2).Products.Item(2).Name = "xyz.3"

durch folgende ersetzen:

MyProduct.GetItem(MyProducts.Item(2).PartNumber).Products.Item(1).Name = "xyz.2"
MyProduct.GetItem(MyProducts.Item(2).PartNumber).Products.Item(2).Name = "xyz.3"

P.S.:
Vielleicht solltest du dir angewöhnen, ein paar mehr Variablen mit sprechenderen Namen zu verwenden.
Dadurch liest sich ein Skript wesentlich leichter.

Mit freundlichem Gruß,
Günter

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

---

Erst mal danke für den Tip.
Habe das Makro On the Fly geschrieben, normaler weise verwende ich auch Normale Variablennamen. Hatte das Problem auch schon mit getitem gelöst.

------------------
Mit freundlichem Gruß von Carl Tenschert

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