---

Hallo Zusammen,

ich versuche gerade mehrere Veröffentlichungen von einem Part in das andere zu kopieren. Das funktioniert auch soweit. Nun möchte ich aber, das ein Kontext (also die grüne Kette am Part) beim Kopieren erzeugt wird. Das ganze mache ich natürlich in einer Produktstuktur. Ich habe hier im Forum leider noch keine passende Antwort gefunden.

hier der code, den ich verwende :

Code:

---

    sendepart.Parent.Activate
    Set sel1 = CATIA.ActiveDocument.Selection
    sel1.Clear

    Dim i
    i = 1
        For i = 1 To pubs.Count
       
            If ListView1.ListItems(i).Checked = True Then
                sel1.Add veroeff(i).Valuation
            End If
        Next
    sel1.Copy
    sel1.Clear

    empfaengerpart.Parent.Activate
    Set sel2 = CATIA.ActiveDocument.Selection
        sel2.Clear
        sel2.Add empfaengerpart
        sel2.PasteSpecial "CATPrtResult"
        empfaengerpart.Update

---

Ich habe schon mit der Selection rumgespielt, aber kein Ergebnis erziehlt. In Jens Hansen's Kochbuch ist das mit dem Activate beschrieben. Es hat aber bei mir anscheinend keine Funktion. Wenn ich es weg lasse funktioniert das kopieren trotzdem

Gibt es hierfür eine Lösung ?

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