To Link Entities from Derived Part

[RoyWickrama_RWEI]

I do with huge master sketches consists of over couple of thousand parameters and the others.

I am thinking to get it easier to do with linking the item needed with  a generic iLogic rule. I was not successful in the rule below and I request help.

Sample files attached.

Sub main
	Dim oEntity_to_Link As New ArrayList
	oEntity_to_Link.Add("Solidbody")
	oEntity_to_Link.Add("Surfacebody")
	oEntity_to_Link.Add("Block")
	oEntity_to_Link.Add("Planner Sketch")
	oEntity_to_Link.Add("3D Sketch")
	oEntity_to_Link.Add("Work Plane")
	oEntity_to_Link.Add("Parameter")
	oEntity_to_Link.Add("Exit")

	L_oEntity_X:
	oEntity_X = InputListBox("TO LINK FROM DERIVED PART", oEntity_to_Link, "", Title := "SELECT ITEM TO LINK", ListName := "LIST OF ENTITIES")
	If oEntity_X = "" Then GoTo L_oEntity_X :
	If oEntity_X = "Exit" Then Exit Sub	
		
	If oEntity_X = "Solidbody" Then
		Link_Solidbody()
	Else If oEntity_X = "Surfacebody" Then
		Link_Surfacebody()
	Else If oEntity_X = "Block" Then
		Link_Block()
	Else If oEntity_X = "Planner Sketch" Then
		Link_Planner_Sketch()
	Else If oEntity_X = "3D Sketch" Then
		Link_3D_Sketch()
	Else If oEntity_X = "Work Plane" Then
		Link_Work_Plane()
	Else If oEntity_X = "Parameter" Then
		Link_Parameter()
	End If
End Sub


Sub Link_Solidbody()
	'Code (request help)
End Sub

Sub Link_Surfacebody()
	'Code (request help)	
End Sub

Sub Link_Block()
	'Code (request help)	
End Sub

Sub Link_Planner_Sketch()
	'Code (request help)	
End Sub

Sub Link_3D_Sketch()
	'Code (request help)	
End Sub

Sub Link_Work_Plane()
	'Code (request help)	
End Sub

Sub Link_Parameter()
	'Code (request help)
End Sub

[bradeneuropeArthur]

Hi,

Try to do it this way...

Dim oDerivedPartComp As DerivedPartComponent
oDerivedPartComp = oPartCompDef.ReferenceComponents.DerivedPartComponents.item(1)
Dim oDerivedPartDef As DerivedPartDefinition
                oDerivedPartDef = oDerivedPartComp.Definition
                oDerivedPartDef.ActiveDesignViewRepresentation = ""
                oDerivedPartDef.IncludeAllParameters = False
                oDerivedPartDef.IncludeAllSolids = False
                oDerivedPartDef.IncludeAllSurfaces = False
                oDerivedPartDef.IncludeAllSketches = False
                oDerivedPartDef.IncludeAllworkFeatures = False

Regards,