Макросы для чайников

[Le_on 17]

Люди добрые! Помогите чайнику начать дружить с макросами.
Осознаю огромный потенциал этих зверюг, но пока не знаю с чего начать
Спасибо заранее за полезные ссылки и советы

[fox1001 789]

55 минут назад, Le_on сказал:

не знаю с чего начать

1-й путь - академический: начать изучать справку по VBA и SOLIDWORKS API. када почуйствуешь что моск достаточно обогатился мудростью можно начинать писать макросы, т.е. код.

это путь мазохистов, зубрилок и людей с неограниченным ресурсом времени, усидчивости и просто ацким терпением.

 

2-й путь - метод тыка: для людей с ограниченным ресурсом времени, малым запасом терпения, лентяев имеющих мечту и русских.

1. поставь задачу;
2. разрисуй блок-схему или хотя бы распиши алгоритм решения;
3. пиши макрос - запускаешь SOLIDWORKS и Alt + F11.

если в п.3 возникает затык по причине непонимания какие буквы и цифры писать, сделай всё по своему алгоритму врукопашную с одновременной записью макроса. после посмотри КАК устроен код макроса. попробуй изменить код и смотри что получается.

если что то не получается или не хватает знаний: берешь бумагу и карандаш или самописку и формулируешь проблему. если смог проблему сформулировать:

1. ищешь ответ в справке;
2. не нашел в справке, спроси дядю Google или Yandex;
3. не нашел в инете, можно проблему вытащить на этот или другой форум. 

ВАЖНО помнить!!! каков вопрос, таков и ответ.

 

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

полезные ссылки и советы

http://www.streamdivision.com/

SOLIDWORKS API Help

 

 

[IgorT 399]

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

Люди добрые! Помогите чайнику начать дружить с макросами.
Осознаю огромный потенциал этих зверюг, но пока не знаю с чего начать
Спасибо заранее за полезные ссылки и советы

Какие задачи видите на горизонте? Че решать, какие задачи не решаемые средствами SW,  собираетесь решать посредством макросов?

[ILL 241]

Я пошел таким путем:

 

1. Скачал книгу "VBA для чайников" и воспроизвел все примеры в редакторе.. За неделю управился..

2. Попробовал воспроизвести родной калькулятор от WinXP на VBA.. Потратил на это еще неделю.. Почти все сделал, кроме управления с клавы и логических функций, ибо никогда ими не пользовался.. А нет.. Еще еще перевод DEC/BIN/OCT/HEX не стал делать..

 

Вообщем понял, что, теоретически могу..

Вот только с SW API сложнее, ибо есть только справка на инглише.. И нужно с русского перевести так, чтобы поиск в хелпе понял, что я хочу..
А я вот немецкий в школе и институте учил..

[Kelny 1 325]

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

Вот только с SW API сложнее, ибо есть только справка на инглише..

Не только справка, но и примеры имеются.

 

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

И нужно с русского перевести так, чтобы поиск в хелпе понял, что я хочу..

Для этого не плохо бы хотя бы на время отключить русский в программе Solidworks, тогда можно понять такие функции и инструменты запрашивать в справке.

Или по инструментам можно искать справку на русском, а потом в строке адреса заменять Russian на English, т.к. страницы обычно в одном и том же месте, то обычно открывается справка на английском языке про тот же инструмент, где можно посмотреть как называется тот или иной инструмент на английском.

Изменено 3 ноября 2017 пользователем Kelny

[fox1001 789]

19 часов назад, ILL сказал:

Вот только с SW API сложнее, ибо есть только справка на инглише.. И нужно с русского перевести так, чтобы поиск в хелпе понял, что я хочу..
А я вот немецкий в школе и институте учил..

а мне Google Переводчика выше башки хватает.

17 часов назад, Kelny сказал:

Для этого не плохо бы хотя бы на время отключить русский в программе Solidworks

да, время от времени приходится на English переключаться чтобы выяснить как та или иная команда в SOLIDWORKS называется.

[streamdown 1 565]

Есть один британский дружок, который решил хайпануть за счёт продажи книжек "быстрого изучения макросов". Хайпануть получилось, но некие "тёмные" ребята слили его "труды" (которые он продавал чуть ли не за 60 фунтов британской короны года 3 назад) на рутрекер))). Дружок ещё чуток постриг бабла и ... теперь раздаёт книжки даром. Читал ещё на этапе продаж. Не впечатлило. Но кому то может пригодится сия литературка.

Там у него на сайте ещё какие-то макросы выложены

https://www.angelsix.com/solidworks

Изменено 4 ноября 2017 пользователем streamdown

[Le_on 17]

Спасибо за информацию и советы, буду начинать)

22 часа назад, IgorT сказал:

Какие задачи видите на горизонте? Че решать, какие задачи не решаемые средствами SW,  собираетесь решать посредством макросов?

Знал бы возможности точно, то сформулировал поточнее) А так, навсидку, хотелось бы сделать сортировку файлов. За десять лет скопилось целое море конструций, попадаются подобные детали, сборки, хотелось бы в группы пособирать.
Еще задачка - проверить правильность содания детали,- помните, как в экзаменах строится деталь по эскизу, проверяется ее масса, перестраивается с новыми размерами, и снова замеряется масса. Если налажал с взаимосвязями или в определениях, то масса будет отличаться от правильной...
Это первое, что пришло на ум, дальше, уверен, еще интересные задачки появятся.

@fox1001 , спасибо за полезную ссылочку, просто и интересно сделано

 

[Maik812 308]

4 часа назад, Le_on сказал:

А так, навсидку, хотелось бы сделать сортировку файлов. За десять лет скопилось целое море конструций, попадаются подобные детали, сборки, хотелось бы в группы пособирать.

 

[Sam34 0]

материалы по макросам обновляются чуть ли не каждый месяц

[Sergey2 1]

народ, может поможете.  Нужен макрос, который по нажатию кнопки (но я так понимаю что просто вызов макроса можно повесить на кнопку) сохранит открытый файл в stl (название равно названию конфигурации) и в jpg. Если stl уже есть, то не записывать его а если jpg  есть то добавить в конце имени цифру (и так по порядку) и сохранить.

[Павел00 6]

@Sergey2

Dim swApp As Object

Dim Part As Object
Dim longstatus As Long, longwarnings As Long
Dim objFSO As Object
Dim lErrors As Long
Dim lWarnings As Long

Sub main()
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Dim FileName As String
FileName = Part.GetPathName
Dim modelName As String
modelName = objFSO.GetBaseName(FileName)
Dim folder As String
folder = objFSO.GetParentFolderName(FileName)
Dim fullPath As String
Dim MainPath As String
fullPath = folder & "\" & modelName & ".STL"
Dim swExportPDFData As SldWorks.ExportPdfData
Set swExportPDFData = swApp.GetExportFileData(1)

longstatus = Part.Extension.SaveAs(fullPath, 0, 1, swExportPDFData, lErrors, lWarnings)
End Sub

 

[Павел00 6]

Для имени конфигурации

Dim config As SldWorks.Configuration
Dim configName As String
Set config = swModel.GetActiveConfiguration
configName = config.Name



fullPath = folder & "\" & configName & ".STL"

 

[Sergey2 1]

спасибо большое. Разобрался.

[Sergey2 1]

подскажите еще, плз. Мне нужно сохранить три вида детали. В макросе есть команды аналогичные кнопкам с панели вид. Справа, слева, сверху, изометрия. Но мне нужна изометрия с другой стороны. Ну то есть есть деталь и при выборе вида "изометрия" "взгляд" движется налево и вверх. А мне нужно получить вид справа сверху. Надесь понятно обьяснил.

Сейчас "записал" повороты детали и воспроизвожу их, но это занимает время а когда деталей много то это существенно. 

[Павел00 6]

В 08.02.2020 в 19:18, Sergey2 сказал:

три вида детали

А зачем? Потом эти виды в чертёж идут?

[Sergey2 1]

13 часа назад, Павел00 сказал:

А зачем? Потом эти виды в чертёж идут?

нет. что б посмотреть на деталь с разных сторон

[Plumber 738]

В 08.02.2020 в 18:18, Sergey2 сказал:

Сейчас "записал" повороты детали и воспроизвожу их, но это занимает время

 

20 часов назад, Sergey2 сказал:

что б посмотреть на деталь с разных сторон

Так для этого макросы не нужны - есть штатная возможность в окне "Ориентация" сохранения и использования именованных видов

 

 

[Sergey2 1]

В 11.02.2020 в 18:35, Plumber сказал:

 

Так для этого макросы не нужны - есть штатная возможность в окне "Ориентация" сохранения и использования именованных видов

 

 

а как его использовать? Создал свой вид. Но не вызывается он :(

[Maik812 308]

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

а как его использовать? Создал свой вид. Но не вызывается он :(

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

Скажи сразу нужно делать типа каталога деталей или еще что..