Нейросеть пишет макрос.

[Basstudio 9]

В общем баловался я с чатом нейросети. Дай думаю макрос попрошу. Так она вообще любой в лёт выдаёт. Только вот я не такой опытный в этих макросах. Копирую вроде, код. Создаю новый макрос всавляю. А он чтот не того. Не работает. Лико код от фанаря. Либо там маленькая неточность. Или у меня руки кривые. Кто шарит?? Посмотреть.. 

.. 

[Basstudio 9]

 

Option Explicit

Sub SaveSTEPsFromAllConfigurations()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swConfigMgr As SldWorks.ConfigurationManager
    Dim swConfig As SldWorks.Configuration
    Dim swPart As SldWorks.PartDoc
    Dim strFileName As String
    Dim i As Long
    
    Set swApp = Application.SldWorks
    
    ' Открыть активную модель
    Set swModel = swApp.ActiveDoc
    
    If Not swModel Is Nothing Then
        ' Получить менеджер конфигураций
        Set swConfigMgr = swModel.ConfigurationManager
        
        ' Пройти по всем конфигурациям
        For i = 0 To swConfigMgr.GetConfigurationCount - 1
            Set swConfig = swConfigMgr.GetConfigurationByIndex(i)
            ' Установить конфигурацию
            swModel.ShowConfiguration2 swConfig.Name
            Set swPart = swModel
            
            ' Сохранить степ-файл
            strFileName = swModel.GetPathName()
            strFileName = Left(strFileName, Len(strFileName) - 7) & "-" & swConfig.Name & ".step"
            swPart.ExportFlatPatternView strFileName, swExportFlatPatternOption_e.swExportFlatPatternOption_ExportAs3D
        Next i
    Else
        MsgBox "Откройте деталь перед запуском макроса."
    End If
End Sub
 

Изменено 8 апреля 2023 пользователем Basstudio

[brigval 687]

9 часов назад, Basstudio сказал:

 

Option Explicit

Sub SaveSTEPsFromAllConfigurations()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swConfigMgr As SldWorks.ConfigurationManager
    Dim swConfig As SldWorks.Configuration
    Dim swPart As SldWorks.PartDoc
    Dim strFileName As String
    Dim i As Long
    
    Set swApp = Application.SldWorks
    
    ' Открыть активную модель
    Set swModel = swApp.ActiveDoc
    
    If Not swModel Is Nothing Then
        ' Получить менеджер конфигураций
        Set swConfigMgr = swModel.ConfigurationManager
        
        ' Пройти по всем конфигурациям
        For i = 0 To swConfigMgr.GetConfigurationCount - 1
            Set swConfig = swConfigMgr.GetConfigurationByIndex(i)
            ' Установить конфигурацию
            swModel.ShowConfiguration2 swConfig.Name
            Set swPart = swModel
            
            ' Сохранить степ-файл
            strFileName = swModel.GetPathName()
            strFileName = Left(strFileName, Len(strFileName) - 7) & "-" & swConfig.Name & ".step"
            swPart.ExportFlatPatternView strFileName, swExportFlatPatternOption_e.swExportFlatPatternOption_ExportAs3D
        Next i
    Else
        MsgBox "Откройте деталь перед запуском макроса."
    End If
End Sub
 

 

Прикольно. Но есть ошибки, если смотреть по справочнику API. Вот пример применения функции

Думаю, разберетесь.

 

Изменено 9 апреля 2023 пользователем brigval

[Snake 60 675]

11 часов назад, Basstudio сказал:

Только вот я не такой опытный в этих макросах. Копирую вроде, код. Создаю новый макрос всавляю. А он чтот не того. Не работает. Лико код от фанаря. Либо там маленькая неточность. Или у меня руки кривые. Кто шарит?? Посмотреть.. 

Цель макроса вообще какая? Что он должен делать? То в первом сообщении вы говорите, что он должен сохранить все конфигурации в PDF, а код даете по сохранению всех конфигураций в STEP.

Если второе, то вот здесь вот бред написан:

swPart.ExportFlatPatternView strFileName, swExportFlatPatternOption_e.swExportFlatPatternOption_ExportAs3D

ExportFlatPatternView - это метод сохранения листовой детали в виде развертки в формате DXF/DWG - вообще третья задача.

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

[brigval 687]

1 минуту назад, Snake 60 сказал:

Цель макроса вообще какая? Что он должен делать? То в первом сообщении вы говорите, что он должен сохранить все конфигурации в PDF, а код даете по сохранению всех конфигураций в STEP.

Если второе, то вот здесь вот бред написан:

swPart.ExportFlatPatternView strFileName, swExportFlatPatternOption_e.swExportFlatPatternOption_ExportAs3D

ExportFlatPatternView - это метод сохранения листовой детали в виде развертки в формате DXF/DWG - вообще третья задача.

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

Судя по справке

ExportFlatPatternView 

не сохраняет, а как я понял, только определяет возможность сохранения развертки.

Потому что в справке еще следует

swModelDocExt.SaveAs

Мой поиск по справке показал, что константы

swExportFlatPatternOption_ExportAs3D

не существует.

 

 

[Snake 60 675]

1 минуту назад, brigval сказал:

Мой поиск по справке показал, что константы

swExportFlatPatternOption_ExportAs3D

не существует.

Вопрос, зачем он применяет swExportFlatPattern если сохраняет в СТЕП?

Да, и в справке для swExportFlatPatternViewOptions_e  всего 2 параметра:

Цитата

swExportFlatPatternOption_None
swExportFlatPatternOption_RemoveBends

 

[brigval 687]

2 минуты назад, Snake 60 сказал:

Вопрос, зачем он применяет swExportFlatPattern если сохраняет в СТЕП?

Я понял, что он где-то взял этот код и просит найти ошибку )

[Ветерок 2 107]

У меня такой вопрос. Что проще - написать макрос самому или разбираться в том, что это чудо-юдо написало?

[Snake 60 675]

1 минуту назад, Ветерок сказал:

У меня такой вопрос. Что проще - написать макрос самому или разбираться в том, что это чудо-юдо написало?

По мне так первое, я вот здесь уже писал свой печальный опыт с ИИ:

 

[Maik812 288]

короче ИИ в очередной раз показал что не ИИ :) а так поисковик и вставка найденных данных по инету.

[Basstudio 9]

Ну слава богу что ии не того. А то я уже подумал. 

[Snake 60 675]

1 минуту назад, Basstudio сказал:

Ну слава богу что ии не того. А то я уже подумал. 

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

[Kelny 1 234]

ЖПчат залогиться уже под понятным ником, не надо создавать много тем (достаточно одной) и задавай свои вопросы по человечески.