Записки ленивого конструктора

Попалась мне как-то вот такая деталь и ее нужно было изменить. Открыв эскиз, я увидел это: Естественно я ее полностью переделал за минуту. Стараюсь сразу продумывать топологию и возможность быстрой параметризации модели. Когда выходит новая версия Solidworks я всегда смотрю раздел "Что нового?", постоянно появляются новые инструменты и методики...

Нужно создать групповую спецификацию на два исполнения. Мы используем макросы SWPlus, но иногда ругаются на формат спецификации. Раньше мы делали спецификацию вручную в компасе. Пришлось быстро придумать костыльный метод создания спецификации в Компасе через Ексель. Сохраняем спецификацию в формате Ексель в удобную папку. Подключаем библиотеки Excel и Компаса через Tools-References (в редакторе VBA). sApp = "Excel.Application" If IsAppRunning(sApp) = True Then 'MsgBox "Ok. Excel запущен" Else ' MsgBox "Fuck...

Это продолжение статьи про переименование нескольких деталей из дерева. Начало тут. Повторюсь, что я выкладываю всего лишь один из вариантов кода решения. Весь смысл постов больше в том, чтобы показать как из кусков кода из хелпа или от нейросети подходить к алгоритму и синтезировать решение. Выбираем детали (одну или несколько, можно с повторениями) в дереве или поле модели. Запускаем макрос. Формируется список деталей с уникальными названиями. Из названия берется первое слово и проверяется на наличие цифр...

У меня часто бывает, что узел смоделирован, а обозначений еще нет или произошла перекомпоновка и надо поменять обозначения. Вот так я это делаю за секунды. Вторая часть тут. Детали в дереве у Solidworks переименовываются временно до сохранения сборки. При сохранении сборки обычно предлагается обновить ссылки на существующие чертежи. Если ссылки не обновить, то в чертежах будут пустые виды т.к. имя файла детали изменено. Если диалоговое окно не выводится - зайдите в настройки (шестеренку) и нажмите как на картинке...

Привет. Сегодня короткий макрос изменения значка шероховатости. Выбираем заметки со значками шероховатости и запускаем макрос. Текст заметок может быть разным. Чтобы вернуть как было поставьте эту галочку: Алгоритм работы думаю понятен по самому коду. Option Explicit Dim swApp As SldWorks.SldWorks Dim Part As SldWorks.ModelDoc2 Dim SelMgr As SldWorks.SelectionMgr Dim swNote As SldWorks.Note Dim anSFSymbol As SldWorks.SFSymbol Dim Anno As SldWorks.Annotation Dim swTextFormat As SldWorks.TextFormat...