Sub supress_by_SelectSet()
Dim oDoc As Inventor.Document
Set oDoc = ThisApplication.ActiveDocument
Dim oOccs As ComponentOccurrences
Set oOccs = ThisApplication.ActiveDocument.ComponentDefinition.Occurrences
Dim oColletionOcc As ObjectCollection
Set oColletionOcc = ThisApplication.TransientObjects.CreateObjectCollection
Dim i As Integer: Dim i2 As Double
i2 = 240 ' это число постоянно разное
For i = 1 To i2
oColletionOcc.Add oOccs(i)
Next
oDoc.SelectSet.Clear
oDoc.SelectSet.SelectMultiple oColletionOcc
End Sub