iLogic Rule to change solid body visibility

[marcin_bargiel]

I need iLogic Rule to change solid body visibility in IPT file. I DO NOT want to use "Feature.IsActive("featurename") but just VISIBILITY as i can by hand.

[marcin_bargiel]

I need iLogic Rule to change solid body visibility in IPT file. I DO NOT want to use "Feature.IsActive("featurename") but just VISIBILITY as i can by hand.

[Thomas_Savage]

Hello,

You con use:

Component.Visible(" ")

In iLogic, expand the components tab, and you will see Visible.

Which will change the visibility of your component.

Hope this helps?

Thomas.

[Thomas_Savage]

Hello,

You con use:

Component.Visible(" ")

In iLogic, expand the components tab, and you will see Visible.

Which will change the visibility of your component.

Hope this helps?

Thomas.

[ThomasB44 · Accepted solution]

Hi @marcin_bargiel

This rule by @Curtis_Waguespack do this perfectly.

http://inventortrenches.blogspot.fr/2013/01/ilogic-solid-body-visibility.html

[ThomasB44 · Accepted solution]

Hi @marcin_bargiel

This rule by @Curtis_Waguespack do this perfectly.

http://inventortrenches.blogspot.fr/2013/01/ilogic-solid-body-visibility.html

[marcin_bargiel]

Components are in iam file ! So You didn't help...
I was talking about features in ipt file.
We can change visibility by 'hand' (click on one of chosen feature -multibody) but how to do this by ilogic rule ?????

[marcin_bargiel]

Components are in iam file ! So You didn't help...
I was talking about features in ipt file.
We can change visibility by 'hand' (click on one of chosen feature -multibody) but how to do this by ilogic rule ?????

[marcin_bargiel · Accepted solution]

My rule, that works OK 😉

Sub Main()
VIS("feature name", False)  'visibility OFF

VIS("feature name", True)   'visibility ON

End Sub


Function VIS (FeatureName As String, Visibility As Boolean )
Dim oCompDef as ComponentDefinition
oCompDef = ThisDoc.Document.ComponentDefinition
Dim oBody As SurfaceBody
j=1
i=1
k=178  'number of features
For i=1 To k
    oBody = oCompDef.SurfaceBodies.Item(i)
    If oBody.Name= FeatureName Then
        j=i
        i=k
    End If
Next
oBody.Visible=Visibility
End Function

[marcin_bargiel · Accepted solution]

My rule, that works OK 😉

Sub Main()
VIS("feature name", False)  'visibility OFF

VIS("feature name", True)   'visibility ON

End Sub


Function VIS (FeatureName As String, Visibility As Boolean )
Dim oCompDef as ComponentDefinition
oCompDef = ThisDoc.Document.ComponentDefinition
Dim oBody As SurfaceBody
j=1
i=1
k=178  'number of features
For i=1 To k
    oBody = oCompDef.SurfaceBodies.Item(i)
    If oBody.Name= FeatureName Then
        j=i
        i=k
    End If
Next
oBody.Visible=Visibility
End Function

[marcin_bargiel]

Solution above works - but when we have a large number of features it works slowly.

Is there any other way to change visibility ? without need to know exact item number (and need to use loop "for" or "while")

something like this oCompDef.SurfaceBodies.Item("features name")= False

[marcin_bargiel]

Solution above works - but when we have a large number of features it works slowly.

Is there any other way to change visibility ? without need to know exact item number (and need to use loop "for" or "while")

something like this oCompDef.SurfaceBodies.Item("features name")= False

[jeamy.baena]

Hi, @marcin_bargiel 

In my case, your code worked like a charm!!! 👏. This is all that I needed 😀

Thank very much!!!

[jeamy.baena]

Hi, @marcin_bargiel 

In my case, your code worked like a charm!!! 👏. This is all that I needed 😀

Thank very much!!!