Hallo,
ich hätt da mal ein kleines Problem.
Ich möchte gern eine Formel in einem Part erzeugen die ein vorhanden Parameter eines Products mit einem Parameter eines Parts gleich setzt. (s. Bild 1)
Dazu ist zu erwähnen das der Parameter im Product von vornherein schon veröffentlicht ist.
Hier noch ein Auszug aus dem Makro:
--------------------------------------------------------------
Hier wird das vorher ausgewählte Part aktiv geschaltet.
--------------------------------------------------------------
Dim partDokument1 As Document
Set partDokument1 = CATIA.Documents.Item(Usersel1.Item(1).Value.Name&".CATPart")
Dim part1 As Part
Set part1 = partDokument1.Part
--------------------------------------------------------------
Formelerzeugung
--------------------------------------------------------------
Dim Rels1 As Relations
Set Rels1 = part1.Relations
Dim Rels1Name, Rels1Kom As CATBSTR
Rels1Name = "Rel_Prod_Para-Part_Para"
Rels1Kom = ""
Dim Rels1Inhalt As Parameter
Set Rels1Inhalt = CATIA.ActiveDocument.Product.Parameters.Item("Product_Para1")
Dim Formel1 As Formula
Set Formel = Rels1.CreateFormula(Rels1Name, Rels1Kom, Part_Para1, Rels1Inhalt)
End Sub
Leider funktioniert das nicht so ganz ich bekomme da eine Fehlermeldung (s. Bild 2)
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP