Сделай свою работу в Solidworks эффективнее

[DuS 328]

6 минут назад, alek77 сказал:

закоментите эту строку

ок, попробую

Отключил ту строку. 

Даже не знаю что написать. Всё работает великолепно! Добавить нечего. 

[alek77 222]

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

ок, попробую

Отключил ту строку. 

Даже не знаю что написать. Всё работает великолепно! Добавить нечего. 

добавить всегда есть что! Спасибо за помощь! Напишите, если что-то всплывет

[DuS 328]

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

добавить всегда есть что! Спасибо за помощь! Напишите, если что-то всплывет

Обязательно напишу! Спасибо за макрос.

[DuS 328]

3 часа назад, alek77 сказал:

Напишите, если что-то всплывет

Родилась такая мысль: если после того как отсортировалось дерево повторно запустить макрос и снять все галочки, то дерево вернется к первоначальному виду. Так вот, для удобства можно сделать кнопку снимающую все галочки и назвать ее как нибудь типа "отменить сортировку".

Это мелочь конечно, но вдруг кому так будет удобнее.)

[alek77 222]

3 часа назад, DuS сказал:

Родилась такая мысль: если после того как отсортировалось дерево повторно запустить макрос и снять все галочки, то дерево вернется к первоначальному виду. Так вот, для удобства можно сделать кнопку снимающую все галочки и назвать ее как нибудь типа "отменить сортировку".

Это мелочь конечно, но вдруг кому так будет удобнее.)

Да, так стало удобнее и возможности сортировки увеличились. Прошу потестить

 

Для более ранних версий SW (до sw2017) не забываем удалять или комментировать строку:

 

FeatureMgr.GroupComponentInstances = False

 

 

TreeSorter rev03.swp

TreeSorter.Bmp

[streamdown 1 565]

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

FeatureMgr.GroupComponentInstances = False

Сделайте ещё грамотнее, типа:

bool startupVariable = FeatureMgr.GroupComponentInstances;

FeatureMgr.GroupComponentInstances = False

//// куча кода

FeatureMgr.GroupComponentInstances = startupVariable

 

[alek77 222]

42 минуты назад, streamdown сказал:

Сделайте ещё грамотнее, типа:

bool startupVariable = FeatureMgr.GroupComponentInstances;

FeatureMgr.GroupComponentInstances = False

//// куча кода

FeatureMgr.GroupComponentInstances = startupVariable

 

Спасибо за подсказку,  обязательно попробую 

[alek77 222]

Streamdown, можно ли сделать так, что когда я в ранней версии SW получаю ошибку 438 об отсутствии комманды (пример: группировка деталей в дереве, которой нет в SW15)  - обойти такую ошибку и продолжить работу макроса? Грубо говоря, есть ли какой способ игнорировать определенные типы ошибок?

[streamdown 1 565]

Определить текущую версию SW, и дальше  IF-ами жонглировать)))

[alek77 222]

6 минут назад, streamdown сказал:

Определить текущую версию SW, и дальше  IF-ами жонглировать)))

Моей благодарности нет предела!

Изменено 8 августа 2018 пользователем alek77
Грамматика

[DuS 328]

13 часа назад, alek77 сказал:

Моей благодарности нет предела!

Ждем конечную версию?

[alek77 222]

13 минуты назад, DuS сказал:

Ждем конечную версию?

Подождите немного, пробую варианты по сокращению времени работы макроса.

Сейчас пока можно пользоваться 03 версией.

SWCorp рекомендует для этого 5 вариантов, мне нужно время на проверки.

Кто нибудь применял в макросах DoEvents для сокращения времени работы? Стоит оно того и что это за зверь такой? А то пока еще совсем ничего не понятно

И отпуск у меня начинается, не смогу некоторое время проверять

[streamdown 1 565]

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

для сокращения времени работы

Не трогайте этот DoEvents. Серьёзно! Вам понадобится огромная куча кода для грамотной отработки всего приложения.

Самый примитивнейший пример "выстрела себе в голову" (как говорят эти программисты  ) это:

- Запустили окошко, запустили выполнение тяжёлого участка кода, вызвали DoEvents, случайно нажали кнопку ещё раз => получили StackOverflow и падение как макроса так и солида.

- Запустили окошко, запустили выполнение тяжёлого участка кода, вызвали DoEvents, случайно нажали "закрыть окно" => окно закрыто, НО КОД ВСЁ ЕЩЁ ВЫПОЛНЯЕТСЯ 

 

Двух примеров пока достаточно? 

[alek77 222]

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

Не трогайте этот DoEvents. Серьёзно! Вам понадобится огромная куча кода для грамотной отработки всего приложения.

Самый примитивнейший пример "выстрела себе в голову" (как говорят эти программисты  ) это:

- Запустили окошко, запустили выполнение тяжёлого участка кода, вызвали DoEvents, случайно нажали кнопку ещё раз => получили StackOverflow и падение как макроса так и солида.

- Запустили окошко, запустили выполнение тяжёлого участка кода, вызвали DoEvents, случайно нажали "закрыть окно" => окно закрыто, НО КОД ВСЁ ЕЩЁ ВЫПОЛНЯЕТСЯ 

 

Двух примеров пока достаточно? 

вполне, спасибо

[streamdown 1 565]

30 минут назад, alek77 сказал:

варианты по сокращению времени работы макроса

В некоторых (но не во всех) вариантах вам поможет такой код:

