Сделай свою работу в Solidworks эффективнее

[Kelny 1 239]

О, есть же макро. Как раз с такой фичей CenterOfGravity

Спасибо, разобрался что к чему.

 

В приведённом примере не сказано, что надо прописать имя модуля в определении модулей как и в макросе, иначе получается ссылка вникуда от сюда и ошибка. Надо менять либо имя модуля либо в код вписывать другое имя модуля здесь, то есть в макросе прописано FeatureModule, так же должен называться модуль (имя модуля в макросе) в который вписан этот код или нужна коррекция имени в коде:

...
    'Define the routines to call
    ThisFile = swApp.GetCurrentMacroPathName
    Methods(0) = ThisFile: Methods(1) = "FeatureModule": Methods(2) = "swmRebuild"
    Methods(3) = ThisFile: Methods(4) = "FeatureModule": Methods(5) = "swmEditDefinition"
    Methods(6) = "": Methods(7) = "": Methods(8) = ""  'A security routine is optional
...

У меня модуль назывался иначе, поэтому и получалась ошибка. То есть в коде была записано FeatureModule, но модуль с кодом назывался CreateSubMacroFeature1, а должно было быть одинаково.

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

[VOleg 228]

Спасибо, разобрался что к чему.

 

А я нет.

Вот мой макрос.

И куда его нужно "запихнуть"?

mat.rar

[IbragimovA 0]

Добрый день Форумчане. 

 

Большая просьба помочь в одной ситуации. Работаю в SolidWorks 2015 c изделиями из листового металла. Просьба помочь в создании макроса, который бы, сохранял все развертки деталей из листового металла, находящиеся в сборке. Может быть кто то сталкивался с данной проблемой и есть готовое решение. Буду очень благодарен. 

[streamdown 1 565]

Просьба помочь в создании макроса

 чем? 

[Michael_Mira 135]

сохранял все развертки деталей из листового металла

Ответил в личке.

Ссылка тем, кого опять этот макрос заинтересует.

Откеда скопипизжен уже не помню...

http://cccp3d.ru/topic/70338-%D0%BC%D0%B0%D0%BA%D1%80%D0%BE%D1%81-%D1%81%D0%BE%D1%85%D1%80%D0%B0%D0%BD%D0%B5%D0%BD%D0%B8%D1%8F-%D1%80%D0%B0%D0%B7%D0%B2%D0%B5%D1%80%D1%82%D0%BA%D0%B8-%D0%B2-dwg/?p=770820

[IbragimovA 0]

 чем? 

Предложить решение по автоматизации, возможно в рублях

Ответил в личке.

Ссылка тем, кого опять этот макрос заинтересует.

Откеда скопипизжен уже не помню...

http://cccp3d.ru/topic/70338-%D0%BC%D0%B0%D0%BA%D1%80%D0%BE%D1%81-%D1%81%D0%BE%D1%85%D1%80%D0%B0%D0%BD%D0%B5%D0%BD%D0%B8%D1%8F-%D1%80%D0%B0%D0%B7%D0%B2%D0%B5%D1%80%D1%82%D0%BA%D0%B8-%D0%B2-dwg/?p=770820

 

Макрос работает в детали, необходимо из сборки сохранить все развертки листовых деталей в формат DXF

[ILL 241]

Макрос работает в детали, необходимо из сборки сохранить все развертки листовых деталей в формат DXF

 

Так дальше все проще пареной репы..

 

1. Открываем справку по SolidWorks API.

2. Делаем поиск в хелпе по ключевому слову "Traverse" (находим примеры получения дерева сборки).

3. В меню солида "Инструменты"-"Макрос"-"Создать".

4. Копипастим понравившийся пример в окно редактора VBA,

5. Копипастим текст макроса по ссылке выше.

6. Добавляем условие выполнения экспорта. Например, проверка на наличие в модели каждой детали конфигурации "Развертка" или соответствующего фичерса в дереве

[tompsongun 452]

streamdown, а подскажите, пожалуйста, Вы не планируете добавить массовое переименование в своей замечательной программе "Переименование деталей в сборке"?

[streamdown 1 565]

@tompsongun блин, планирую)) но последние пол-года 2016 сумрачно занят. Даже дома. 

[ckam 0]

Добрый день,требуется ваша помощь)

Начал изучать VBA в Solidworks  и столкнулся с проблемой получения разверток

Задача:

Получение разверток листового металла детали, сама деталь имеет несколько конфигураций или же одну, если деталь простая

Например:

Деталь 1

1) По умолчанию(Готовая деталь)

2)) Плазма(если деталь изготавливается из цельного листа)

3) Плазма 1(если деталь изготавливается из частей )

4)Плазма 2(если деталь изготавливается из частей )

5)Плазма 3 (если деталь изготавливается из частей )

Деталь 2 

1) По умолчанию(Готовая деталь так как она простая то этаже конфигурация режется на плазме)

 

Вопрос как получать конфигурации(смысл понимаю, но реализовать не получается) если одна конфигурация, то получать развертку только конфигурации по умолчанию(Деталь 2), если сложная то получать все развертки  кроме развертки по умолчанию (Деталь 1)

