---

2021-08-3115_16_57-CATIAV5-R29BMW-G000198__XXXX__STARTMODELL.CATPartReadOnly.png

Hallo und vielen Dank im voraus - wer sich die Zeit nimmt mir zu Helfen

Arbeite seit kurzem mit Catia V5 und habe auch das Thema Makro entdeckt.
Ich bräuchte da mal einen Makrovorschlag wie ich bestimmte (schon existierende) Parameter (siehe Bild) befüllen kann.
Wir haben ein vorhandenes Startmodell und wollen die Parameter nicht händisch eintragen.

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

---

Servus

Willkommen im Forum.
Hier ein Beispiel, mittels Makrorekorder mit ein paar Ergänzungen erstellt:

Code:

---

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim parameters1 As Parameters
Set parameters1 = part1.Parameters

Dim parameterSet1 As ParameterSet
Set parameterSet1 = parameters1.RootParameterSet

Dim parameterSets1 As ParameterSets
Set parameterSets1 = parameterSet1.ParameterSets

Dim parameterSet2 As ParameterSet
Set parameterSet2 = parameterSets1.Item("Stueckliste")

dim parameter1 as Parameter
Set parameter1 = parameterSet2.DirectParameters.Item("SachNr")

parameter1.Value = "Test"

End Sub

---

Viel Spaß beim testen, analysieren, verstehen und erweitern.

Gruß
Bernd

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

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

---

Vielen Dank.
Damit kam ich zurecht.

Um mehrere gleichzeitig zu befüllen habe ich das Makro erweitert.

Das Makro sieht nun so aus:

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

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim parameters1 As Parameters
Set parameters1 = part1.Parameters

Dim parameterSet1 As ParameterSet
Set parameterSet1 = parameters1.RootParameterSet

Dim parameterSets1 As ParameterSets
Set parameterSets1 = parameterSet1.ParameterSets

Dim parameterSet2 As ParameterSet
Set parameterSet2 = parameterSets1.Item("Stueckliste")

dim parameter1 as Parameter
Set parameter1 = parameterSet2.DirectParameters.Item("Werkstoffbezeichnung")

parameter1.Value = "Werkstoffbezeichnung"

dim parameter2 as Parameter
Set parameter2 = parameterSet2.DirectParameters.Item("Werkstoffschluessel")

parameter2.Value = "Werkstoffschluessel"

dim parameter3 as Parameter
Set parameter3 = parameterSet2.DirectParameters.Item("Din_En")

parameter3.Value = "Din_En"

End Sub

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

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