Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
dgreatice
in reply to: Anonymous

 

Dim oApp As Application

Dim oPD As PartDocument

Dim oPCD As PartComponentDefinition

Dim oSurfBody As SurfaceBody

 

oApp = ThisApplication

oPD = oApp.ActiveDocument

oPCD = oPD.ComponentDefinition

 

For Each oSurfBody In oPCD.SurfaceBodies

if Sliderail = "No" then

if oSurfBody.Name = "Sliderail, round" or oSurfBody.Name = "Sliderail, Square" then

oSurfBody.Visible = False

else

osurfbody.visible = true
End if

ElseIf Sliderail = "Round" Then

If oSurfBody.Name = "Round" Then

oSurfBody.Visible = True

else

oSurfBody.Visible = False

end if

ElseIf Sliderail = "Square" Then
If oSurfBody.Name = "Square" Then

oSurfBody.Visible = True

else

oSurfBody.Visible = False

End if

End if

Next

 

Please use the ACCEPT AS SOLUTION or KUDOS button if my Idea helped you to solve the problem.

Autodesk Inventor Professional Certified 2014