---

Hallo Zusammen,

ich versuche eine Publication zu erstellen aber irgendwo ist der Wurm hier mal mein Code:

Dim myPartDocument
Set myPartDocument = CATIA.ActiveDocument
Set mypart = myPartDocument.Part

Set Sel1 = myPartdocument.Selection
Sel1.Search "NAME =PartGeometry,all"

Set publication = myPart.publications.Add(" sel1.Item(1).Value.Name")

publications.SetDirect " sel1.Item(1).Value.Name", refPub

Wäre echt Dankbar wenn mir einer Helfen könnte....

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

---

Moin AndyKrenz,

nimm mal die Anführungszeichen weg:

Code:

---

Set publication = myPart.publications.Add(" sel1.Item(1).Value.Name")

publications.SetDirect " sel1.Item(1).Value.Name", refPub

---

dann sollte es fuktionieren.

Gruß
Proofin

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

---

Hallo Habe ich versucht er bringt dann Folgende Fehlermeldung....

Das objekt unterstützt diese eingenschaft oder Methode nicht 'mypart.publications'

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

---

High,

versuch mal die folgenden Änderungen in Deinem Code:

Code:

---

Dim myPartDocument
Set myPartDocument = CATIA.ActiveDocument
Set mypart = myPartDocument.Part
Set myProductDocument = myPartDocument.Product

Set Sel1 = myPartdocument.Selection
Sel1.Search "NAME =PartGeometry,all"

Set publication = myProductDocument.publications.Add(sel1.Item(1).Value.Name)

publications.SetDirect sel1.Item(1).Value.Name, refPub

---

Grüße, Alex

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