1. Загрузите проект из предыдущего урока и откройте Form1 в окне кода. Если плагин работает, остановите его командой Остановить отладку в меню Отладка VB Express.  Другой способ — закрыть окно формы кликом на x в правом верхнем углу формы.  Если активно окно конструктора, правым кликом на Form1.vb в обозревателе решения откройте контекстное меню и укажите в нем пункт Перейти к коду.  В цикле For Next обработчика события Button1_Click вы уже сейчас можете подавить видимость выделенных пользователем компонентов, меняя у каждого из них текущее значение свойства Visible на False.  Закомментируйте строку, в которой меняется значение свойства Visible. Для этого достаточно в начале строки поставить апостроф (') (одинарную кавычку). 

          For Each obj In selSet
               compOcc = obj
               Debug.Print(compOcc.Name)
               'compOcc.Visible = False
          Next
   

2. В Inventor API имеются три класса, предназначенные для присвоения объектам атрибутов.  Один из них — коллекция наборов атрибутов AttributeSets.  Введите строку кода с объявлением переменной attbSets типа AttributeSets.  В этой переменной мы сохраним ссылку на свойство AttributeSets компонента compOcc
   

   Dim attbSets As AttributeSets = compOcc.AttributeSets
   

3. Мы собираемся однократно присвоить атрибут помечаемым объектам.  Метод NameIsUsed() коллекции AttributeSets дает возможность проверить, не создан ли уже набор атрибутов AttributeSet с заданным именем.  После кода, введенного на шаге 2, введите следующие строки:

   ' Добавим атрибуты в ComponentOccurrence
   If Not attbSets.NameIsUsed("myPartGroup") Then
    
   End If
   

4. Теперь вы создадите и инициализируете переменную attbSet типа AttributeSet, как и раньше для этого применим ключевое слово Dim и знак равенства.  Строка “myPartGroup” задает имя набора атрибутов AttributeSet в коллекции AttributeSets.  После условного выражения If Then, введенного на шаге 3, добавьте следующую строку:

   Dim attbSet As AttributeSet = attbSets.Add("myPartGroup")
   

   
   
5. И наконец, третьим классом является, собственно, класс Attribute.  Объекты Attribute создаются методом Add() класса AttributeSet.  Вы можете присвоить ссылку на результат метода Add() непосредственно своей переменной attb типа Inventor.Attribute.  Это еще один случай, когда во избежание конфликта имен с другим классом нам приходится явно указывать пространство имен Inventor.
   

   Dim attb As Inventor.Attribute = _
                attbSet.Add( _
                  "PartGroup1", ValueTypeEnum.kStringType, "Group1")
   

   
   
6. Выполните построение проекта. Для этой цели используйте пункт Build в меню Debug. Если в программе есть ошибки, вы получите диагностические сообщения. Регулярное построение проекта помогает выявлять ошибки на ранних стадиях разработки и заодно сохраняет вашу работу на диске.

1. Создайте точку останова программы на строке, в которой добавляется атрибут.  Для этого установите курсор на нужной строке и нажмите функциональную клавишу F9.  Другой метод — кликнуть на серой вертикальной полосе слева от окна кода, той самой, где появляется красный маркер точки останова.
   
   
   
   
2. Запустите программу на выполнение, используя клавишу F5 или выбрав пункт Начать отладку в меню Отладка.
   
   
   
3. В пользовательском интерфейсе Inventor выделите пару компонентов активной сборки и кликните на кнопке в форме.  Среда Visual Basic Express станет активной в момент, когда управление программой дойдет до строки, отмеченной точкой останова. Вы увидите окно программного кода в состоянии ожидания ваших действий.
   
   
   
   
4. В состоянии ожидания на точке останова вы можете просматривать текущие значения переменных в окне Контрольное значение (Watch window). Для этого правым кликом на имени переменной откройте контекстное меню и выберите там пункт  Добавить контрольное значение (Add Watch).
   
   
   
   В окне контрольных значений можно найти значения свойств наборов атрибутов AttributeSet, включая текущие значения самих атрибутов, присвоенные в предыдущих строках программы.
   
   
   
   Для продолжения вычислений используйте клавишу F5 или варианты из меню Отладка (Debug). Например, для пошагового выполнения программы  полезна клавиша F8.
   
   
   
   
5. Для завершения отладки используйте пункт Остановить отладку (Stop Debugging) меню Отладка (Debug).

Tеперь добавим к нашей форме вторую кнопку, с помощью которой мы воспользуемся ранее присвоенными атрибутами.  Переключитесь на Конструктор (правый клик на Form1.vb в браузере проекта и там пункт Открыть в конструкторе или же Shift+F7).  Снова отобразите Панель элементов (Shift+F7) через меню Вид → Другие окна → Панель элементов (или клавиши Ctrl+Alt+X). Перетащите мышью элемент управления из палитры на форму и задайте кнопке подходящий размер.

1. По умолчанию на только что созданной кнопке отображается текст типа Button1, Button2 и т.д.  В большинстве случаев его желательно заменить на более подходящий вариант.  Это можно сделать в окне Свойства Обозревателя решений.  Чтобы перейти к свойствам, достаточно правым кликом на кнопке открыть ее контекстное меню и выбрать там пункт Свойства.  За отображаемый на кнопке текст отвечает ее свойство Text. Измените значение свойства Text второй кнопки на «Скрыть / Показать группу».  Обратите внимание, отображаемый текст никак не влияет на внутреннее имя кнопки.
   
    
   
   
2. Аналогичным образом измените текст на первой кнопке на «Добавить в группу».
3. Двойной клик на кнопке в «Добавить в группу» открывает окно кода и показывает в нем заготовку обработчика события «нажатие кнопки».  На предыдущем уроке мы получили тот же результат, но с использованием выпадающих списков в окне кода.  Оба метода эквивалентны.
   
   
4. В момент клика на кнопке Button2 нам понадобится получить ссылку на AttributeManager активного документа.  Мы должны убедиться, что этот документ является сборкой.  Код такой проверки мы уже имеем в обработчике нажатия кнопки Button1_Click, так что его можно просто скопировать в процедуру Button2_Click Sub.

      If _invApp.Documents.Count = 0 Then
         MsgBox("Следует открыть документ сборки")
         Return
       End If
    
       If _invApp.ActiveDocument.DocumentType <> _
            DocumentTypeEnum.kAssemblyDocumentObject Then
         MsgBox("Активным должен быть документ сборки")
         Return
       End If
    
       Dim asmDoc As AssemblyDocument
       asmDoc = _invApp.ActiveDocumen
   

   
   
5. Теперь можно воспользоваться функционалом менеджера атрибутов для поиска ассоциированных с атрибутами объектов.  Введите следующие команды после строк, созданных на предыдущем шаге.
   

   Try
        Dim attbMan As AttributeManager = asmDoc.AttributeManager
    
         Dim objsCol As ObjectCollection
         objsCol = _
           attbMan.FindObjects("myPartGroup", "PartGroup1", "Group1")
    
        Catch ex As Exception
             MsgBox("Проблема с подавлением видимости компонента")
   End Try
   

   
   
6. Метод FindObjects вернет все отмеченные нашими атрибутами объекты в составе коллекции типа ObjectCollection.  Нам остается лишь пройтись по членам этой коллекции и инвертировать признак видимости компонентов.  В результате все видимые погаснут, а невидимые станут отображаться.  Для этого введите следом следующий код между вызовом метода FindObjects и ключевым словом Catch.
   

   Dim compOcc As ComponentOccurrence
   For Each obj As Object In objsCol
       compOcc = obj
   'Переключаем состояние видимости
   'компонента на противоположное
      compOcc.Visible = Not compOcc.Visible
   Next
   

7. Выполните построение проекта и исправьте все ошибки, если будут компилятор их обнаружит.  Вы можете тестировать и отлаживать программу, используя F5 или пункт Начать отладку (Start Debugging) меню Отладка (Debug).  Выделите в сборке пару компонентов и кликните кнопку Button1, чтобы вставить в них наши атрибуты.  Теперь при каждый клик на кнопке Button2 будет переключать видимость отмеченных компонентов.