---

Hallo,

suche einen Weg um eine Formel (vorh) von einem Parameter in einen neu erzeugten Parameter zu verschieben, oder zu kopieren. Das Ergebnis zu übermitteln ist kein Problem nur möchte ich eben die Berechnung übergeben.

Willi 

------------------
Willi

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

---

Hallo,

es wird nicht so einfach sein, aber wenn der Parameter die Eigenschaft OptionalRelation hat, dann steht dort ein Verweis auf die Formel, wodurch dieser Parameter gesteuert wird.
Folgendes gilt, wenn nur ein Part geöffnet ist:

Code:

---

    Dim oNewParameter As Parameter
    Dim oPart As Part
    Set oPart = CATIA.ActiveDocument.Part
    Dim oProduct As Product
    Set oProduct = CATIA.ActiveDocument.Product
    Dim relations As relations
    Set relations = oPart.relations

    'Neuer Parameter erzeugen
    Set oNewParameter = oPart.Parameters.CreateString("aaaaa", "")
    'Parameter zuweisen, wo Formel genommen werden soll
    Dim oMasterParam As Parameter
    Set oMasterParam = oProduct.UserRefProperties.Item(1)
    Dim oMasterRelation As Relation
    Dim oNewRelation As Relation
    Set oMasterRelation = oMasterParam.OptionalRelation
    'Prüfen, ob Parameter tatsächlich ein Formel besitzt
    If (IsNull(oMasterRelation)) Then
        MsgBox "No relation to compute param1"
    Else
        'neu Formel erzeugen
        Set oNewRelation = relations.CreateFormula("NameDerRelation", "Comment", oNewParameter, oMasterRelation.Value)
    End If

---

Gruß,
Zoltan

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