Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Sergio.D.Suárez
in reply to: Cosmin_V

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