Программирование на VB под SolidWork

[Genya_ms 0]

Макросы на VB не пишутся, они делаются на VBA.

Да пока написанные макроса, не записанные а именно написанные, в 2007 SW были без проблем запущенны на 2009 SW

А народ в темах про API документацию выкладывал - смотрели?

Что за темы в разделе по SW открыты?

[ssv22 17]

Да пока написанные макроса, не записанные а именно написанные, в 2007 SW были без проблем запущенны на 2009 SW

...

Это до поры, до времени.

И говорит это о том, что в этих макросах больше используется функционал чистого языка Basic, чем функционал API SW.

Ну как могут серьезные макросы написанные в SW2007, работать в SW2009 если в API SW2009 довольно большое количество специализированных функций убрали или заменили или изменили...?

...Цитата(ssv22 @ Nov 17 2009, 16:53)

А народ в темах про API документацию выкладывал - смотрели?

Что за темы в разделе по SW открыты?

Error! Цитата неверная: это не мои слова, а `MFS`, сообщение #5.

А темы: "Макросы и проги для SW", "сделай свою работу эффективней" и др. Там же есть ссылки на другие форумы, где есть готовые макросы...

[kesean 0]

В принципе файлы *.step меня вполне устраивают. Разобрался откуда вытащить параметры отверстий и габариты детали. Написал функцию, отбирающую и преобразующую нуные параметры. Но. Полез искать функцию для импорта в STEP и не нашел. Можно ли программно выполнить импорт? Не хочется заставлять юзера делать лишние телодвижения...

[ssv22 17]

В принципе файлы *.step меня вполне устраивают. Разобрался откуда вытащить параметры отверстий и габариты детали. Написал функцию, отбирающую и преобразующую нуные параметры. Но. Полез искать функцию для импорта в STEP и не нашел. Можно ли программно выполнить импорт? Не хочется заставлять юзера делать лишние телодвижения...

вот запись макроса:

' ******************************************************************************

' C:\DOCUME~1\ssv22\LOCALS~1\Temp\swx2412\Macro1.swb - macro recorded on 11/19/09 by ssv22

' ******************************************************************************

Dim swApp As Object

Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

longstatus = Part.SaveAs3("D:\Work\0_SW_All_Work\SW2009_WORK\ОТВ\Part21.STEP", 0, 0)

End Sub

[kesean 0]

Упс... Лоханулся не по-детски. Про макрорекордер забыл Sorry...

[vladimir_ 34]

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

если это, конечно, не коммерческая тайна...

[kesean 0]

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

Как допишу - обязательно.

[kesean 0]

Как допишу - обязательно

Наваял черновой вариант проги, получающей параметры цилиндрических отверстий и габаритные размеры детали. От идеи использования *.Step отказался - несерьезно как-то. Конечно, нужна доработка - ловушки багов и всякое прочее, но для меня на данном этапе важна идея. Входные данные:

1. Деталь прямоугольной формы (как я писал у нас мебельное пр-во, так что излишне заморачиваться не стал).

2. Отверстия простые (с плоским дном или сквозные) (не принципиально - Cut или Hole).

Если кому интересно - прикрепляю исходник (VB6) Могу переписать на VB_Net.

PS: тестировалось - SolidWorks 2007

GetParametrsHoles.rar

Изменено 25 ноября 2009 пользователем kesean

[brigval 705]

Ну как могут серьезные макросы написанные в SW2007, работать в SW2009

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

Макросы, написаные с использованием базовых возможностей API, будут работать в любых версиях, поддерживающих эти возможности.

[vladimir_ 34]

Наваял черновой вариант проги, получающей параметры цилиндрических отверстий и габаритные размеры детали. От идеи использования *.Step отказался - несерьезно как-то. Конечно, нужна доработка - ловушки багов и всякое прочее, но для меня на данном этапе важна идея. Входные данные:

1. Деталь прямоугольной формы (как я писал у нас мебельное пр-во, так что излишне заморачиваться не стал).

