Викиучебник

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

Интерактивная навигация по истории
← Предыдущая правкаСледующая правка →
Содержимое удалено Содержимое добавлено
ВизуальныйВики-текст
Строка 96:
Dim oCompOcc As ComponentOccurrence 'компонент
Dim oSelectSet As SelectSet
Dim oAsmPlane As WorkPlane 'рабочие плоскости сборки
Dim oPartPlane As WorkPlane 'рабочие плоскости детали
Dim oPartPlaneProxy As WorkPlaneProxy 'proxy-плоскости детали
Dim i As Long 'счетчик плоскостей 1,2,3
</source>
 
Строка 115 ⟶ 109 :
Следующие три декларации объявляют переменные, посредством которых мы будем оперировать рабочими плоскостями сборки и детали.
<source lang="vbnet">
Dim oAsmPlane As WorkPlane 'рабочие плоскости сборки
Dim oPartPlane As WorkPlane 'рабочие плоскости детали
Dim oPartPlaneProxy As WorkPlaneProxy 'proxy-плоскости детали
</source>
 
Последним объявляется счетчик циклов <tt>i<tt>:
<source lang="vbnet">
Dim i As Long 'счетчик плоскостей 1,2,3
</source>
 
 
Далее идут исполняемые команды.
 
 
Первым делом получим ссылку на активное приложение INVENTOR и сохраним его в переменной <tt>oApp</tt>:
<source lang="vbnet">
Set oApp = ThisApplication
</source>
 
 
Далее важный элемент работы программы — следует провериться, а в контексте ли сборки запускает пользователь наш макрос пользователь? Если нет, то выводится соответствующее уведомление и работа макроса завершается.▼
 
▲Далее важный элемент работы программы — следует провериться, а в контексте ли сборки запускает наш макрос пользователь? Если нет, то выводится соответствующее уведомление и работа макроса завершается.
 
<source lang="vbnet">
Источник — https://ru.wikibooks.org/wiki/Autodesk_Inventor_API._Первые_шаги/Первая_программа