Sub PerformanceBoost(swModel As sldworks.ModelDoc2, _
                             Optional ByVal CommandInProgress As Boolean = False,
                             Optional ByVal EnableGraphicsUpdate As Boolean = True,
                             Optional ByVal EnableFeatureTree As Boolean = True
                             )
          

            Try
                SwApp.CommandInProgress = CommandInProgress
                SwApp.SetUserPreferenceToggle(swconst.swUserPreferenceToggle_e.swFeatureManagerDynamicHighlight, EnableFeatureTree)

                Dim swModelView As sldworks.ModelView = swModel.GetFirstModelView
                While Not swModelView Is Nothing
                    swModelView.EnableGraphicsUpdate = EnableGraphicsUpdate
                    swModelView.UpdateAllGraphicsLayers = EnableGraphicsUpdate
                    swModelView = swModelView.GetNext
                End While

                swModel.FeatureManager.EnableFeatureTree = EnableFeatureTree

                swModel.FeatureManager.EnableFeatureTreeWindow = EnableFeatureTree
                If EnableFeatureTree Then swModel.FeatureManager.UpdateFeatureTree()
                If EnableGraphicsUpdate Then swModel.GraphicsRedraw2()
            Catch ex As Exception

            End Try

End Sub

 

Фактически, отключение графики и визуализации процесса. Но не забудьте, если приложение падает или завершается некорректно - надо всё вернуть назад кодом. Иначе пользователю надо будет перезапускать SW.

[alek77 222]

8 минут назад, streamdown сказал:

В некоторых (но не во всех) вариантах вам поможет такой код:

Sub PerformanceBoost(swModel As sldworks.ModelDoc2, _
                             Optional ByVal CommandInProgress As Boolean = False,
                             Optional ByVal EnableGraphicsUpdate As Boolean = True,
                             Optional ByVal EnableFeatureTree As Boolean = True
                             )
          

            Try
                SwApp.CommandInProgress = CommandInProgress
                SwApp.SetUserPreferenceToggle(swconst.swUserPreferenceToggle_e.swFeatureManagerDynamicHighlight, EnableFeatureTree)

                Dim swModelView As sldworks.ModelView = swModel.GetFirstModelView
                While Not swModelView Is Nothing
                    swModelView.EnableGraphicsUpdate = EnableGraphicsUpdate
                    swModelView.UpdateAllGraphicsLayers = EnableGraphicsUpdate
                    swModelView = swModelView.GetNext
                End While

                swModel.FeatureManager.EnableFeatureTree = EnableFeatureTree

                swModel.FeatureManager.EnableFeatureTreeWindow = EnableFeatureTree
                If EnableFeatureTree Then swModel.FeatureManager.UpdateFeatureTree()
                If EnableGraphicsUpdate Then swModel.GraphicsRedraw2()
            Catch ex As Exception

            End Try

End Sub

 

Фактически, отключение графики и визуализации процесса. Но не забудьте, если приложение падает или завершается некорректно - надо всё вернуть назад кодом. Иначе пользователю надо будет перезапускать SW.

 

Только эти команды:

 

FeatureMgr.EnableFeatureTree = False

тут код
FeatureMgr.EnableFeatureTree = True

 

снизили время выполнения макроса в 20 раз, я просто выпал в осадок

 

 

 

 

 

 

[streamdown 1 565]

1 минуту назад, alek77 сказал:

Только эти команды:

Не забудьте ещё Rebuild полный сделать после ваших манипуляций с деревом. Это обновит графику и дерево, если вдур там всё осталось по старому после вкл/выкл команд.

[alek77 222]

Я иногда ругаюсь громко, когда телефон ежедневно обновляет какие-то приложения, бесит просто,

теперь вот сам уже до 4 версии докатился.

Простите великодушно, стараюсь все поправить и улучшить.

 

Чего коснулись последние изменения:

• проверка версии солида, если 16 и выше - работа макроса с группировкой компонентов, если были сгруппированы - сгруппирует в конце работы, если не сгруппированы - так и оставит
• коментить строки группировки компонентов вызывающие ошибку в версиях св15 и ниже теперь не нужно
• ускорена работа макроса за счет отключения дерева конструирования и включения после работы макроса

 

Прошу потестить, буду рад любым предложениям и замечаниям

 

TreeSorter rev04.swp

TreeSorter.Bmp

[DuS 328]

12 часа назад, alek77 сказал:

Я иногда ругаюсь громко, когда телефон ежедневно обновляет какие-то приложения, бесит просто,

теперь вот сам уже до 4 версии докатился.

Простите великодушно, стараюсь все поправить и улучшить.

 

Чего коснулись последние изменения:

• проверка версии солида, если 16 и выше - работа макроса с группировкой компонентов, если были сгруппированы - сгруппирует в конце работы, если не сгруппированы - так и оставит
• коментить строки группировки компонентов вызывающие ошибку в версиях св15 и ниже теперь не нужно
• ускорена работа макроса за счет отключения дерева конструирования и включения после работы макроса

 

Прошу потестить, буду рад любым предложениям и замечаниям

 

TreeSorter rev04.swp

TreeSorter.Bmp

Макрос стал работать так быстро, что я даже подумал что он не работает)))

Короче, все отлично работает, мне очень нравится! 

Небольшое пожелание, нельзя ли сделать чтобы окно появлялось там же куда его передвинули в предыдущее место?

[alek77 222]

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

Макрос стал работать так быстро, что я даже подумал что он не работает)))

Короче, все отлично работает, мне очень нравится! 

Небольшое пожелание, нельзя ли сделать чтобы окно появлялось там же куда его передвинули в предыдущее место?

не знаю как, там всего три положения для выбора стартовой позиции формы

прошу помощи зала