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

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.