---

Hallo Zusammen!

wir arbeiten z.Zt. mit folgender Methode:
3D-Geometrie wird in einem Startpart erstellt, das neben vordefinierten Geometrien auch eine gewisse Anzahl an user defined Parameter hat. Diese sind auch als Publikationen in der Zeichnung als "externe Parameter" ausgewiesen, welche u.a. für Titelblock verwendet werden.
Bei Neuteilen ist die Methode recht robust und unkompliziert, sowohl bei der Erstellung der 3D-Geometrie, wie auch für die Erstellung von Zeichnungen.
Bei Übernahme von älteren Teilen sind wir zwar in der Lage die user defined Parameter mit Hilfe eines Macro in das Modell zu bringen, können aber diese nicht durch das Macro publizieren.

Geht das überhaupt?
Hat vielleicht jemand ein Beispiel?

Danke für eure Hilfe

------------------
Grüsse
Sergej

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

---

Servus
Sollte funktionieren. Anbei ein kleiner Code (aus Makroaufzeichnung und Ergänzung einer Schleife):

Code:

---

Sub CATMain()

Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument

Dim product1 As Product
Set product1 = productDocument1.Product

Dim UserDefParameters As Parameters
Set UserDefParameters = product1.UserRefProperties

Dim publications1 As Publications
Set publications1 = product1.Publications

Dim reference1 As Reference
Dim publication1 As Publication
Dim strPubName As String

Dim UserDefPara As Parameter
For Each UserDefPara In UserDefParameters
    Set reference1 = product1.CreateReferenceFromName(UserDefPara.Name)
    strPubName = Right(UserDefPara.Name, (Len(UserDefPara.Name) - InStrRev(UserDefPara.Name, "\")))
    Set publication1 = publications1.add(strPubName)
    publications1.SetDirect strPubName, reference1
Next

End Sub

---

Gruß
Bernd

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

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

---

Vielen Dank Bernd!

Ich werde es am Montag ausprobieren: heute habe ich schon kein Nerv übrig...

------------------
Grüsse
Sergej

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

---

Hallo Bernd!

noch ein Mal vielen Dank für deine Hilfe!
Aber soweit mit dem Aufzeichnen waren wir auch, bis auf die Schleife: Idee ist einfach super!
Problem, bei der Publikationserstellung wie mit einfacher Aufzeichnung:
Code
------------------------------------------------------------------------------
Language="VBSCRIPT"

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim product1 As CATBaseDispatch
Set product1 = partDocument1.GetItem("Part1")

Dim reference1 As Reference
Set reference1 = product1.CreateReferenceFromName("Part1\Properties\test")

Dim publications1 As Publications
Set publications1 = product1.Publications

Dim publication1 As Publication
Set publication1 = publications1.Add("test")

publications1.SetDirect "test", reference1

Dim settingControllers1 As SettingControllers
Set settingControllers1 = CATIA.SettingControllers

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

visualizationSettingAtt1.SaveRepository

End Sub

---------------------------------------------------------------------------------

So auch bei Deiner Modifikation liegt bei der Unwille von Catia die Methode GetReferenceFromName auszuführen:

In meiner Aufzeichnung ist es die Zeile 12,
in Deinem Code ist es die Zeile 22 und beide beschreiben eben diese Methode:
Set reference1 = product1.CreateReferenceFromName("Part1\Properties\test")

...

------------------
Grüsse
Sergej

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

---

Servus
"CreateReferenceFromName" scheint hier nur im CATProduct zu funktionieren. Im CATPart hab ich es auf die schnelle nicht hingekommen (weder mit "CreatRefereneFromObject", noch mit dem Umweg über "GetNameToUseInRelation")

Gruß
Bernd

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

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