---

produkt.jpg

Hallo alle miteinander!

Ich möchte gern ein Part im Produkt anklicken und sowohl die Teilenummer (PartNumber) als auch den Exemplarnamen (Name) umbenennen.

Ich Arbeite mit R14

So sieht mein Code bis jetzt aus:

Sub CATMain()

    Dim EnableSelectionFor(0)
    EnableSelectionFor(0) = "Product"
   
    Set SelectedElements = CATIA.ActiveDocument.selection
   
    SelectedElements.Clear

    UserSelection = SelectedElements.SelectElement(EnableSelectionFor, "Part waehlen", True)
   
   
    Set AusWahlPart = SelectedElements.Item(1).Value

'Wiedergabe vor Aenderung
MsgBox AusWahlPart.PartNumber & Chr(10) & AusWahlPart.Name

'Aenderung Teilename
AusWahlPart.PartNumber = AusWahlPart.PartNumber & "Geaendert"

'Aenderung Exemplarname
AusWahlPart.Name = AusWahlPart.Name & "Geaendert"

'Wiedergabe nach Aenderung
MsgBox AusWahlPart.PartNumber & Chr(10) & AusWahlPart.Name

End Sub

Das funktioniert einwandfrei wenn ich ein Part anklicke, das sich im Hauptprodukt befindet.
Nehm ich eins, das sich in einem Unterprodukt befindet, dann ändert er nur den Teilenamen, aber nicht den Exemplarnamen. Bringt aber auch keine Fehlermeldung.

Kann ich das irgendwie ändern?

Vielen Dank schonmal!

Gruß
Bobby

------------------
Du musst die Leute einmal richtig ärgern, dann wirst du endlich ernst genommen.
Konrad Adenauer

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