macro ComponentTree

[jtok 1,003]

Всем привет

 

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

 

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

Рекурсивно строится дерево компонентов со всеми нужными свойствами - для сборок и деталей это SldWorks.Component2,  из которого потом достанем все свойства пользователя, для сварных и листовых деталей, которые сборки - SldWorks.Feature, из которого достаем списки вырезов с теми же свойствами.

 

Рекурсивно же бродим по дереву, дергаем листочки и собираем общее количество и нужные нам свойства.

 

Как оно сейчас работает:

 

Главная форма. Пока на ней ничего не работает, кроме "Большой Красной Кнопки" и мелкого переключателя про промежуточные вычисления:

Скрытый текст

 

Если включен переключатель, будет показано это окно (его включать необязательно, это просто визуализация дерева):

Скрытый текст

 

Результат в Excel по кнопке "Продолжить":

Скрытый текст

 

Свойства пользователя, которые желательно должны быть заполнены в Списках вырезов или Свойствах пользователя:
 - Формат
 - Наименование
 - Обозначение
 - Масса
 - Материал
 - Заготовка
 - Типоразмер

 

Писалось под SW2018, работает также и на SW2024.

Цель выложить сюда - проверить на баги и глюки, ну и вдруг кому интересно, как ходить по дереву и дергать листики.

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

 

v0.01a

Понятно, использован чатГПТ и кибертехнолох.

Обратная связь приветствуется.

CompTree v0.01a.zip

[ГЕЛА 54]

SW2020SP5 не работает. Хотя и не должно наверное.

[jtok 1,003]

2 минуты назад, ГЕЛА сказал:

Хотя и не должно наверное

Должно по идее. В SW2018 работало.

Скорее всего, нужно переключить ссылки в меню Tools-Reference на ваши версии (2024->2020)

Скрытый текст

Убрал лишние Reference. v0.02a.

CompTree v0.02a.zip

[ANT0N1DZE 215]

А покупное как-то отображается?

[jtok 1,003]

32 минуты назад, ANT0N1DZE сказал:

А покупное как-то отображается

Если это деталь или сборка с заполненными свойствами, то да. Но в типе будет деталь или сборка соотв. 

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

[clavr 223]

37 минут назад, jtok сказал:

продвинутые сборки

что это?

[jtok 1,003]

1 час назад, clavr сказал:

что это?

Это такая сборка, которая в спецификации прикидывается не сборкой, т.е все входящие в нее компоненты переходят на один уровень вверх, хотя в дереве конструирования выглядит все как обычно. Поиском по справке Продвинуть/Promote. 
Активируется правой кнопкой мыши по развернутой модельке в спецификации. Выключается правой кнопкой по сборке в дереве из чертежа. 

[jtok 1,003]

Версия 0.03. Правка ошибок.

CompTree v0.03.zip

[jtok 1,003]

Версия 0.04. Правка ошибок.

CompTree v0.04.zip

[ГЕЛА 54]

Доброго всем дня. Я правильно понимаю что надо менять библиотеки подчеркнутые на библиотеки с вопросом. Если да - то не помогает , макрос не запускается. Наставте кто на путь истинный .

Скрытый текст

 

[mme 10]

Error: Type mismatch - 'и вставим предупреждение, если не сходится кол-во тел!
        If cBody <> CInt(.cells(currRow + 2, 7 + maxLevel).Value) Then
          .cells(currRow + 3, 7 + maxLevel - 1).Value = "Количество тел [" & cBody & "] не равно количеству деталей [" & _
                                                         .cells(currRow + 2, 7 + maxLevel).Value & _
                                                         "]! Проверьте подсвеченные красным позиции и их примечания или спецификацию по чертежам!"

Edited November 25 by mme

[jtok 1,003]

1 час назад, mme сказал:

Error: Type mismatch

Ошибка приведения типов. Я повторить не смог.

 

Есть несколько вариантов решения:

1) закомментить весь блок проверки:

Скрытый текст

2) переменная cBody - long. Переменная .cells - variant. Правильнее было бы привести .cells к Long с помощью функции cLng():

        If cBody <> CLng(.cells(currRow + 2, 7 + maxLevel).Value) Then
          .cells(currRow + 3, 7 + maxLevel - 1).Value = "Количество тел [" & cBody & "] не равно количеству деталей [" & _
                                                         CLng(.cells(currRow + 2, 7 + maxLevel).Value) & _
                                                         "]! Проверьте подсвеченные красным позиции и их примечания!"
          .cells(currRow + 3, 7 + maxLevel - 1).Font.Bold = True
          .cells(currRow + 3, 7 + maxLevel - 1).Font.Color = vbRed
        End If

 

1 час назад, ГЕЛА сказал:

Наставте кто на путь истинный

Вам нужно снять галки с библиотек, помеченных словом "MISSING" и установить их напротив таких же библиотек, только с вашей версией, сохранить.

После этого заработает, точка входа - ComponentTree.Main:

Скрытый текст

 

[jtok 1,003]

Версия 0.05. Правка ошибок.

CompTree v0.05.zip

[jtok 1,003]

Версия 0.06. Чисто визуал. Начали использовать в продакшн.

CompTree v0.06.zip

[Snake 60 855]

2 часа назад, jtok сказал:

Версия 0.06. Чисто визуал. Начали использовать в продакшн.

Держи 1000й лайк за это =))