Hallo zusammen,
ich bin ganz frisch in der Makroprogrammierung und habe folgendes Problem:
Ich möchte mithilfe einer Eingabe in einer Userform den Wert eines Parameters ändern. Das ParameterSet in welchem sich der zu ändernde Parameter befindet, ist jedoch in einem weiteren ParameterSet (siehe Bild). Ich finde allerdings nicht den korrekten Objektpfad um den Parameter anzusprechen.
Hier mein Code:
Private Sub Button_Take_Click()
Dim documents1 As Documents
Set documents1 = CATIA.Documents
Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Item("PART_UEBUNG4.CATPart")
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.GetItem("Parameters.2")
Dim length1 As Length
Set length1 = parameters2.Item("X_Punkt2")
Eingabe_X_Punkt2 = CInt(UserForm_Uebung4.Eingabefenster.Value)
length1.Value = Eingabe_X_Punkt2
End Sub
Vielen Dank im voraus!!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP