04-24-2019
06:01 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
04-24-2019
06:01 AM
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