How to select all the same (same files) parts in assembly

[bradeneuropeArthur]

Hi,

How can I quick select all same parts within an assembly.

Dim s As Inventor.ComponentOccurrence = ThisApplication.CommandManager.Pick(Inventor.selectionfilterenum.kAssemblyLeafOccurrenceFilter,"select")
	
	'MsgBox(s.Name)
	Dim f As Array = Split(s.Name, ":")
	'MsgBox (f(0))
	Dim a As Inventor.AssemblyDocument = ThisDoc.Document
	Dim d As Inventor.SelectSet = a.SelectSet


	For Each c As Inventor.ComponentOccurrence In a.ComponentDefinition.Occurrences.AllLeafOccurrences
		If c.Name.Contains (f(0)) Then

			d.Select(c)
			
			End If
		Next

End Sub

The above works to slow.

Regards

[Ralf_Krieg · Accepted solution]

Hello

Maybe this is a faster way.

Dim s As Inventor.ComponentOccurrence = ThisApplication.CommandManager.Pick(Inventor.SelectionFilterEnum.kAssemblyLeafOccurrenceFilter,"select")

Dim f As Array = Split(s.Name, ":")
Dim a As Inventor.AssemblyDocument = ThisDoc.Document
Dim d As Inventor.SelectSet = a.SelectSet

Dim oOccEnum As ComponentOccurrencesEnumerator = a.ComponentDefinition.Occurrences.AllReferencedOccurrences(s.Definition) 
Dim oObjColl As ObjectCollection = ThisApplication.TransientObjects.CreateObjectCollection
For Each oOcc As ComponentOccurrence In oOccEnum
	oObjColl.Add(oOcc)
Next

d.SelectMultiple(oObjColl)

[bradeneuropeArthur]

Thanks that works quicker.

Do you know how to suppress these items too?

[Ralf_Krieg]

Hello

If you only want to suppress, there's no need to add to SelectSet. You can use the Occurrences in the enum.

Dim s As Inventor.ComponentOccurrence = ThisApplication.CommandManager.Pick(Inventor.SelectionFilterEnum.kAssemblyLeafOccurrenceFilter,"select")

Dim f As Array = Split(s.Name, ":")
Dim a As Inventor.AssemblyDocument = ThisDoc.Document
Dim d As Inventor.SelectSet = a.SelectSet

Dim oOccEnum As ComponentOccurrencesEnumerator = a.ComponentDefinition.Occurrences.AllReferencedOccurrences(s.Definition) 
Dim oObjColl As ObjectCollection = ThisApplication.TransientObjects.CreateObjectCollection
For Each oOcc As ComponentOccurrence In oOccEnum
	oOcc.Suppress 
	'oObjColl.Add(oOcc)
Next

'd.SelectMultiple(oObjColl)

[bradeneuropeArthur]

But that works slow.

If i suppress thecollection it works fast.

How yo do that with code?

Thanks anyway 

[Ralf_Krieg · Accepted solution]

Hello

Using the ControlDefinition?

Dim s As Inventor.ComponentOccurrence = ThisApplication.CommandManager.Pick(Inventor.SelectionFilterEnum.kAssemblyLeafOccurrenceFilter,"select")

Dim f As Array = Split(s.Name, ":")
Dim a As Inventor.AssemblyDocument = ThisDoc.Document
Dim d As Inventor.SelectSet = a.SelectSet

Dim oOccEnum As ComponentOccurrencesEnumerator = a.ComponentDefinition.Occurrences.AllReferencedOccurrences(s.Definition) 
Dim oObjColl As ObjectCollection = ThisApplication.TransientObjects.CreateObjectCollection
For Each oOcc As ComponentOccurrence In oOccEnum
	'oOcc.Suppress 
	oObjColl.Add(oOcc)
Next

d.SelectMultiple(oObjColl)

ThisApplication.CommandManager.ControlDefinitions.Item("AssemblyCompSuppressionCtxCmd").Execute 

[bradeneuropeArthur]

Thanks.

That I did not think about that!

That will work.

Are there also other methods then using the control definition?

Thanks again @Ralf_Krieg