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