Autodesk Inventor API. Первые шаги/Первая программа: различия между версиями

Первые несколько строк являются комментариями. Ими считаются любой текст после знака ' . Они игнорируются при исполнении команд, предназначены для читателей текста, т.е. для программистов, и чрезвычайно полезны, когда нужно понять логику алгоритма и внести в программу какие-либо изменения.

 

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

' Flush_XYZ

'Процедура работает в контексте сборки.

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 

 

Следующие строки начинают и завершают процедуру (Sub) с именем Flush_XYZ без аргументов, о чем свидетельствуют пустые скобки. Весь текст между этими строками является собственно текстом макроса. Макросом в VBA называется глобальная процедура (Public Sub) без аргументов (с пустыми скобками).

 

Public Sub Flush_XYZ()

………………

………………

End Sub ' Flush_XYZ

 

 

Первая группа команд, начинающихся с <tt>Dim</tt> (от англ. ''dimension'' — размерность), объявляет все нужные программе переменные и их типы.

 

Dim oApp As Inventor.Application 'приложение Inventor

Dim oAsmCompDef As AssemblyComponentDefinition 'сборка

Dim oCompOcc As ComponentOccurrence 'компонент

Dim oSelectSet As SelectSet

 

Переменная <tt>oApp</tt> будет хранить указатель (ссылку) на активное приложение Inventor, объект типа <tt>Application</tt>.

 

Следующие три декларации объявляют переменные, посредством которых мы будем оперировать рабочими плоскостями сборки и детали.

Dim oAsmPlane As WorkPlane 'рабочие плоскости сборки

Dim oPartPlane As WorkPlane 'рабочие плоскости детали

Dim oPartPlaneProxy As WorkPlaneProxy 'proxy-плоскости детали

 

Последним объявляется счетчик циклов <tt>i<tt>:

Dim i As Long 'счетчик плоскостей 1,2,3

 

 

 

Первым делом получим ссылку на активное приложение INVENTOR и сохраним его в переменной <tt>oApp</tt>:

Set oApp = ThisApplication

 

 

Далее важный элемент работы программы — следует провериться, а в контексте ли сборки запускает пользователь наш макрос? Если нет, то выводится соответствующее уведомление и работа макроса завершается.

 

'Проверка: а в сборке ли мы?

If oApp.ActiveDocument.DocumentType <> kAssemblyDocumentObject Then

Exit Sub

End If

 

Если исполнение программы продвинулось дальше, значит активным документом действительно является сборка, и мы можем создать объект <tt>oAsmCompDef</tt>, в котором сохраняем определение компонентов активной сборки.

 

Set oAsmCompDef = oApp.ActiveDocument.ComponentDefinition

 

Теперь самое время узнать, что же выделил (если выделил) в сборке пользователь. Для этого требуется получить доступ к коллекции выделенных объектов <tt>SelectSet</tt> активной сборки. В программе это делается с помощью переменной <tt>oSelectSet</tt>:

 

'Ссылка на коллекцию SelectSet активного документа

Set oSelectSet = oApp.ActiveDocument.SelectSet

 

 

Далее в программе следуют две обязательных проверки. Первая проверяет, что выделен только один компонент, а вторая — что выделен именно компонент, а не что-либо иное (например, рабочая плоскость). Если хотя бы одно условие не выполнено, то выполнение макроса завершается с выводом пользователю соответствующего сообщения.

 

'Проверка: должен быть выделен один и только один элемент

If oSelectSet.Count <> 1 Then

Exit Sub

End If

 

 

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

 

'ссылка на выделенный компонент (деталь)

Set oCompOcc = oSelectSet.Item(1)

 

 

Далее в программе мы встречаем интересную конструкцию — пример работы с транзакциями. Здесь формируется транзакция с именем "Привязка_XYZ". Все действия, выполненные программой внутри блока между командами <tt>StartTransaction</tt> и <tt>End</tt> могут быть отменены за один шаг Undo.

 

'Инициализация транзакции для возможной отмены за один шаг

Dim oConstrTransaction As Transaction

…………………………

oConstrTransaction.End 'завершение транзакции

 

 

И наконец, мы подошли к самому главному, тому, ради чего программа и была создана — к привязке выделенного компонента oCompOcc к системе координат сборки наложением трех зависимостей совмещения заподлицо одноименных базовых плоскостей XY, YZ и XZ сборки и компонента.

 

'Совмещаем в цикле базовые плоскости сборки и компонента.

Next i

 

Для каждой из трех базовых плоскостей сборки выполняется однотипная последовательность операций, завершающихся созданием зависимости типа FlushConstraint (заподлицо). Сборка oAsmCompDef имеет свойство Constraints — ссылку на коллекцию всех сборочных зависимостей. Метод AddFlushConstraint(oAsmPlane, oPartPlaneProxy, 0) дополняет эту коллекцию новой зависимостью совмещения заподлицо для двух плоскостей oAsmPlane сборки и oPartPlaneProxy компонента. Третий аргумент означает отсутствие смещения — нулевое расстояние между указанными плоскостями.