Code:
'Parameter panel from skelet model
Parameter("test_skeletmodel:1", "Totalheight") = Panelheight
Parameter("test_skeletmodel:1", "pitch") = Pitch
Parameter("test_skeletmodel:1", "tubes") = Tubes
Parameter("test_skeletmodel:1", "Vertical_section")=Verticalsection
Parameter("test_skeletmodel:1", "Tube_Bend_radius")=panelbendradius
Parameter("test_skeletmodel:1", "deduction")=Deduction
'Parameter fin slit from skeletmodel
Parameter("test_skeletmodel:1", "pitch_left_side") = Fin_width_left
Parameter("test_skeletmodel:1", "pitch_right_side") = Fin_width_left
Parameter("test_skeletmodel:1", "tubes") = Tubes
'Parameter tube material and certifikat
iProperties.MaterialOfComponent("test_tube:1") = Tube_material
'Parameter tube Certifikat
MultiValue.SetListInComponent("test_tube:1", "Cert", "EN10204-2.2", "EN10204-3.1", "EN10204-3.2")
Parameter("test_tube:1", "Cert") = Tube_Material_Certifikat
'Parameter tube dimension data
Parameter("test_skeletmodel:1", "Tubediameter") = pipediameter
Parameter("test_skeletmodel:1", "Tube_wall_thickness") = pipethickness
Parameter("test_skeletmodel:1", "Pipechamfer") = Tube_end_chamfer
'Chanfer on tubes yes or no
If Tube_end_chamfer = False
Feature.IsActive("test_skeletmodel:1", "Topchamfer_pipe") = False
Feature.IsActive("test_skeletmodel:1", "bottomchamfer_pipe") = False
Else If Tube_end_chamfer = True
Feature.IsActive("test_skeletmodel:1", "Topchamfer_pipe") = True
Feature.IsActive("test_skeletmodel:1", "bottomchamfer_pipe") = True
End If
'Parameter fines on/off
Parameter("test_skeletmodel:1", "Fin_thickness") = finthickness
Parameter("test_skeletmodel:1", "fin_cutout") = fincutoutlength
'Parameter("Test_fin:1", "Fin_slit_YesNO") = Fin_slit_end
'If Fin_slit_end = False
'Feature.IsActive("Pattern_finslit_bottom") = False
'Feature.IsActive("Pattern_finslit_top") = False
'Feature.IsActive("Finslit_Cutout_bottom") = False
'Feature.IsActive("Finslit_Cutout_top") = False
'Else If Fin_slit_end = True
'Feature.IsActive("Pattern_finslit_bottom") = True
'Feature.IsActive("Pattern_finslit_top") = True
'Feature.IsActive("Finslit_Cutout_bottom") = True
'Feature.IsActive("Finslit_Cutout_top") = True
'End If
'Parameter fines configuration inconel yes/no
'If Internal_Cladding = True Or External_Cladding = True
'Parameter("Fin_slit_numbers") = Tubes - 1
'Parameter("Fin_Slit_pitch") = Pitch
'Parameter("Fin_slit_numbers") = Tubes-1
'Parameter("Fin_Slit_pitch") = Pitch
'Else If Internal_Cladding = False Or External_Cladding = False
'Parameter("Fin_slit_numbers") = Round((Tubes - 1) / 2)
'Parameter("Fin_Slit_pitch") = Pitch * 2
'Parameter("Fin_slit_numbers") = Round((Tubes - 1) / 2)
'Parameter("Fin_Slit_pitch") = Pitch * 2
'End If
'fin left side configuration
If Leftside_fin_configuration = "None" Then
Feature.IsActive("test_skeletmodel:1", "Chamfer1left") = False
Feature.IsActive("test_skeletmodel:1", "Chamfer2left") = False
Feature.IsActive("test_skeletmodel:1", "Chamfer3left") = False
Else If Leftside_fin_configuration = "Chamfer1"
Feature.IsActive("test_skeletmodel:1", "Chamfer1left") = True
Feature.IsActive("test_skeletmodel:1", "Chamfer2left") = False
Feature.IsActive("test_skeletmodel:1", "Chamfer3left") = False
Else If Leftside_fin_configuration = "Chamfer2"
Feature.IsActive("test_skeletmodel:1", "Chamfer1left") = False
Feature.IsActive("test_skeletmodel:1", "Chamfer2left") = True
Feature.IsActive("test_skeletmodel:1", "Chamfer3left") = False
Else If Leftside_fin_configuration = "Chamfer3"
Feature.IsActive("test_skeletmodel:1", "Chamfer1left") = False
Feature.IsActive("test_skeletmodel:1", "Chamfer2left") = False
Feature.IsActive("test_skeletmodel:1", "Chamfer3left") = True
End If
'fin equal check
'If Equal_end_fins = True
'Then Leftside_fin_configuration = Rightside_fin_configuration And Rightside_fin_configuration = Leftside_fin_configuration
'Else If Equal_end_fins = False
'Then Leftside_fin_configuration = Leftside_fin_configuration And Rightside_fin_configuration = Rightside_fin_configuration
'End If
'fin right_side configuration
If Rightside_fin_configuration = "None" Then
Feature.IsActive("test_skeletmodel:1", "Chamfer1right") = False
Feature.IsActive("test_skeletmodel:1", "Chamfer2right") = False
Feature.IsActive("test_skeletmodel:1", "Chamfer3right") = False
Else If Rightside_fin_configuration = "Chamfer1"
Feature.IsActive("test_skeletmodel:1", "Chamfer1right") = True
Feature.IsActive("test_skeletmodel:1", "Chamfer2right") = False
Feature.IsActive("test_skeletmodel:1", "Chamfer3right") = False
Else If Rightside_fin_configuration = "Chamfer2"
Feature.IsActive("test_skeletmodel:1", "Chamfer1right") = False
Feature.IsActive("test_skeletmodel:1", "Chamfer2right") = True
Feature.IsActive("test_skeletmodel:1", "Chamfer3right") = False
Else If Rightside_fin_configuration = "Chamfer3"
Feature.IsActive("test_skeletmodel:1", "Chamfer1right") = False
Feature.IsActive("test_skeletmodel:1", "Chamfer2right") = False
Feature.IsActive("test_skeletmodel:1", "Chamfer3right") = True
End If
'Parameter Cladding
Parameter("Test_skeletmodel:1", "cladding_cutout") = Free_lenght_cladding
'Cladding on/off
'Inner Cladding
If Internal_Cladding = False
Feature.IsActive("test_skeletmodel:1", "Cladding_pipe_inner") = False
Feature.IsActive("test_skeletmodel:1", "Cladding_pipe_inner:pattern") = False
Feature.IsActive("test_skeletmodel:1", "Cladding_fin_inner") = False
Feature.IsActive("test_skeletmodel:1", "Cladding_fin_inner_pattern") = False
Feature.IsActive("test_skeletmodel:1", "Cladding_LFIN_T1_inner") = False
Feature.IsActive("test_skeletmodel:1", "Cladding_RFIN_T1_inner") = False
Else If Internal_Cladding = True
Feature.IsActive("test_skeletmodel:1", "Cladding_pipe_inner") = True
Feature.IsActive("test_skeletmodel:1", "Cladding_pipe_inner:pattern") = True
Feature.IsActive("test_skeletmodel:1", "Cladding_fin_inner") = True
Feature.IsActive("test_skeletmodel:1", "Cladding_fin_inner_pattern") = True
Feature.IsActive("test_skeletmodel:1", "Cladding_LFIN_T1_inner") = True
Feature.IsActive("test_skeletmodel:1", "Cladding_RFIN_T1_inner") = True
End If
'Outer Cladding
If External_Cladding = False
Feature.IsActive("test_skeletmodel:1", "Cladding_pipe_outer") = False
Feature.IsActive("test_skeletmodel:1", "Cladding_pipe_outer_pattern") = False
Feature.IsActive("test_skeletmodel:1", "Cladding_fin_outer") = False
Feature.IsActive("test_skeletmodel:1", "Cladding_fin_outer_pattern") = False
Feature.IsActive("test_skeletmodel:1", "Cladding_pipe_outer_pattern") = False
Feature.IsActive("test_skeletmodel:1", "Cladding_LFIN_T1_outer") = False
Feature.IsActive("test_skeletmodel:1", "Cladding_RFIN_T1_outer") = False
Else If External_Cladding = True
Feature.IsActive("test_skeletmodel:1", "Cladding_pipe_outer") = True
Feature.IsActive("test_skeletmodel:1", "Cladding_pipe_outer_pattern") = True
Feature.IsActive("test_skeletmodel:1", "Cladding_fin_outer") = True
Feature.IsActive("test_skeletmodel:1", "Cladding_fin_outer_pattern") = True
Feature.IsActive("test_skeletmodel:1", "Cladding_LFIN_T1_outer") = True
Feature.IsActive("test_skeletmodel:1", "Cladding_RFIN_T1_outer") = True
End If
'Check if tubes are even or odd
'If Tubes Mod 2 = 0 AndAlso Internal_Cladding = True
' Component.IsActive("Pattern_fin_slit_odd") = False
' Component.IsActive("Pattern_fin_odd") = False
' Component.IsActive("Pattern_fin_slit_even") = True
' Component.IsActive("Pattern_fin_even") = False
'Else If Tubes Mod 2 = 1 And Internal_Cladding = False
' Component.IsActive("Pattern_fin_slit_odd") = True
' Component.IsActive("Pattern_fin_odd") = False
' Component.IsActive("Pattern_fin_slit_even") = False
' Component.IsActive("Pattern_fin_even") = True
'End If
'Opdatering af skeleton
iLogicVb.RunRule("test_skeletmodel:1", "update")
iLogicVb.UpdateWhenDone = True
Code attached and and models. Ilogic placed in assembly.