---

Hallo,

ich hab ein kleines Problem bezüglich einer Publikation auf einen MainBody.
Ich hab folgenden Code erstellt.

Code:

---

Language="VBSCRIPT"

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim product1 As CATBaseDispatch
Set product1 = partDocument1.GetItem(CATIA.ActiveDocument.Part.Name)

Dim reference1 As Reference
Set reference1 = product1.CreateReferenceFromName(CATIA.ActiveDocument.Part.Name + "/!" + CATIA.ActiveDocument.Part.MainBody.Name)

Dim publications1 As Publications
Set publications1 = product1.Publications

Dim publication1 As Publication
Set publication1 = publications1.Add(CATIA.ActiveDocument.Part.MainBody.Name)

publications1.SetDirect CATIA.ActiveDocument.Part.MainBody.Name, reference1

Dim settingControllers1 As SettingControllers
Set settingControllers1 = CATIA.SettingControllers

Dim visualizationSettingAtt1 As SettingController
Set visualizationSettingAtt1 = settingControllers1.Item("CATVizVisualizationSettingCtrl")

visualizationSettingAtt1.SaveRepository

End Sub

---

Dieser funktioniert auch bei kleineren Parts. Aber wenn ich dann mal ein größeres Part öffne, schlägt
dieses bei der Methode CreateReferenceFromName fehl.

Code:

---

Set reference1 = product1.CreateReferenceFromName(CATIA.ActiveDocument.Part.Name + "/!" + CATIA.ActiveDocument.Part.MainBody.Name)

---

Ich hab jetzt schon länger nach einer Lösung gesucht, aber so langsam verzweifel ich.
Kann mir jemand von euch vielleicht helfen?

Ich hab schon versucht dies über eine ReferenceByObject zu machen. Dies schlägt aber dann an dem SetDirect fehl.

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

---

Hi, fasse gerade Anwendungsbeispiele zu Publications mit Makro zusammen, schaut mal hier:
http://ww3.cad.de/foren/ubb/Forum137/HTML/002495.shtml

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