iLogic change colour depending on the value of a parameter

[peter.252301]

Hi, I am designing a large tank as a part that will have about 112 features that will change colour depending on the value of a parameter.

Below is the code I have working at the moment

The tank will be covered in colored dots that will represent the wall thickness measure for and existing site tank

The finished model will look a bit like a heat map showing the thinner areas of the tank.

When the (wall thickness) parameters change over time the colors of the features will change to reflect the level of corrosion.

The parameter will be updated manually when the model is revised.

There will be about 56 parameters and 112 model features, and I was looking for some help in the best way to manage the size of the code without it becoming to huge to manage

Parameters would be something like

A0 = 4.6mm
A1 = 4.9mm

etc etc

If (A0 < 3.1) Then
Feature.Color("A0") = ("Red")

End If

If (A0 > 3.1 And A0 <6) Then
	
Feature.Color("A0") = ("Orange")

End If

If (A0 > 6) Then
	
Feature.Color("A0") = ("Green")

End If

Any help would be greatly appreciated. I am a weak coder, but I got this to work. Would love to get it in a concise format for the full 56 parameters.

Thanks in advance

[Ed Jobe]

You could put the parameters in an array and then call a color setting function for each array member.

Sub Main()
	Dim features(2, 50)
	features(0, 0) = "A0" : features(1, 0) = 4.5
	features(0, 1) = "A1" : features(1, 1) = 4.6
	features(0, 2) = "A2" : features(1, 2) = 4.9

	Dim i As Integer = 0
	For i = 0 To 50
		SetFeatureColor(features(0, i), features(1, i))
	Next i
End Sub

Function SetFeatureColor(featureID, thickness)
	Select Case thickness
	Case thickness < 3.1
		Feature.Color(featureID) = ("Red")
	Case thickness >= 3.1 And thickness < 6.0
		Feature.Color(featureID) = ("Orange")
	Case thickness >6 
		Feature.Color(featureID) = ("Green")
	End Select
End Function

[peter.252301]

You could put the parameters in an array and then call a color setting function for each array member.

Sub Main()
	Dim features(2, 50)
	features(0, 0) = "A0" : features(1, 0) = 4.5
	features(0, 1) = "A1" : features(1, 1) = 4.6
	features(0, 2) = "A2" : features(1, 2) = 4.9

	Dim i As Integer = 0
	For i = 0 To 50
		SetFeatureColor(features(0, i), features(1, i))
	Next i
End Sub

Function SetFeatureColor(featureID, thickness)
	Select Case thickness
	Case thickness < 3.1
		Feature.Color(featureID) = ("Red")
	Case thickness >= 3.1 And thickness < 6.0
		Feature.Color(featureID) = ("Orange")
	Case thickness >6 
		Feature.Color(featureID) = ("Green")
	End Select
End Function

Hi thanks for you input.

I am struggling to understand an implement this, probably a bit advanced for me.

I am not clear on the work flow to make my parameters talk to the features.

My test part has 4 features
Test part features.JPG

The test part has 4 parameters
Test part parameters.JPG

When I edit the parameter I am hoping to make the feature with the same name change colour
The parameter is edited in a form in the part file
For Wall thickness.JPG

Every 6 months the tanks has measurements taken and the part will be revised to show the 'at risk' points on the tank.

Any help is greatly appreciated

Thanks Peter

[peter.252301]

I got it to work with this code, but it is just bulky and clunky

If (A0 < 3.1) Then
Feature.Color("A0") = ("Red")

End If

If (A0 > 3.1 And A0 <6) Then
	
Feature.Color("A0") = ("Orange")

End If

If (A0 > 5.9) Then
Feature.Color("A0") = ("Green")

End If

If (A1 < 3.1) Then
Feature.Color("A1") = ("Red")

End If

If (A1 > 3.1 And A1 <6) Then
	
Feature.Color("A1") = ("Orange")

End If

If (A1 > 5.9) Then
Feature.Color("A1") = ("Green")

End If

If (A2 < 3.1) Then
Feature.Color("A2") = ("Red")

End If

If (A2 > 3.1 And A2 <6) Then
	
Feature.Color("A2") = ("Orange")

End If

If (A2 > 5.9) Then
Feature.Color("A2") = ("Green")

End If

[Ed Jobe]

Can you post your sample part file?
Also, please use code tags around your code. When you reply, click on the Go Advanced button and it will give you a more advance editor. Select your code and click on the # button and it will wrap your code with code tags.

This revised code should work. You hardcode the list of features to track using the array. The function gets the parameter value and sets the feature color.

Sub Main()
	'Build an array of strings representing desired features
	'Resize the array as needed.
	Dim features(2)
	features(0) = "A0" 
	features(1) = "A1" 
	features(2) = "A2" 
	
	'Iterate the array
	Dim i As Integer = 0
	For i = 0 To 50
		SetFeatureColor(features(i))
	Next i
End Sub

Function SetFeatureColor(featureID)
	Dim thickness As Double = Parameter.Param(featureID).Value
	Select Case thickness
	Case thickness < 3.1
		Feature.Color(featureID) = ("Red")
	Case thickness >= 3.1 And thickness < 6.0
		Feature.Color(featureID) = ("Orange")
	Case thickness >6 
		Feature.Color(featureID) = ("Green")
	End Select
End Function

[peter.252301]

Hi here is a test part that works

There is an embedded form to edit the parameters

Your code will help a lot though as I need 56 of these parts and each of these have 13 parameters

The final model will look visually very different, I just wanted to get a working test part so the functionality is correct and the code is concise.

Thanks Peter