Здравствуйте, уважаемые форумчане. Помогите пожалуйста решить такую вот задачу:
У меня есть сборка, содержащая 500 одинаковых деталей. Мне необходимо, например, подавить 240, остальные оставить. Давить изделия перебором выходит очень долго.
В пользовательском интерфейсе есть возможность выбрать мышкой множество вхождений и одновременно подавить, и делается это почти мгновенно. Можно ли повторить аналогичную операцию с помощью метода SelectSet.SelectMultiple (или какого-либо другого) ? Как выбрать изделия, я разобрался, а вот как подавить их додуматься не могу
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