Сообщество программистов Autodesk в СНГ

ADN Club => Inventor API => Тема начата: Elfilagas от 04-05-2016, 17:28:12

Название: Удаление подавленного или исключенного массива состоящего из массивов.
Отправлено: Elfilagas от 04-05-2016, 17:28:12
Добрый день,
Для исключенного массива из элементов сделал так:
Код - 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

Но есть исключенный массив, состоящий из массивов, не могу его удалить. Прошу помочь.
Спасибо.
Название: Re: Удаление подавленного или исключенного массива состоящего из массивов.
Отправлено: Elfilagas от 05-05-2016, 13:26:16
Поковырялся денек, вроде работает ) :


Код - 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
Название: Re: Удаление подавленного или исключенного массива состоящего из массивов.
Отправлено: Александр Ривилис от 05-05-2016, 14:24:48
Elfilagas
Ознакомься пожалуйста с правилами форматирования кода для форума (у меня в подписи).