Как получить список всех деталей в сборке с помощью макроса

Как поворачивать (перемещать) детали в сборке с помощью макроса SW

Условие. Открыт файл сборки. В нем есть свободный компонент (незафиксированная деталь). Выделяем эту деталь, запускаем макрос, и она становится в нужное нам положение.

Для изменения положения (поворота или перемещения) компонента в сборке существует свойство Transform2 интерфейса IComponent2. Свойство позволяет работать с так называемой математической матрицей трансформации. Звучит серьезно, но на самом деле ничего сложного нет.

Матрица Трансформации (MathTransform) – массив чисел, которые определяют положение детали в сборке.

В представлении SW api это выглядит следующим образом.

Первые 9 элементов ( a, b, c, d, e, f, g, h, i) отвечают за поворот детали, следующие 3 (j, k, l) за перемещение. Следующий m – масштабный фактор. Последние (n, o, p) – не используются в данном контексте.

Теперь подробнее.

Поворот

Первые три числа (a, b, c) – поворот детали относительно оси X. Или, что более правильно, положение осей детали относительно оси X сборки. Другими словами:

o a – это косинус угла между осью X детали и осью X сборки.

o b – это косинус угла между осью Y детали и осью X сборки.

o c – это косинус угла между осью Z детали и осью X сборки.

Следующий ряд (d, e, f) – аналогично.

o d – это косинус угла между осью X детали и осью Y сборки.

o e – это косинус угла между осью Y детали и осью Y сборки.

o f – это косинус угла между осью Z детали и осью Y сборки.

Наконец, ряд3 (g, h, i).

o g – это косинус угла между осью X детали и осью Z сборки.

o h – это косинус угла между осью Y детали и осью Z сборки.

o i – это косинус угла между осью Z детали и осью Z сборки.

Перемещение

Числа j, k, l ( 9, 10, 11 элементы массива) определяют вектор перемещения нулевой точки детали, относительно нулевой точки сборки. Или сказать по-другому, вектор перемещения это – вектор, направленный от нулевой точки сборки к нулевой точке детали, а числа j, k и l – это проекции данного вектора на оси X, Y, Z сборки.

o j – косинус угла между вектором перемещения и осью X сборки.

o k – косинус угла между вектором перемещения и осью Y сборки.

o l – косинус угла между вектором перемещения и осью Z сборки.

Свойство Transform2 позволяет прочитать или записать матрицу трансформации компонента, как объект класса IMathTransform.

Чтобы прочитать данные с этого объекта (массив тех самых чисел), надо воспользоваться свойством ArrayData интерфейса IMathTransform.

Свойство позволяет получить или передать массив чисел для матрицы трансформации компонента.

Примерный порядок работы для изменения положения детали в сборке.

· Получить доступ к компоненту.

· Получить его матрицу трансформации (Transform2)

· Прочитать данные с матрицы (ArrayData)

· Поменять те значения, которые нам нужны и переписать матрицу (ArrayData)

· Передать новую матрицу трансформации в компонент (Transform2)

Рассмотрим пример.

Задача. Есть деталь в свободном положении в сборке. Она выделена. Надо чтобы она встала точно по центру. Точка ноль детали – совпадает с нулевой точкой сборки. Ось X детали совпадает по на правлению с осью X сборки и т. д.)

Visual Basic

Option Explicit Dim swApp As SldWorks.SldWorks Dim model As ModelDoc2 Dim assem As AssemblyDoc Dim sel As SelectionMgr Dim comp As Component2 Dim transform As MathTransform Dim dataTransform As Variant

Option Explicit Dim swApp As SldWorks.SldWorks Dim model As ModelDoc2 Dim assem As AssemblyDoc Dim sel As SelectionMgr Dim comp As Component2 Dim transform As MathTransform Dim dataTransform As Variant

Объявляем необходимые переменные.

o comp – объект для хранения компонента (детали) сборки.

o transform – объект для хранения матрицы трансформации компонента сборки.

o dataTransform – объект для хранения массива значений матрицы трансформации.

Visual Basic

