---

Hallo zusammen,

schreibe gerade ein Makro um mehreren selektierten Parametern über eine Formel den Wert eines anderen Parameters zuzuweisen.. Das funktioniert auch, allerdings nur, wenn die Werte der Zielparameter keine Formeln sind..

In diesem Fall müsste ich die Formel löschen und eine neue erzeugen, ich scheitere allerdings bereits daran herauszufinden, ob der Wert eine Formel ist..

Hoffe, ich habe das halbwegs deutlich rübergebracht 

Gruß und Thx,

Stefan

------------------
Seid nicht dumm, lest drin rum!

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

---

Morgen!

Habe jetzt erstmal via Startcommand gelöst, geht sicher besser..

Code:

---

Sub CATMain()

Dim partDocument1 As PartDocument
Dim selection1 As Object
Dim part1 As Part
Dim relations1 As Relations
Dim parameters1 As Parameters
Dim length1 As Length
Dim formula1 As Formula
Dim quellparameter As Parameter
Dim parameterliste() As Variant

Set partDocument1 = CATIA.ActiveDocument
Set selection1 = CATIA.ActiveDocument.Selection
Set part1 = partDocument1.Part
Set relations1 = part1.Relations
Set parameters1 = part1.Parameters

If selection1.Count = 0 Then Exit Sub

ReDim parameterliste(0)

For i = 1 To selection1.Count

    ReDim Preserve parameterliste(i)
    Set parameterliste(i) = selection1.Item(i).Value

Next

Dim Was(0)

Was(0) = "Parameter"
selection1.Clear
Ergebnis = selection1.SelectElement2(Was, "Bitte den Quellparameter wählen!", False)

If Not Ergebnis = "Normal" Then Exit Sub

Set quellparameter = parameters1.Item(selection1.Item(1).Value.Name)

For i = 1 To UBound(parameterliste)

    Set length1 = parameters1.Item(parameterliste(i).Name)
   
    selection1.Clear
    selection1.Add length1
    CATIA.StartCommand ("löschen")
   
    Set formula1 = relations1.CreateFormula("", "", length1, parameters1.GetNameToUseInRelation(quellparameter))

Next

End Sub

---

Anwendung:

- vor Ausführung die zu ändernden Parameter selektieren
- Makro starten und den Quellparameter wählen

Hinweise:

- läuft momentan nur, wenn das aktive Dokument ein CATPart ist!

------------------
Seid nicht dumm, lest drin rum!

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