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: dgreatice

You can add more condition

 

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 oSurfBody.Name = "Sliderail" Then
        if Sliderail = "Yes" 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