---

Hi, sorry dass ich so eine Anfängerfrage stellen muss aber ich kann nichts finden was mir hilft und es macht mich fast Wahnsinnig.

Mein Code:

Path = "C:\"
Set MyRoot = CATIA.Documents.Open(Path & "\HANS.CATProduct")
Set MyInsert = CATIA.Documents.Open(Path & "\EGON.CATPart")

MyRoot.Product.Products.AddComponent (MyInsert.Product)

Die Letzte Zeile, welche das geöffnete Part EGON.CATPart in das geöffnete Produkt HANS.CATProduct einfügen soll bringt einen Fehler.

Weis wer warum bzw. was ich falsch mache?

PS: AddComponentsFromFile kann ich nicht verwenden da ich die Parts erst öffne und aufbereite und erst ganz zum Schluss zu einer Produktstruktur zusammenbauen darf. Diese Zwischenschritte habe ich hier aus dem Code herrausgenommen und es geht trotzdem nicht, liegt also nicht an denen.

Danke für jegliche Hilfe!

------------------
MfG,
Florian Held

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

---

Hallo Florian,

du versuchst das falsche Objekt zu der Collection in dem Produkt hinzuzufügen. Die AddComponente Methode verlangt ein RefernceProdukt. Du versuchst ein PartDocument hinzuzufügen und da entsteht ein Fehler.

Schau dir mal folgenden Code an. Die wichtigen Zeilen hab ich fett markiert.

Code:

---

Sub CATMain()

Dim oProdDoc As ProductDocument
Dim oProd As Product
Dim oPartDoc As PartDocument
Dim oPart As Product
Dim Doc As Documents

Set Docs = CATIA.Documents
Set oProdDoc = CATIA.ActiveDocument
Set oProd = oProdDoc.Product

Set oPartDoc = CATIA.Documents.Open("D:\Workfolder\Catia Files\CAD.de \AddSectionToLoft.CATPart")

Set oPart = oPartDoc.Product
Set iRefPart = oPart.ReferenceProduct

oProd.Products.AddComponent (iRefPart)

End Sub

---

EDIT: Sorry da war irgendwie ein Anhang dabei 

------------------
MFG Daniel

Die KATJA ist halt doch nur ne zickige Französin

   

[Diese Nachricht wurde von denyo_1 am 23. Jan. 2009 editiert.]

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

---

Hi,

alles klar, dann war .referenceproduct der Baustein auf den ich nicht kam:

Code:

---

Path = "C:\"
Set MyRoot = CATIA.Documents.Open(Path & "\HANS.CATProduct")
Set MyInsert = CATIA.Documents.Open(Path & "\EGON.CATPart")

MyRoot.Product.Products.AddComponent (MyInsert.Product.ReferenceProduct)

---

Funktioniert spitze, 1000 Dank und 10 U's

------------------
MfG,
Florian Held

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