12-08-2016
11:42 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
12-08-2016
11:42 PM
Hi,
Try this - it will make Solid2 invisible and Solid1 visible:
Dim oCompDef As ComponentDefinition = ThisDoc.Document.ComponentDefinition For Each oBody As SurfaceBody In oCompDef.SurfaceBodies 'If TheCodeAreRight Then If oBody.Name = "Solid1" Then oBody.Visible=1 Else If oBody.Name = "Solid2" Then oBody.Visible=0 End If Next
-----------------------------------------------------------------------
AutoDXF - automatic flat pattern creation and batch export to DXF for Inventor
Please use "Accept as Solution" & give "Kudos" if this response helped you.
AutoDXF - automatic flat pattern creation and batch export to DXF for Inventor
Please use "Accept as Solution" & give "Kudos" if this response helped you.