---

Hallo,

ich möchte in einem Produkt alle Parts umbenennen und unter neuem Namen speichern. Das heißt ich muss auf die Instance Names und die Part Number und anschließend auch auf den Part Namen unter, dem es gespeichert ist, zugreifen.
Struktur ist wie folgt:

Produkt_X
  |
  PartNumber1(Part1.1)    [Bauteilname: Part1.CATPArt]
  |
  PartNumber2(Part2.1)    [Bauteilname: Part3.CATPArt]
  |
  PartNumber3(Part3.1)    [Bauteilname: Part3.CATPArt]

Ich suche über eine Selection zuerst das Produkt_X (dieses könnte in einen weiteren Überprodukt sein) und anschließend in diesem alle Parts. Dann habe ich alle 3 Parts in der Selection. Von jedem Item der Selection sollen nun die Namen ausgelesen und geändert werden.
Die neuen Namen kriege ich über eine Excel-Datei, die ich auslese und dem alten Namen einen neuen zuordne (Wie das funktioniert weiß ich).

Was ich nun nicht weiß, ist, wie ich von z.B. Liste.Item(1) auf den InstanceName und die PartNumber zugreifen kann.
Programmiere mit CATScript.

Kann mir da jmd helfen?
Danke schon mal im Voraus
  Dadi

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

---

Hallo Dadidldi,

zu diesem Thema gibt es im Forum Beiträge wie Sand am Meer.
Die übliche Vorgehensweise ist: vor dem Fragen erst einmal die Such-Funktion benutzen und anschliessend Fragen stellen, wenn noch was unklar ist.

Gruß

------------------
tomtom1972

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

---

Hallo TomTom,

Selbstverfreilich habe ich die Suchfunktion benutzt!
Aber mein eigentliches Problem habe ich nicht gefunden. Zur Erklärung poste ich mal meinen bisherigen code:

Sub CATMain()

Dim Documents
Dim Produkt_X As Document
Set Documents = CATIA.Documents
Set Produkt_X = Documents.Item("PRODUKT_X.CATProduct")

'*************alle Parts suchen******************
Dim Liste As Selection
Set Liste = Produkt_X.Selection
Liste.Clear
Liste.Search "CATGmoSearch.PartFeature,all"                     
MsgBox("PartNumber: "  &Liste.Item(1).Value.Name)            '***Gibt  " PartNumber1 "  aus***

'*************neue Namen definieren - wird später auf eine Beziehung zur XLS-Datei erweitert**************
Dim PNumberNeu, INameNeu, PName As String
PNumberNeu = "PartNumber.renamed"
INameNeu = "InstanceName.renamed"
PName = "Partxyz"

Soweit komme ich. Aber ich kommen einfach nicht drauf, wie ich aus einem Item der Selektion auf den die Namen (also Instace Name, Part Number und den Namen unter dem es gespeichert ist) zugreifen kann.

Müsste ich nur ein Part ändern, würde ich das wie folgt machen:

Dim product1 As Product
Dim products1 As Products
Set product1 = Produkt_X.Product
Set products1 = product1.Products

Dim Produkt2 As Product
Set Produkt2 = products1.Item(1)
Dim Part1 As Document
Set Part1 = Produkt2.ReferenceProduct.Parent
MsgBox("Part Name: "  &Part1.Name)

Produkt2.Name = INameNeu                    '**********InstanceNaem ändern
Produkt2.partnumber = PNumberNeu          '**********PartNumber ändern
Part1.SaveAs ("C:\Documents and Settings\sd6291\Desktop\"  &PName      &".CATPart") '**********speichern unter...

End Sub

Ich vermute ich muss product1, Product2 und products1 irgendwie zu den Items der Selektion zuordnen. Versteh aber nicht wie.

Grüße
  Dadi

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

---

Servus
Hier findest du einen Beispiel wie man alle Parts einer Baugruppe durchgehen kann (auch rekursiv (mit Unterstrukturen))

Gruß
Bernd

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

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

---

Hallo Dadi,

warum über Selection? Das Leben ist viel einfacher, wenn der Baum rekursiv durchgelaufen wird. Dazu wirst du, wie es TomTom schon geschrieben hatte, einige Beispiele hier im Forum finden. Du kannst während der Durchlauf ein Array mit aller Parts füllen und später durch diesen iteriert umbenennen oder die Umbenennung gleich im rekursiven Durchlauf machen (da du an jeden Instanz was ändern willst).

Selection steht bei mir, wenn ich ein Problem versuche zu lösen, nicht ganz oben auf der Liste, da dadurch der Makrolauf "nicht schneller wird".

Gruß,
Zoltan

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

---

Hier  hast du einpaar Skripte als Beispiel

und hier würde ich mich auch mal durchklicken da sind auch noch beitrage die interessant sein könnten

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

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