Sub main() Set swApp = Application.SldWorks Set model = swApp.ActiveDoc Set assem = model Set sel = model.SelectionManager Set comp = sel.GetSelectedObjectsComponent3(1, -1)

Sub main() Set swApp = Application.SldWorks Set model = swApp.ActiveDoc Set assem = model Set sel = model.SelectionManager Set comp = sel.GetSelectedObjectsComponent3(1, -1)

Получаем доступ с компоненту.

Метод GetSelectedObjectsComponent3(1, -1) интерфейса ISelectionMgr, похож на метод GetSelectedObject6, только предназначен для работы с компонентами сборки.

[IComponent2] = [ISelectionMgr]. GetSelectedObjectsComponent3(Index, Mark)

o Index – номер выделенного элемента. Отсчет начинается с 1.

o Mark – числовая отметка объекта.

§ -1 – выделять все объекты, несмотря на марки

§ 0 – выделять только объекты без марок

Visual Basic

Set transform = comp.Transform2 dataTransform = transform.ArrayData

Set transform = comp.Transform2 dataTransform = transform.ArrayData

Получаем объект матрицы трансформации компонента и считываем с него данные.

Теперь надо записать новые значения для матрицы:

Положение осей детали относительно оси X сборки:

Visual Basic

dataTransform(0) = 1 dataTransform(1) = 0 dataTransform(2) = 0

dataTransform(0) = 1 dataTransform(1) = 0 dataTransform(2) = 0

Положение осей детали относительно оси Y сборки:

Visual Basic

dataTransform(3) = 0 dataTransform(4) = 1 dataTransform(5) = 0

dataTransform(3) = 0 dataTransform(4) = 1 dataTransform(5) = 0

Положение осей детали относительно оси Z сборки:

Visual Basic

dataTransform(6) = 0 dataTransform(7) = 0 dataTransform(8) = 1

dataTransform(6) = 0 dataTransform(7) = 0 dataTransform(8) = 1

Координаты вектора перемещения (0, 0, 0) – нулевая точка детали совпадает с нулевой точкой сборки.

Visual Basic

dataTransform(9) = 0 dataTransform(10) = 0 dataTransform(11) = 0

dataTransform(9) = 0 dataTransform(10) = 0 dataTransform(11) = 0

Записываем новые данные в матрицу и передаем матрицу в компонент.

Visual Basic

transform.ArrayData = dataTransform comp.Transform2 = transform End Sub

transform.ArrayData = dataTransform comp.Transform2 = transform End Sub

Итого. Положение компонента в сборке полностью определяется матрицей трансформации.

Определить в уме как должна поменяться матрица трансформации в зависимости от положения детали достаточно сложно. Потому что изменение положения относительно одной оси ведет к изменениям относительно других осей.

Проще, наверное, вручную расположить деталь нужным образом и затем прочитать её матрицу трансформации. Например, так:

Visual Basic

Set comp = sel.GetSelectedObjectsComponent3(1, -1) Set transform = comp.Transform2 dataTransform = transform.ArrayData Dim el For Each el In dataTransform Debug.Print el Next el

Set comp = sel.GetSelectedObjectsComponent3(1, -1) Set transform = comp.Transform2 dataTransform = transform.ArrayData Dim el For Each el In dataTransform Debug.Print el Next el

Как получить список всех деталей в сборке с помощью макроса

Условие. Открыт файл сборки. Запускаем макрос и в Immediate окне появляется список всех деталей сборки.

В справке SW api рекомендуется следующая последовательность действий для обхода деталей сборки.

1. Получаем доступ к определенной конфигурации сборки. Например с помощью метода GetConfigurationByName интерфейса IModelDoc

2. Получаем доступ к корневому элементу дерева сборки. Метод GetRootComponent3 интерфейса IConfiguration.

3. Получаем все дочерние элементы от корневого. Метод GetChildren интерфейса IComponent2.

Попробуем реализовать все это в коде.

Visual Basic

Option Explicit Dim swApp As SldWorks.SldWorks Dim model As ModelDoc2 Dim assem As AssemblyDoc Dim rootComp As Component2 Dim config As Configuration

