07-03-2018
02:06 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
07-03-2018
02:06 AM
Hi,
try this:
Version:1.0 StartHTML:00000145 EndHTML:00002241 StartFragment:00000294 EndFragment:00002209 StartSelection:00000294 EndSelection:00000294SyntaxEditor Code Snippet
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 oSurfBody.Visible = False 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