---

Hallo,

ich habe eine Produktstruktur in der mehere PartŽs verbaut sind, unter anderem auch mehrfach gesetzt.(Instance). Jetzt möchte ich ein Element aus einem mehrfach gesetzten Part kopieren, z.B. eine Line, und in ein neu erstelltes Part einfügen.
Das klappt soweit auch, außer mit Elemnten aus den mehrfach gesetzen PartŽs.
Hier kopiert er mir immer die Line aus der ersten Instance.
Wo liegt der Fehler bzw. wie bekomme ich die Line aus der zweiten Instance.

------------------
Willi

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

---

Servus
Wie sieht den dein Code aus?

Gruß
Bernd

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

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

---

Hallo Willi,

hier wird das Problem ausführlich diskutiert...

Gruß
CAMiCADse

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

---

Hallo Bernd

anbei einen Ausschnitt aus meinem Code mit dem ich das Element mittels einer Referenz erstelle, und ins neue Part "Test" / GeometricalSet "Ziel" einfügen möchte.

Schnipp--------------------------------
Dim UserSel
Set UserSel = CATIA.ActiveDocument.Selection
UserSel.Clear

Filter(0) = "Line"
'Filter(0) = "Body"
Vorlage.Hide
On Error Resume Next
Dim oNewPart As Document
Set oNewPart = oProds.AddNewComponent("Part", "TEST")
'---------------------------------------------------
oUserEle = UserSel.SelectElement2(Filter, "Bitte Achse selektieren", False)
'---------------------------------------------------
If oUserEle = "Normal" Then
    oUserSelName = UserSel.Item2(1).Value.Name
    nLenName = Len(UserSel.Parent.Name)
    nPos = InStr(UserSel.Parent.Name, ".")
    X = UserSel.Item2(1).Value.Name
    Z = UserSel.Item2(1).LeafProduct.Name
    Y = Mid(UserSel.Parent.Name, 1, (nLenName - 11)) '***(nPos + 2)))
    PathReferenz = Y & "/" & Z & "/!" & X
    Dim oDocS As Documents
    Set oDocS = CATIA.Documents
    Set oRef = CATIA.ActiveDocument.Product.CreateReferenceFromName(PathReference)
End If

Dim oDoc2 As Document
Set oDoc2 = oDocS.Item("TEST.CATPart")
oDoc2.Activate

Dim oPart2 As Part
Set oPart2 = oDoc2.Part
Dim oPasteObj As HybridBodies
Set oPasteObj = oPart2.HybridBodies.Item("ZIEL")

On Error Resume Next

oSelection.Clear
oSelection.Add oRef
oSelection.Copy
oSelection.Add oPasteObj
oSelection.PasteSpecial "CATPrtResultWithOutLink"

---Schnapp

Mit einem Body hat es gekappt, dort habe ich bei der Erstellung von "PathReferenz" den Zusatz " Y & "/" &" entnommen.
Den Code bereinigen, säubern ec muss ich noch.;-)

------------------
Willi

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