Автоматический подсчёт габаритов модели

[Snake 60 679]

2 минуты назад, EAleksey сказал:

Спасибо огромное, всё заработало)

Рад помочь, обращайтесь )

[Kelny 1 234]

7 минут назад, EAleksey сказал:

Спасибо огромное, всё заработало)

Вот и замечательно, хотя вроде всё одинково, но у вас через чур много ссылок помечено галочками, возможно проблема возникла из-за этого.

При желании разобраться можно поставить точки остановки (красные) в коде формы UserForm1 процедуру Private Sub LoadSet()  и посмотреть что к чему в этих точках и какое значение у Part.GetType (хотя вроде всё одинаково во всех вариациях):

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

 

[Павлуха 505]

А зачем макрос?

При включении граничной рамки SW автоматом заносит в свойства габаритные размеры и объём изделия.

[Snake 60 679]

@Kelny  проблема была в строке:

Set swApp = CreateObject("SldWorks.Application") - которая создает новый экземпляр солида

заменил на:

Set swApp = Application.SldWorks - которая подключается к текущей сессии солида, в которой открыта деталь/сборка.

[Kelny 1 234]

3 минуты назад, Snake 60 сказал:

проблема была в строке:

Set swApp = CreateObject("SldWorks.Application") - которая создает новый экземпляр солида

Справка говорит, что это допустимый вызов без запуска нового экземпляра программы:

Цитата

SOLIDWORKS running: Attach to existing SOLIDWORKS session and end SOLIDWORKS session

Sub Macro2()

     Dim swApp As Object

     Set swApp = CreateObject("SldWorks.Application")

     swApp.ExitApp

     Set swApp = Nothing

End Sub

https://help.solidworks.com/2019/English/api/sldworksapi/SolidWorks_Visible_or_BackGround_Example_VB.htm

 

Ну да ладно.

[Snake 60 679]

5 минут назад, Kelny сказал:

Справка говорит, что это допустимый вызов без запуска нового экземпляра программы:

Может быть у меня не заработал (как и у коллеги выше) т.к. у меня установлены 2 версии солида, и, возможно, CreateObject создает отличную от запущенной версию SW. А если установлена 1 версия, то тогда подключается к существующей. Чисто предположение.

Изменено 6 апреля 2023 пользователем Snake 60

[EAleksey 1]

17 часов назад, Павлуха сказал:

А зачем макрос?

При включении граничной рамки SW автоматом заносит в свойства габаритные размеры и объём изделия.

Спасибо за наводку, тоже удобный метод

[Maik812 289]

05.07.2017 в 15:30, thevsh сказал:

Чтобы сразу выдавал выбранные значение в мм и AxBxC? Порылся в коде макроса, ничего не понял.

Альтернативный вариант такого решения  для поиска /фильтра / сортировки/добавления свойсва в имени