---

Hallo,
ich fange gerade mit CATVBA an und habe möchte ein bereits als Datei vorhandenes Part in ein geöffnetes Produkt einfügen.

Code:

---

Sub PartInsert()

    Dim PListe As Products
    Set PListe = CATIA.ActiveDocument.Product.Products
   
    Dim oPartDoc As Document
    Set oPartDoc = CATIA.Documents.Open("C:\Points.CATPart")

    Dim oNewComponent As Product
    Set oNewComponent = PListe.AddExternalComponent(oPartDoc)

End Sub

---

Das funktioniert auch soweit. Allerdings wird jetzt immer noch ein zweites Fenster mit dem Part Points geöffnet. Weiß jemand, wie ich es erreichen kann, dass das Part in das Produkt eingefügt wird ohne dass ein zusätzliches Fenster geöffnet wird?

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

---

Hallo,
mach doch einfach nach dem Einfügen das Part wieder zu:
oPartDoc.close

SG

Jens Hansen

------------------
Inoffizielle CATIA-Hilfeseite
Homepage von Jens Hansen
Kochbuch - CATIA V5 automatisieren

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

---

Hallo,
danke für deine Antwort. Ich dachte, vielleicht gibt es ja noch eine elegantere Lösung.

Grüße

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

---

Hallo,

versuche es mit
Set oPartDoc = CATIA.Documents.Read("C:\Points.CATPart")

Gruß,
Zoltan

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

---

Okay, danke für die Antworten!

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