SolidWorks и GPT/OpenAI

[alek77 207]

Всем привет!

Нашел интересную тему применительно к SolidWorks. Делюсь с вами, коллеги! Надеюсь на взаимное равите темы.

Сейчас много говорят про ИИ (искусственный интеллект), но как применить его к своей работе никто собственно не рассказывает.

Как эта штука работает в отношении инженерии, чем может нам помочь? Нужно разобраться.

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

Модератора прошу помочь с оформлением поста, чтобы не сочли пост за рекламу!

Ну и поехали.

Скрытый текст

 

Вылезла у меня, значит, на одном из ТГ-каналов сноска, подключайтесь к OpenAi, все бесплатно (ага), пользуйтесь на здоровье.

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

Давай углубляться. Понравилось еще больше.

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

Как подключаться на других платформах к AI я пока не знаю. У знакомых уже корпоративные тарифы подключены и они пользуются ими во всю.

Поэтому начнем с телеги, в которой все очень просто.

При поиске OpenAI в ТГ значок бота такой:

Ну а дальше просто вопросы и ответы.

И еще пример:

Добавляем:

Добиваем:

Круто это или нет, решать вам. Но я для написания кода ниже своими руками шел к этому и изучал все что можно несколько лет.

А тут вопрос - получи почти готовый код.

Но это просто примеры. Я даже не проверял их работоспособность.

Но думаю, что заведу их за пару минут. Так как на вопросы типа:

 

при отсутствии знаний, тоже получаешь ответ.

Т.е. при правильной формулировке AI выдает почти годные ответы.

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

Причем в расчете токенов учитывается и количество симовлов в вопросе и количество символов в ответе.

Но при подписке на канал этого бота количество токенов увеличивается до 15000. Плюс там все время какие то акции.

Нужно изучать и проверять конечно же.

 

Если кто знает, как генерить ответы AI другими способами, делитесь, большинство будут признательны.

 

[Kelny 1 250]

35 минут назад, Sagrado911 сказал:

можно здесь спросить и тебе помогут

Так вы задали вопрос в неподходящей теме. Думается в этой теме правильнее обсудить, как задать правильный вопрос боту, что бы он починил ваш макрос - ведь тема про бота и его ИИ, но эта говорилка вас не хочет понимать (что вы от неё хотите).

 

16 часов назад, Sagrado911 сказал:

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

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

Сейчас у вас ошибка скорее всего здесь (и возможно в переборе выбранных):

Цитата

 Set swCustProp = swCustPropMgr.Add2(propName, swCustomInfoText, propName)

в этой строчке свойство будет добавлено только если его нет, а если есть, то ни чего добавлено не будет (тогда нужно удалять-вставлять или изменять имеющееся), так же смущает что имя свойства и его значение берётся из одной переменной:

https://help.solidworks.com/2010/english/api/sldworksapi/solidworks.interop.sldworks~solidworks.interop.sldworks.icustompropertymanager~add2.html

 

https://help.solidworks.com/2010/english/api/sldworksapi/Get_Custom_Properties_for_Configuration_Example_VB.htm

 

можно исопльзовать более продвинутую функцию, которая сама примет решение по добавлению/замене/редактированию свойства (но её нет в старых версиях):

https://help.solidworks.com/2020/english/api/sldworksapi/SOLIDWORKS.Interop.sldworks~SOLIDWORKS.Interop.sldworks.ICustomPropertyManager~Add3.html

 

 

 

Изменено 28 марта 2023 пользователем Kelny

[anser89 62]

Побаловался с ГПТ с нуля макрос нарисовать, который рисует параллелепипед в 3D эскизе. Я  нихера не программист))

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

Дальше долго пытался от него добиться установки привязок "Вдоль Х, Y, Z", бот долго сопротивлялся, не те методы пихал, макрос не работал. Взял действия нужные в макрос записал солидовской командой (на одном отрезке) и полученный код ему скормил - тут бот уже стал нормально на все отрезки ставить привязки. Затем то же самое с простановкой размеров сделал. Кому интересно вот что получилось

Скрытый текст

Option Explicit

