What I was trying to tell you is that you must change all the names that I have crossed out in your code, and look for defining each component through the item
If CC50_centricoate= 1 Then
Parameter("CC50 centricoate FP foundation:1", "foundation")=1
End If
If Powder_feeder_Left=1 ul Then
MultiValue.SetListInComponent("CC50 powder feeder L:1", "Powder_feeder_Left", 0, 1)
Parameter("CC50 powder feeder L:1", "Powder_feeder_Left") = 1 ul
End If
If Powder_feeder_Left=0 ul Then
MultiValue.SetListInComponent("CC50 powder feeder L:1", "Powder_feeder_Left", 0, 1)
Parameter("CC50 powder feeder L:1", "Powder_feeder_Left") = 0 ul
End If
If Powder_feeder_Left_Fantom=1 ul Then
MultiValue.SetListInComponent("CC50 powder feeder L fantom:1", "Powder_feeder_Left_Fantom", 0, 1)
Parameter("CC50 powder feeder L fantom:1", "Powder_feeder_Left_Fantom") = 1 ul
End If
If Powder_feeder_Left_Fantom=0 ul Then
MultiValue.SetListInComponent("CC50 powder feeder L fantom:1", "Powder_feeder_Left_Fantom", 0, 1)
Parameter("CC50 powder feeder L fantom:1", "Powder_feeder_Left_Fantom") = 0 ul
End If
If Powder_feeder_Right=1 ul Then
MultiValue.SetListInComponent("CC50 powder feeder R:1", "Powder_feeder_Right", 0, 1)
Parameter("CC50 powder feeder R:1", "Powder_feeder_Right") = 1 ul
End If
If Powder_feeder_Right=0 ul Then
MultiValue.SetListInComponent("CC50 powder feeder R:1", "Powder_feeder_Right", 0, 1)
Parameter("CC50 powder feeder R:1", "Powder_feeder_Right") =0 ul
End If
If Powder_feeder_Right_Fantom=1 ul Then
MultiValue.SetListInComponent("CC50 powder feeder R fantom:1", "Powder_feeder_Right_fantom", 0, 1)
Parameter("CC50 powder feeder R fantom:1", "Powder_feeder_Right_fantom") = 1 ul
End If
If Powder_feeder_Right_Fantom=0 ul Then
MultiValue.SetListInComponent("CC50 powder feeder R fantom:1", "Powder_feeder_Right_fantom", 0, 1)
Parameter("CC50 powder feeder R fantom:1", "Powder_feeder_Right_fantom") = 0 ul
End If
If Door_Fantom=1 ul Then
MultiValue.SetListInComponent("CC50 Door:1", "Door_Fantom", 0, 1)
Parameter("CC50 Door:1", "Door_Fantom") = 1 ul
End If
If Door_Fantom=0 ul Then
MultiValue.SetListInComponent("CC50 Door:1", "Door_Fantom", 0, 1)
Parameter("CC50 Door:1", "Door_Fantom") = 0 ul
End If
If Powder_feeder_Left=0 ul Then
Powder_feeder_Left_Fantom = 0 ul
Parameter("CC50 powder feeder L fantom:1", "Powder_feeder_Left_Fantom")= 0 ul
ElseIf Powder_feeder_Left_Fantom = 1 ul Then
Parameter("CC50 powder feeder L fantom:1", "Powder_feeder_Left_Fantom")= 1 ul
End If
If Powder_feeder_Right=0 ul Then
Powder_feeder_Right_Fantom = 0 ul
Parameter("CC50 powder feeder R fantom:1", "Powder_feeder_Right_fantom")= 0 ul
ElseIf Powder_feeder_Right_Fantom = 1 ul Then
Parameter("CC50 powder feeder R fantom:1", "Powder_feeder_Right_fantom")= 1 ul
End If
It's hard work, but it ensures there will be no problems later. Maybe there are other methods this has worked for me pretty well. regards
Please accept as solution and give likes if applicable.
I am attaching my Upwork profile for specific queries.
Sergio Daniel Suarez
Mechanical Designer
| Upwork Profile | LinkedIn