Удаление подавленного или исключенного массива состоящего из массивов.

[Elfilagas]

Добрый день,
Для исключенного массива из элементов сделал так:

Код - Visual Basic [Выбрать]

1. Start:
2.                     For Each z As Inventor.ComponentOccurrence In aDoc.ComponentDefinition.Occurrences
3.                         If z.Suppressed OrElse z.Excluded Then
4.                             If z.IsPatternElement Then
5.                                 z.PatternElement.Parent.delete()
6.                                 GoTo Start
7.                             Else
8.                                 z.Delete()
9.                             End If
10.                         End If
11.                     Next

Но есть исключенный массив, состоящий из массивов, не могу его удалить. Прошу помочь.
Спасибо.

[Elfilagas]

Поковырялся денек, вроде работает ) :

Код - Visual Basic [Выбрать]

1. Start:
2.                     For Each z As Inventor.ComponentOccurrence In aDoc.ComponentDefinition.Occurrences
3.  
4.                         If z.Excluded Then
5.  
6.                             If z.IsPatternElement Then 'Удаление массива в котором массивы
7.                                Dim k As OccurrencePattern = z.PatternElement.Parent
8.                                 If k.IsPatternElement Then
9.                                     k.PatternElement.Parent.delete()
10.                                     GoTo Start
11.                                 End If
12.                             End If
13.  
14.                             If z.IsPatternElement Then 'Удаление массива элементов
15.                                z.PatternElement.Parent.delete()
16.                                 GoTo Start
17.                             Else
18.                                 z.Delete() 'Удаление элементов
19.                            End If
20.  
21.                         End If
22.  
23.                     Next

[Александр Ривилис]

Elfilagas
Ознакомься пожалуйста с правилами форматирования кода для форума (у меня в подписи).