2. Отверстия простые (с плоским дном или сквозные) (не принципиально - Cut или Hole).

Если кому интересно - прикрепляю исходник (VB6) Могу переписать на VB_Net.

PS: тестировалось - SolidWorks 2007

Хотел попробовать в SolidWorks 2009,

он требует для выполнения файлы с расширением *.swp или *.swb

простым переименованием не обошлось :(

[ssv22 17]

...

Макросы, написаные с использованием базовых возможностей API, будут работать в любых версиях, поддерживающих эти возможности.

Ну, допустим, я написал макрос в среде SW2007. У меня нет SW2009. Запускаем макрос в SW2009 и как он будет работать, если в SW2009 были произведены изменения в API?

Надо переподключать библиотеки API! А их то у меня и не было на момент написания макроса!

Тоже самое в обратном направлении:

с каждой новой версией появляются новые функции API. И если я их использовал в макросе для SW2009, то как этот макрос будет работать под SW2007?

Так что тут совместимость макросов от версии к версии SW - довольно-таки ограничена.

ИМХО

Хотел попробовать в SolidWorks 2009,

он требует для выполнения файлы с расширением *.swp или *.swb

простым переименованием не обошлось :(

Так Вы писали на VB? И теперь собираетесь запускать макрос SW?

Исходник-то в каком формате? В VB я делаю *.ехе

[vladimir_ 34]

Так Вы писали на VB? И теперь собираетесь запускать макрос SW?

Исходник-то в каком формате? В VB я делаю *.ехе

я ничего не писал, просто уважаемый kesean выложил макросы

а я тупо хотел их запустить (ну нету у меня WB и неначем откомпиллировать)

да и запускать я их хочу не как exe, а через встроенную в солид функцию запуска...

[kesean 0]

Исходник-то в каком формате? В VB я делаю *.ехе

Екзешник - это скомпилированный код. Я выложил именно исходники кода. Форматы исходника - VB6 (VisualStudio 98). Исполняемый файл компилировать не стал - это не имеет практического применения, а исходники предложил программистам. Если кто-то программирует только мкросы SW то откройте файл "Form1.frm" блокнотом - там найдете испольняемый код. В *.swp добавьте форму и все контролы, какие указаны в Form1.frm.

Код из Form1.frm скопируйте в модуль созданной формы. В Solid2007 должно работать.

Изменено 25 ноября 2009 пользователем kesean

[brigval 705]

Так что тут совместимость макросов от версии к версии SW - довольно-таки ограничена.

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

Просто категорично заявлять, что макросы для 2007 не пойдут в 2009, а я так понял Ваш пост, не совсем корректно. Все зависит от конкретики.

[kesean 0]

Переписал в формате макросов SW.

GetParatresHoles.rar

Изменено 25 ноября 2009 пользователем kesean

[ssv22 17]

Екзешник - это скомпилированный код. Я выложил именно исходники кода. Форматы исходника - VB6 (VisualStudio 98). Исполняемый файл компилировать не стал - это не имеет практического применения, а исходники предложил программистам. Если кто-то программирует только мкросы SW то откройте файл "Form1.frm" блокнотом - там найдете испольняемый код. В *.swp добавьте форму и все контролы, какие указаны в Form1.frm.

Код из Form1.frm скопируйте в модуль созданной формы. В Solid2007 должно работать.

А, ну да, это я перепутал - исходник и скомпилированный код...

Существуют две возможности программирования на языке VB:

- в среде разработки макросов VBA SW - получаем макрос с соответствующим расширением - *.swp

- в среде разработки VB6 и выше - получаем exe, dll и др.

Я лично работаю в VB6 и получаю ехе-файл, который потом и запускаю.

НО между программированием в этих средах разработки имеются отличия и просто так перенести исходный код в среду VBA SW ИМХО не даст рабочий макрос.

Сравните например процедуру инициализации SW из среды VB6:

"Set swApp = CreateObject("SldWorks.Application")"

и из среды VBA :

"Set swApp = Application.SldWorks"

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

Просто категорично заявлять, что макросы для 2007 не пойдут в 2009, а я так понял Ваш пост, не совсем корректно. Все зависит от конкретики.

Вы не совсем верно меня поняли: я ничего категоричного не заявлял...

Вот это верно: "Все зависит от конкретики"

[kesean 0]

Сравните например процедуру инициализации SW из среды VB6:

"Set swApp = CreateObject("SldWorks.Application")"

и из среды VBA :

"Set swApp = Application.SldWorks"

В посте выше предложил макрос SW преределанный из VB6. Причем практически без излениений - только заменил MSHFlexGrid на ListBox - не у всех в системе он зарегин, а установочный дистрибутив мне делать лень.

PS: "Set swApp = GetObject(, "SldWorks.Application")" осталось и отлично работает (CreateObject создает экземпляр объекта, а GetObject - получает ссылку на объект)

Изменено 25 ноября 2009 пользователем kesean

[ssv22 17]

В посте выше предложил макрос SW преределанный из VB6. Причем практически без излениений - только заменил MSHFlexGrid на ListBox - не у всех в системе он зарегин, а установочный дистрибутив мне делать лень.

PS: "Set swApp = GetObject(, "SldWorks.Application")" осталось и отлично работает

Ну вот у меня SW2009 записывает макросы так:

' ******************************************************************************

' C:\DOCUME~1\ssv22\LOCALS~1\Temp\swx3192\Macro1.swb - macro recorded on 11/25/09 by ssv22

' ******************************************************************************

Dim swApp As Object

Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

boolstatus = Part.Extension.SelectByID2("", "FACE", -0.04209609294657, 0.03999999999985, 7.108113241543E-04, False, 0, Nothing, 0)

Part.SketchManager.InsertSketch True

...

В VB6 это:

Set swApp = Application.SldWorks - работать не будет

А при таком объявлении:

Dim swApp As Object

не будет работать автопоказ методов и свойств при нажатии "точки"

Ну и еще чем мне не нравятся макросы SW : их можно запускать только из среды SW.

А ехе-шник я могу запустить когда хочу...

Некоторое время назад я делал проги - для работы в связке SW-Corel, SW-ACAD, SW-Office...

Если делать это в среде VBA SW, то для отладки той части программы, которая НЕ касается SW, я долженн был-бы обязательно запускать SW...

[kesean 0]

Я согласен, конечно. Макросы SW - аналог VBA, и рассчитан на решение узкого круга задач. VB может все, что может макрос SW, а вот наоборот - увы. Взять хотя бы объект Screen - SW не знает, что это такое. Я уже не говорю о субклассинге и прочем, что сильно помогает программисту. VBA изначально направлен пользователю (а не программисту) для решения каких-либо локальных задач.

В VB6 это:

Set swApp = Application.SldWorks - работать не будет

Это специфическая команда SW, а VB такого класса объекта не знает.

А при таком объявлении:

Dim swApp As Object

не будет работать автопоказ методов и свойств при нажатии "точки"

VB этих свойств и методов изначально тоже не знает. Нужно просто ему про них рассказать, т.е. подключить библиотеки SolidWorks в референсах.

[ssv22 17]

Я согласен, конечно. Макросы SW - аналог VBA, и рассчитан на решение узкого круга задач. VB может все, что может макрос SW, а вот наоборот - увы. Взять хотя бы объект Screen - SW не знает, что это такое. Я уже не говорю о субклассинге и прочем, что сильно помогает программисту. VBA изначально направлен пользователю (а не программисту) для решения каких-либо локальных задач.

Это специфическая команда SW, а VB такого класса объекта не знает.

VB этих свойств и методов изначально тоже не знает. Нужно просто ему про них рассказать, т.е. подключить библиотеки SolidWorks в референсах.

Все правильно, согласен.

Могу еще добавить, что VBA SW не знает еще и объект `Printer` и коллекцию `Printers`.