Перейти к публикации

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


Рекомендованные сообщения

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

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

ок, попробую

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

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

5b6aa13a11815_.JPG.c9bdfb0b09d94e15f681300654cf9da7.JPG

Ссылка на сообщение
Поделиться на других сайтах


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

ок, попробую

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

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

5b6aa13a11815_.JPG.c9bdfb0b09d94e15f681300654cf9da7.JPG

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

Ссылка на сообщение
Поделиться на других сайтах
2 минуты назад, alek77 сказал:

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

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

Ссылка на сообщение
Поделиться на других сайтах
3 часа назад, alek77 сказал:

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

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

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

Ссылка на сообщение
Поделиться на других сайтах
3 часа назад, DuS сказал:

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

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

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

 

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

 

FeatureMgr.GroupComponentInstances = False

 

 

TreeSorter rev03.swp

TreeSorter.Bmp

Ссылка на сообщение
Поделиться на других сайтах
1 час назад, alek77 сказал:

FeatureMgr.GroupComponentInstances = False

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

bool startupVariable = FeatureMgr.GroupComponentInstances;

FeatureMgr.GroupComponentInstances = False

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

FeatureMgr.GroupComponentInstances = startupVariable

 

Ссылка на сообщение
Поделиться на других сайтах
42 минуты назад, streamdown сказал:

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


bool startupVariable = FeatureMgr.GroupComponentInstances;

FeatureMgr.GroupComponentInstances = False

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

FeatureMgr.GroupComponentInstances = startupVariable

 

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

Ссылка на сообщение
Поделиться на других сайтах

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

Ссылка на сообщение
Поделиться на других сайтах
6 минут назад, streamdown сказал:

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

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

Изменено пользователем alek77
Грамматика
Ссылка на сообщение
Поделиться на других сайтах
13 минуты назад, DuS сказал:

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

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

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

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

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

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

Ссылка на сообщение
Поделиться на других сайтах
7 минут назад, alek77 сказал:

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

:bomb:

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

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

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

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

 

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

Ссылка на сообщение
Поделиться на других сайтах
5 минут назад, streamdown сказал:

:bomb:

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

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

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

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

 

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

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

Ссылка на сообщение
Поделиться на других сайтах
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.

Ссылка на сообщение
Поделиться на других сайтах
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 раз, я просто выпал в осадок

 

 

 

 

 

 

Ссылка на сообщение
Поделиться на других сайтах
1 минуту назад, alek77 сказал:

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

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

Ссылка на сообщение
Поделиться на других сайтах

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

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

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

 

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

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

 

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

 

TreeSorter rev04.swp

TreeSorter.Bmp

Ссылка на сообщение
Поделиться на других сайтах
12 часа назад, alek77 сказал:

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

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

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

 

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

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

 

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

 

TreeSorter rev04.swp

TreeSorter.Bmp

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

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

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

Ссылка на сообщение
Поделиться на других сайтах
1 час назад, DuS сказал:

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

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

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

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

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

Ссылка на сообщение
Поделиться на других сайтах

Присоединяйтесь к обсуждению

Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже. Если у вас есть аккаунт, войдите в него для написания от своего имени.
Примечание: вашему сообщению потребуется утверждение модератора, прежде чем оно станет доступным.

Гость
Ответить в тему...

×   Вставлено в виде отформатированного текста.   Вставить в виде обычного текста

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу.



×
×
  • Создать...