Буду рад любой помощи

За основу пробовал брать файл Export Flat Pattern View (Configurations)

 

' Export Flat Pattern ---------------------------------10/26/09
' Preconditions: A Sheet metal part is open.
' Postconditions: Macro will export flat pattern view for all configuration(s)
' and save as dxf in the same location.
' ------------------------------------------------------------------------------
' Written by: Deepak Gupta (http://gupta9665.wordpress.com/)
' ------------------------------------------------------------------------------
Option Explicit
Sub main()
    Dim swApp                   As SldWorks.SldWorks
    Dim swModel                 As SldWorks.ModelDoc2
    Dim vConfNameArr            As Variant
    Dim sConfigName             As String
    Dim nStart                  As Single
    Dim i                       As Long
    Dim bShowConfig             As Boolean
    Dim bRebuild                As Boolean
    Dim bRet                    As Boolean
    Dim CurFeature              As SldWorks.Feature
    Set swApp = CreateObject("SldWorks.Application")
    Set swModel = swApp.ActiveDoc
' Is document active?
If swModel Is Nothing Then
    swApp.SendMsgToUser2 "A sheet metal part must be open.", swMbWarning, swMbOk
    Exit Sub
End If
 ' Is it a part document?
Dim modelType As Long
modelType = swModel.GetType
If modelType <> SwConst.swDocPART Then
    swApp.SendMsgToUser2 "A sheet metal part must be open.", swMbWarning, swMbOk
    Exit Sub
End If
        vConfNameArr = swModel.GetConfigurationNames
     
    'For i = 0 To UBound(vConfNameArr) 'Åñëè íóæíà è êîíôèãóðàöèÿ Default
    For i = 1 To UBound(vConfNameArr)
            sConfigName = vConfNameArr(i)
bShowConfig = swModel.ShowConfiguration2(sConfigName)
'bShowConfig = swModel.ShowConfiguration2("Ãàçîðåçêà")
bRebuild = swModel.ForceRebuild3(False)
Dim FilePath As String
Dim PathSize As Long
Dim PathNoExtension As String
Dim NewFilePath As String
FilePath = swModel.GetPathName
PathSize = Strings.Len(FilePath)
PathNoExtension = Strings.Left(FilePath, PathSize - 6)
NewFilePath = PathNoExtension + sConfigName & ".DWG"
'Export Flat Pattern
bRet = swModel.ExportFlatPatternView(NewFilePath, 1)
Next i
End Sub
 

 

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

[ckam 0]

Решил проблему таким способом:

' Export Flat Pattern ---------------------------------10/26/09
' Preconditions: A Sheet metal part is open.
' Postconditions: Macro will export flat pattern view for all configuration(s)
' and save as dxf in the same location.
' ------------------------------------------------------------------------------
' Written by: Deepak Gupta (http://gupta9665.wordpress.com/)
' ------------------------------------------------------------------------------
Option Explicit
Sub main()
    Dim swApp                   As SldWorks.SldWorks
    Dim swModel                 As SldWorks.ModelDoc2
    Dim vConfNameArr            As Variant
    Dim sConfigName             As String
    Dim nStart                  As Single
    Dim i                       As Long
    Dim bShowConfig             As Boolean
    Dim bRebuild                As Boolean
    Dim bRet                    As Boolean
    Dim CurFeature              As SldWorks.Feature
    Set swApp = CreateObject("SldWorks.Application")
    Set swModel = swApp.ActiveDoc
    
    Dim FilePath As String
Dim PathSize As Long
Dim PathNoExtension As String
Dim NewFilePath As String
    
    
' Is document active?
If swModel Is Nothing Then
    swApp.SendMsgToUser2 "A sheet metal part must be open.", swMbWarning, swMbOk
    Exit Sub
End If
 ' Is it a part document?
Dim modelType As Long
modelType = swModel.GetType
If modelType <> SwConst.swDocPART Then
    swApp.SendMsgToUser2 "A sheet metal part must be open.", swMbWarning, swMbOk
    Exit Sub
End If
        vConfNameArr = swModel.GetConfigurationNames
        Debug.Print vConfNameArr(i)
        
If UBound(vConfNameArr) < 1 Then

For i = 0 To UBound(vConfNameArr)
sConfigName = vConfNameArr(i)
bShowConfig = swModel.ShowConfiguration2(sConfigName)
bRebuild = swModel.ForceRebuild3(False)

FilePath = swModel.GetPathName
PathSize = Strings.Len(FilePath)
PathNoExtension = Strings.Left(FilePath, PathSize - 6)
NewFilePath = PathNoExtension + sConfigName & ".DWG"
'Export Flat Pattern
bRet = swModel.ExportFlatPatternView(NewFilePath, 1)
Next i
Else
    For i = 1 To UBound(vConfNameArr)
            sConfigName = vConfNameArr(i)
bShowConfig = swModel.ShowConfiguration2(sConfigName)
bRebuild = swModel.ForceRebuild3(False)

