...................

' Neues Parameter Set erzeugen (Lokale Parameter) unter dem vorhandenen Set
    Set parameters1 = part1.Parameters
 
    Dim ParameterSet1 As ParameterSet
    Set ParameterSet1 = parameters1.RootParameterSet
 
    Dim parameterSets1 As ParameterSets
    Set parameterSets1 = ParameterSet1.ParameterSets
        
    parameterSets1.CreateSet ("Lokale_Parameter")
    Dim Lokale_Parameter_Set As ParameterSet
    Set Lokale_Parameter_Set = parameterSets1.Item("Lokale_Parameter")
    
    Set parameters3 = Lokale_Parameter_Set.DirectParameters



        ' Neues ParameterSet in Lokale Parameter
        
            
            
        Dim ParameterSet3 As ParameterSet
        Set ParameterSet3 = parameters1.RootParameterSet
        
	Dim parameterSets3 As ParameterSets
        Set parameterSets3 = ParameterSet3.ParameterSets
        
        Dim parameterSets300 As ParameterSets
        Set parameterSets300 = parameterSets3.Item("Lokale_Parameter")
        
        parameterSets300.CreateSet ("Welle_Parameter")
        Dim Welle_Parameter_Set As ParameterSet
        Set Welle_Parameter_Set = parameterSets300.Item("Welle_Parameter")
        
        
        Dim parameters4 As Parameters
        Set parameters4 = Welle_Parameter_Set.DirectParameters
        
        Set parameters4 = Welle_Parameter_Set.DirectParameters



' Parameter erzeugen
    Dim length1 As length
    Set length1 = parameters4.CreateDimension("`Länge.1`", "LENGTH", 0#)

    length1.Rename "`Parameter`"

    length1.Value = 30#



...................................