---

Hallo zusammen,
ich möchte das erste Part im ersten Unterprodukt (oOldPart) ersetzen durch ein Part dessen Dateipfad (sNewPArt) bekannt ist.
Ich habe oOldPart sowie das Oberprodukt bereits identifiziert, kriege das ReplaceComponent aber nicht richtig gefüttert.
Was von den Objekten entsprechenden Objekten muss ich verwenden?

Code:

---

Sub CATMain()
    Dim oDocs As Documents
    Dim oDoc As Document
Dim oProds As Products
Dim oOldPart 'As ?
Dim oOldPartReference As Product '?
Dim oParentProds As Products

    Set oDoc = CATIA.ActiveDocument
    Set oDocs = CATIA.Documents
    Set oProds = oDoc.Product.Products
   
'Pfad der neuen Parts
sNewPart = "D:\temp\PART1.CATPart"

Set oOldPart = oProds.Item(1).Products.Item(1)
Set oOldPartReference = oOldPart.ReferenceProduct

MsgBox oOldPart.Name 'Instanzname des Altteils
MsgBox oOldPartReference.Name ' des Altteils
MsgBox oOldPartReference.Parent.Name 'Dateiname des Altteils
'MsgBox oOldPartReference.Parent.Product.PartNumber

Set oParentProds = oOldPart.Parent.Parent
MsgBox oParentProds.Name 'Instanzname des Oberprodukts
'---------Hier kommt die Fehlermeldung
Set oNewPart = oParentProds.ReplaceComponent(oOldPartReference, sNewPart, False)
End Sub

---

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

---

Servus

Du bist wohl per Parent eine Stufe zu hoch gegangen.

Code:

---

Set oOldPart = oProds.Item(1).Products.Item(1)
Set oParentProds = oOldPart.Parent.Parent
Set oNewPart = oParentProds.ReplaceComponent(oOldPartReference, sNewPart, False) 'vermutlich muss es hier die Instanz sein und nicht das ReferenceProduct

---

Gruß
Bernd

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

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

---

Wunderbar. Danke.

Code:

---

Sub CATMain()
    Dim oDocs As Documents
    Dim oDoc As Document
Dim oProds As Products
Dim oOldPart As Product
Dim oParentProds As Products
Dim sNewPart As String

    Set oDoc = CATIA.ActiveDocument
    Set oDocs = CATIA.Documents
    Set oProds = oDoc.Product.Products
   
'Pfad der neuen Parts
sNewPart = "D:\temp\PART1.CATPart"

Set oOldPart = oProds.Item(1).Products.Item(1)
Set oParentProds = oOldPart.Parent
oParentProds.ReplaceComponent oOldPart, sNewPart, False
End Sub

---

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