Sub CreateBoxSketch()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swSketchMgr As SldWorks.SketchManager
    Dim swSketchSeg As SldWorks.SketchSegment
    Dim LX As Double, LY As Double, LZ As Double
    
    'Размеры кубика
    LX = 0.01
    LY = 0.02
    LZ = 0.03
    
    Set swApp = Application.SldWorks
    
    Set swModel = swApp.ActiveDoc
    
    Set swSketchMgr = swModel.SketchManager
    swSketchMgr.Insert3DSketch True
    
    'Рисуем отрезки
    Set swSketchSeg = swSketchMgr.CreateLine(0, 0, 0, LX, 0, 0)
    Set swSketchSeg = swSketchMgr.CreateLine(LX, 0, 0, LX, LY, 0)
    Set swSketchSeg = swSketchMgr.CreateLine(LX, LY, 0, 0, LY, 0)
    Set swSketchSeg = swSketchMgr.CreateLine(0, LY, 0, 0, 0, 0)
    
    Set swSketchSeg = swSketchMgr.CreateLine(0, 0, LZ, LX, 0, LZ)
    Set swSketchSeg = swSketchMgr.CreateLine(LX, 0, LZ, LX, LY, LZ)
    Set swSketchSeg = swSketchMgr.CreateLine(LX, LY, LZ, 0, LY, LZ)
    Set swSketchSeg = swSketchMgr.CreateLine(0, LY, LZ, 0, 0, LZ)
    
    Set swSketchSeg = swSketchMgr.CreateLine(0, 0, 0, 0, 0, LZ)
    Set swSketchSeg = swSketchMgr.CreateLine(LX, 0, 0, LX, 0, LZ)
    Set swSketchSeg = swSketchMgr.CreateLine(LX, LY, 0, LX, LY, LZ)
    Set swSketchSeg = swSketchMgr.CreateLine(0, LY, 0, 0, LY, LZ)
        
    'Добавляем взаимосвязи "Вдоль оси" и габаритные размеры
    Dim Part As SldWorks.PartDoc
    Set Part = swModel
    Dim boolstatus As Boolean
             
    boolstatus = Part.Extension.SelectByID2("Line1", "SKETCHSEGMENT", 1, 1, 1, False, 0, Nothing, 0)
    Part.SketchAddConstraints "sgALONGX3D"
    Dim DimX As Object
    Set DimX = Part.AddDimension2(LX, -0.005, 0)
    boolstatus = Part.Extension.SelectByID2("DX", "DIMENSION", 0, 0, 0, False, 0, Nothing, 0)

    boolstatus = Part.Extension.SelectByID2("Line3", "SKETCHSEGMENT", 1, 1, 1, False, 0, Nothing, 0)
    Part.SketchAddConstraints "sgALONGX3D"
    boolstatus = Part.Extension.SelectByID2("Line5", "SKETCHSEGMENT", 1, 1, 1, False, 0, Nothing, 0)
    Part.SketchAddConstraints "sgALONGX3D"
    boolstatus = Part.Extension.SelectByID2("Line7", "SKETCHSEGMENT", 1, 1, 1, False, 0, Nothing, 0)
    Part.SketchAddConstraints "sgALONGX3D"
        
    boolstatus = Part.Extension.SelectByID2("Line2", "SKETCHSEGMENT", 1, 1, 1, False, 0, Nothing, 0)
    Part.SketchAddConstraints "sgALONGY3D"
    
    boolstatus = Part.Extension.SelectByID2("Line4", "SKETCHSEGMENT", 1, 1, 1, False, 0, Nothing, 0)
    Part.SketchAddConstraints "sgALONGY3D"
    Dim DimY As Object
    Set DimY = Part.AddDimension2(0.005, LY, 0)
    boolstatus = Part.Extension.SelectByID2("DX", "DIMENSION", 0, 0, 0, False, 0, Nothing, 0)
    
    boolstatus = Part.Extension.SelectByID2("Line6", "SKETCHSEGMENT", 1, 1, 1, False, 0, Nothing, 0)
    Part.SketchAddConstraints "sgALONGY3D"
    boolstatus = Part.Extension.SelectByID2("Line8", "SKETCHSEGMENT", 1, 1, 1, False, 0, Nothing, 0)
    Part.SketchAddConstraints "sgALONGY3D"
    
    boolstatus = Part.Extension.SelectByID2("Line9", "SKETCHSEGMENT", 1, 1, 1, False, 0, Nothing, 0)
    Part.SketchAddConstraints "sgALONGZ3D"
    Dim DimZ As Object
    Set DimZ = Part.AddDimension2(0, -0.005, LZ)
    boolstatus = Part.Extension.SelectByID2("DX", "DIMENSION", 0, 0, 0, False, 0, Nothing, 0)
    
    boolstatus = Part.Extension.SelectByID2("Line10", "SKETCHSEGMENT", 1, 1, 1, False, 0, Nothing, 0)
    Part.SketchAddConstraints "sgALONGZ3D"
    boolstatus = Part.Extension.SelectByID2("Line11", "SKETCHSEGMENT", 1, 1, 1, False, 0, Nothing, 0)
    Part.SketchAddConstraints "sgALONGZ3D"
    boolstatus = Part.Extension.SelectByID2("Line12", "SKETCHSEGMENT", 1, 1, 1, False, 0, Nothing, 0)
    Part.SketchAddConstraints "sgALONGZ3D"
        
    'Привязываем к центру координат
    boolstatus = Part.Extension.SelectByID2("Point1@Начало координат", "EXTSKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)
    boolstatus = Part.Extension.SelectByID2("Point1", "SKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0)
    Part.SketchAddConstraints "sgCOINCIDENT"
    
    swModel.ClearSelection2 True
    swModel.ViewZoomtofit2

End Sub

 

 

[Kelny 1 250]

20 минут назад, anser89 сказал:

Кому интересно вот что получилось

Макросы мы и без GPT видели - вы общение с ботом покажите.

 

20 минут назад, anser89 сказал:

Побаловался с ГПТ с нуля макрос нарисовать, который рисует параллелепипед в 3D эскизе.

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

 

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

Это уже моя идея

Выходит к нам сам GPT пожаловал.

Изменено 28 марта 2023 пользователем Kelny

[Krusnik 420]

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

Выходит к нам сам GPT пожаловал.

"И восстали машины из пепла ядерной войны..." (С) Володарский.

[anser89 62]

@Kelny Так общение просто русским языком - сначала "напиши макрос для Solidworks VBA, который делает то-то", потом просто уточнения дописывал - "в разделе таком то вместо метода такого то используй метод такой то" - который я из записанного макроса брал если бот сам не написал. 

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

Макросы мы из без GPT видели

Ну а я до этого вообще не касался написания макросов, так только если какую-нибудь цифру/букву поменять, а с помощью бота по сути с нуля написал без знаний синтаксиса и всякой херни. У вас то конечно опыта навалом, что такие простые с закрытыми глазами напишете.

 

32 минуты назад, Kelny сказал:

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

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

[alek77 207]

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

Коллеги, может кто юзает не только телеграм-бота, поделитесь, где можно генерить без подписок там всяких, а за бесплатно?

Прикольная же штука. Почему в массы не пускают?

[AlexKaz 1 823]

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

Почему в массы не пускают?

Потому что нужно очень много оперативки для работы бота.

Ну и обучение нейросети не бесплатное.

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

может кто юзает не только телеграм-бота, поделитесь, где можно генерить без подписок там всяких, а за бесплатно?

Инструкция как запустить ChatGPT на локальном компе без инета.

https://cccp3d.ru/topic/158566-chatgpt-или-что-ждёт-инженера-в-будущем/?do=findComment&comment=1471224

 

System requirements

• Modern enough CPU
• NVIDIA graphics card (2 Gb of VRAM is ok); HF version is able to run on CPU, or mixed CPU/GPU, or pure GPU
• 64 or better 128 Gb of RAM (192 would be perfect for 65B model)

One may run with 32 Gb of RAM, but inference will be slow (with the speed of your swap file reading)

I am running PyArrow version on a [12700k/128 Gb RAM/NVIDIA 3070ti 8Gb/fast huge nvme with 256 Gb swap for 65B model] and getting one token from 30B model in a few seconds.

For example, PyArrow 30B model uses around 70 Gb of RAM. 7B model fits into 18 Gb. 13B model uses 48 Gb.

[Kelny 1 250]

33 минуты назад, AlexKaz сказал:

System requirements

• Modern enough CPU
• NVIDIA graphics card (2 Gb of VRAM is ok); HF version is able to run on CPU, or mixed CPU/GPU, or pure GPU
• 64 or better 128 Gb of RAM (192 would be perfect for 65B model)

Железячники терпять убытки из-за снижения интереса к добыче электронных денег придумали GPT, что бы подпитать интерес к мощным железкам?

[AlexKaz 1 823]

4 минуты назад, Kelny сказал:

Железячники терпять убытки из-за снижения интереса к добыче электронных денег придумали GPT, что бы подпитать интерес к мощным железкам?

Нет, просто оперативка ~ в 100 раз быстрее HDD и ~ в 10 раз быстрее SSD. Как бы есть разница, ждать ответа бота 5 секунд или 50 или 500...

А самой теме нейронок уже много лет, просто её не поднимали. Мой старый знакомый ещё года три назад писал, что они (в то время) держат нейронки в оперативке. В то время как раз на бытовой ПК стало возможно воткнуть за относительно недорого 128 ГБ RAM. А на б\у Xeon и того больше.

Изменено 28 марта 2023 пользователем AlexKaz

[zerganalizer 570]

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

Прикольная же штука. Почему в массы не пускают?

А вам нужна такая низкая производительность - несколько букв текста в секунду?

[Kelny 1 250]

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

Так общение просто русским языком - сначала "напиши макрос для Solidworks VBA, который делает то-то", потом просто уточнения дописывал - "в разделе таком то вместо метода такого то используй метод такой то" - который я из записанного макроса брал если бот сам не написал. 

Может стоило подойти к вопросу иначе? И просить не написть макрос, а научить писать макросы на VBA.

[Kelny 1 250]

Цитата

Илон Маск и более 1000 экспертов в сфере ИИ потребовали приостановить обучение нейросетей

...

«Мы призываем все лаборатории ИИ немедленно приостановить как минимум на шесть месяцев обучение систем ИИ, более мощных, чем GPT-4... Если такая пауза не может быть сделана в кратчайшие сроки, то правительства должны вмешаться и ввести мораторий», — говорится в открытом письме экспертов в области ИИ, опубликованном на сайте некоммерческой организации Future of Life Institute.

 

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

...

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

 

Эксперты из банка Goldman Sachs сообщили, что развитие сервисов в сфере искусственного интеллекта может оставить без работы около 300 млн человек.

 

https://russian.rt.com/world/news/1129448-neiroseti-eksperty-priostanovka?utm_source=yxnews&utm_medium=desktop

 

[maxx2000 549]

27.03.2023 в 18:27, Kelny сказал:

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

зелёную кнопку.

Красную кнопку только президентам выдают