select case code related to a multibody solids visibility.

[SpokenEarth]

Hi forum, I'm having trouble with the select case code related to a multibody solids visibility.
I need a help with a code so when I'm fire from the Form the selected type, the feature in the model window is visible and other existing ones are not.
Thanks in advance for any help you can give.

[bradeneuropeArthur]

Can you explain a little more in detail what you try to do?

[SpokenEarth]

When I select from the form1, under TYPE DIN32676SERIES2 STANDARD I want the solid body DIN32676 SERIES1 from the model browser to be invisible. 

[JelteDeJong]

you could add this to your rule to hide a body

Dim nameOfBodyTohide = "DIN32676 SERIES1"
Dim doc As PartDocument = ThisDoc.Document
Dim def As PartComponentDefinition = doc.ComponentDefinition
Dim bodies As IEnumerable(Of SurfaceBody) = def.SurfaceBodies.Cast(Of SurfaceBody)
Dim body As SurfaceBody = bodies.
    Where(Function(b) b.Name.Equals(nameOfBodyTohide)).First()
body.Visible = False

[SpokenEarth]

Thanks JelteDeJong, the code works fine, and almost accomplish what I need.
But how can automatically toggle the visibility?
For example, when am fire SIZE:DIN32676 SERIES2:STANDARD I would like to have the solid body DIN32676 SERIES1 invisible, and solid DIN32676 SERIES2 STANDARD visible

[JelteDeJong · Accepted solution]

You can create a new rule and add this. with this rule the bodies get selected depending on the type

Public Sub Main()
	Select Case TYPE
		Case "DIN 32676 SERIES 1"
			setVisibility("DIN32676 SERIES1", True)
			setVisibility("DIN32676SERIES2 STANDARD" , False)
			
		Case "DIN 32676 SERIES 2 STANDARD"
			setVisibility("DIN32676 SERIES1", false)
			setVisibility("DIN32676SERIES2 STANDARD" , True)
		
		Case "...."
			' You might want to add more cases 
	End Select	
End Sub

Public Sub setVisibility(bodyName As String, visible As Boolean)
	Dim doc As PartDocument = ThisDoc.Document
	Dim def As PartComponentDefinition = doc.ComponentDefinition
	Dim bodies As IEnumerable(Of SurfaceBody) = def.SurfaceBodies.Cast(Of SurfaceBody)
	Dim body As SurfaceBody = bodies.
	    Where(Function(b) b.Name.Equals(bodyName)).First()
	body.Visible = visible
End Sub

[SpokenEarth]

PERFECT!!!.....Thank you so much

You are always so you are very helpful.

Achilles