FilePath = swModel.GetPathName
PathSize = Strings.Len(FilePath)
PathNoExtension = Strings.Left(FilePath, PathSize - 6)
NewFilePath = PathNoExtension + sConfigName & ".DWG"
'Export Flat Pattern
bRet = swModel.ExportFlatPatternView(NewFilePath, 1)
Next i
End If
End Sub

 

Кто подскажет правильность подхода?

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

[tonienergo 0]

В 24.11.2016 в 15:03, ILL сказал:

 

Так дальше все проще пареной репы..

 

1. Открываем справку по SolidWorks API.

2. Делаем поиск в хелпе по ключевому слову "Traverse" (находим примеры получения дерева сборки).

3. В меню солида "Инструменты"-"Макрос"-"Создать".

4. Копипастим понравившийся пример в окно редактора VBA,

5. Копипастим текст макроса по ссылке выше.

6. Добавляем условие выполнения экспорта. Например, проверка на наличие в модели каждой детали конфигурации "Развертка" или соответствующего фичерса в дереве

Не могли бы Вы помочь таким далеким от программирования как я?
Как это все реализовать на практике?
Тот макрос прекрасен, но не хотелось бы его запускать отдельно для каждой детали. Если возможно, чтобы он выбирал детали из "листового" металла и делал из них развертки. Если нет, то как-нибудь реализовать бы такое, чтоб макрос срабатывал на все открытые детали (я могу сам открыть детали из листового металла).

[ILL 241]

 

 

 

 

 

В 7 января 2017 г. в 02:59, tonienergo сказал:

Не могли бы Вы помочь таким далеким от программирования как я?

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

1. ТЗ от заказчика (т.е. описать возможности макроса)..

2. Время на то чтобы объединить два макроса в один..

 

Вот со вторым пока проблема.. Сроки горят..
 

[tonienergo 0]

5 минут назад, ILL сказал:

 

 

 

 

 

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

1. ТЗ от заказчика (т.е. описать возможности макроса)..

2. Время на то чтобы объединить два макроса в один..

 

Вот со вторым пока проблема.. Сроки горят..
 

Макрос просто должен выбрать детали из сборки с установленным свойством "Листовой металл" - "Да" и сбрасывать их в ту же папку с тем же именем (по возможности с комментарием количества).

 

[ILL 241]

Нужно ли окно макроса с кнопками "Старт"/"Отмена", списком листовых деталей и возможностью выборочного сохранения??

 

Только что, tonienergo сказал:

Макрос просто должен выбрать детали из сборки с установленным свойством "Листовой металл" - "Да"

Это которые "Файл"-"Свойства"?? Но проблем..

 

 

Только что, tonienergo сказал:

сбрасывать их в ту же папку с тем же именем

 Именем файла детали?? Но проблем..

 

Только что, tonienergo сказал:

по возможности с комментарием количества

Комментарий куда добавлять??
 

[tonienergo 0]

Только что, ILL сказал:

Нужно ли окно макроса с кнопками "Старт"/"Отмена", списком листовых деталей и возможностью выборочного сохранения??

 

Это которые "Файл"-"Свойства"?? Но проблем..

 

 

 Именем файла детали?? Но проблем..

 

Комментарий куда добавлять??
 

Комментарий в конец названия. Желательно транслитом

[ILL 241]

Только что, tonienergo сказал:

Комментарий в конец названия

Название файла??

 

Только что, tonienergo сказал:

Желательно транслитом

Деталь 1 (10 shtuk).DXF ??
 

[tonienergo 0]

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

Название файла??

 

Деталь 1 (10 shtuk).DXF ??
 

TP25_6_Kryisha_korpusu_1sht.DXF

Транслит и через нижнее подчеркивание. Если такого не сделать, то плазма просто файлы не видит(((

[tonienergo 0]

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

Название файла??

 

Деталь 1 (10 shtuk).DXF ??
 

Не нужно количество в имени. Я вспомнил, что в сборке много отзеркаленных деталей. Мне проще самому через спецификацию глянуть.
В итоге нужно только чтобы макрос делал DXF из всех файлов сборки с определеннім свойствоим.

[Mihail7783 0]

Всем Привет.

Помогите разобраться. Переделал пример под себя. Надо тоже самое только в Сборке.

    ----------------------------------------------------

    Dim App As SldWorks.SldWorks
    Dim Model As SldWorks.ModelDoc2
    Dim Part As SldWorks.PartDoc
    Dim SelMgr As SldWorks.SelectionMgr
    Dim Entity As SldWorks.Entity
    Dim SelObj As Object
    Dim Name As String
    
Sub amin()
    Set App = CreateObject("SldWorks.Application")
    Set Model = App.ActiveDoc
    Set Part = Model
    Set SelMgr = Model.SelectionManager
    
    If (SelMgr.GetSelectedObjectCount <> 0) Then
        Set SelObj = SelMgr.GetSelectedObject6(1, -1)
        Set Entity = SelObj
        If (SelMgr.GetSelectedObjectType(1) = swSelFACES) Then
            Name = Part.GetEntityName(Entity)
            App.SendMsgToUser ("Имя выбранной грани : " + Name)
        Else
            App.SendMsgToUser ("Выберите грань и снова запустите макрос")
        End If
    End If
End Sub