07-03-2018
02:22 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
07-03-2018
02:22 AM
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
Autodesk Inventor Professional Certified 2014