Option Explicit Dim swApp As SldWorks.SldWorks Dim model As ModelDoc2 Dim assem As AssemblyDoc Dim rootComp As Component2 Dim config As Configuration

Объявляем переменные.

rootComp – объект класса Component2. Для хранения корневого элемента сборки.

Visual Basic

Sub main() Set swApp = Application.SldWorks Set model = swApp.ActiveDoc Set assem = model

Sub main() Set swApp = Application.SldWorks Set model = swApp.ActiveDoc Set assem = model

Получаем доступ к интерфейсу сборки.

Visual Basic

Set config = model.ConfigurationManager.ActiveConfiguration

Set config = model.ConfigurationManager.ActiveConfiguration

Получаем доступ к активной конфигурации сборки.

Visual Basic

Set rootComp = config.GetRootComponent3(True) Debug.Print rootComp.Name2

Set rootComp = config.GetRootComponent3(True) Debug.Print rootComp.Name2

Получаем корневой элемент сборки. Узнаем его имя с помощью свойства Name2 интерфейса IComponent2 .

Visual Basic

Call infoParts(rootComp)

Call infoParts(rootComp)

Вызываем функцию для обхода дочерних компонентов корневого элемента.

Visual Basic

Function infoParts(comp As Component2) Dim varComp As Variant Dim elem varComp = comp.getChildren If arrIsEmpty(varComp) = False Then Debug.Print "под-сборка:" For Each elem In varComp If elem.GetSuppression <> 0 And elem.IsPatternInstance = False Then Debug.Print elem.Name2 End If Set comp = elem infoParts comp Next End If End Function

Function infoParts(comp As Component2) Dim varComp As Variant Dim elem varComp = comp.getChildren If arrIsEmpty(varComp) = False Then Debug.Print "под-сборка:" For Each elem In varComp If elem.GetSuppression <> 0 And elem.IsPatternInstance = False Then Debug.Print elem.Name2 End If Set comp = elem infoParts comp Next End If End Function

Функция infoParts в качестве параметра принимает ссылку на компонент сборки. Рассмотрим её код:

Visual Basic

Dim varComp As Variant Dim elem

Dim varComp As Variant Dim elem

varComp – объект для хранения массива компонентов

Visual Basic

varComp = comp.getChildren

varComp = comp.getChildren

Метод getChildren позволяет получить все дочерние элементы указанного компонента. Возвращает массив компонентов. Дети детей (если они есть) не передаются. Для каждой подсборки надо вызывать этот метод снова.

Visual Basic

If arrIsEmpty(varComp) = False Then

If arrIsEmpty(varComp) = False Then

Для определения не пустоты массива используем функцию:

Visual Basic

Function arrIsEmpty(arr As Variant) As Boolean Dim u As Integer On Error Resume Next u = UBound(arr) If Err = 0 And UBound(arr) <> -1 Then arrIsEmpty = False Else arrIsEmpty = True End If End Function

Function arrIsEmpty(arr As Variant) As Boolean Dim u As Integer On Error Resume Next u = UBound(arr) If Err = 0 And UBound(arr) <> -1 Then arrIsEmpty = False Else arrIsEmpty = True End If End Function

Подробнее см. пост: Работа с массивами в VBA.

Visual Basic

For Each elem In varComp If elem.GetSuppression <> 0 And elem.IsPatternInstance = False Then Debug.Print elem.Name2 End If Set comp = elem infoParts comp Next

For Each elem In varComp If elem.GetSuppression <> 0 And elem.IsPatternInstance = False Then Debug.Print elem.Name2 End If Set comp = elem infoParts comp Next

Если массив «детей» не пустой, тогда обходим его с помощью цикла for Each.

Visual Basic

If elem.GetSuppression <> 0 And elem.IsPatternInstance = False Then

If elem.GetSuppression <> 0 And elem.IsPatternInstance = False Then

Проверяем, что компонент не погашен и не является элементом массива.

Для каждого компонента снова вызываем нашу функцию infoParts. Получается рекурсивный вызов.

В итоге должно получиться что-то вроде этого:

Обратите внимание, как указывается имя детали в подсборке.