Перейти к публикации

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


Рекомендованные сообщения

О, есть же макро. Как раз с такой фичей 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, а должно было быть одинаково.

Изменено пользователем Kelny
Ссылка на сообщение
Поделиться на других сайтах


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

 

А я нет.

Вот мой макрос.
И куда его нужно "запихнуть"?

mat.rar

Ссылка на сообщение
Поделиться на других сайтах

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

 

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

Ссылка на сообщение
Поделиться на других сайтах
сохранял все развертки деталей из листового металла

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

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

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

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

Ссылка на сообщение
Поделиться на других сайтах

 чем?  :smile:

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

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

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

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

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

Ссылка на сообщение
Поделиться на других сайтах
Макрос работает в детали, необходимо из сборки сохранить все развертки листовых деталей в формат DXF

 

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

 

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

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

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

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

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

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

Ссылка на сообщение
Поделиться на других сайтах
  • 1 месяц спустя...

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

Ссылка на сообщение
Поделиться на других сайтах

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

Ссылка на сообщение
Поделиться на других сайтах

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

Начал изучать 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
 

 

Изменено пользователем ckam
Ссылка на сообщение
Поделиться на других сайтах

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

' 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

 

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

Изменено пользователем ckam
Ссылка на сообщение
Поделиться на других сайтах
В 24.11.2016 в 15:03, ILL сказал:

 

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

 

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

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

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

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

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

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

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

Ссылка на сообщение
Поделиться на других сайтах

 

 

 

 


 

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

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


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


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

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

 


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

Ссылка на сообщение
Поделиться на других сайтах
5 минут назад, ILL сказал:

 

 

 

 


 


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


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

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

 


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

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

 

Ссылка на сообщение
Поделиться на других сайтах

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


 

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

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


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

 


 

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

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


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


 

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

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


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

Ссылка на сообщение
Поделиться на других сайтах
Только что, ILL сказал:

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


 


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

 


 


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


 


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

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

Ссылка на сообщение
Поделиться на других сайтах
Только что, tonienergo сказал:

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


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


 

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

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


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

Ссылка на сообщение
Поделиться на других сайтах
1 минуту назад, ILL сказал:


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


 


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

TP25_6_Kryisha_korpusu_1sht.DXF

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

Ссылка на сообщение
Поделиться на других сайтах
7 часов назад, ILL сказал:


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


 


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

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

Ссылка на сообщение
Поделиться на других сайтах

Всем Привет.

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

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

    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

Ссылка на сообщение
Поделиться на других сайтах

Присоединяйтесь к обсуждению

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

Гость
Ответить в тему...

×   Вставлено в виде отформатированного текста.   Вставить в виде обычного текста

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу.



  • Сообщения

    • Snake 60
      Скорее всего исправляли в конкретной сборке, для конкретных тел. Насколько я помню, надо в самом эскизе профиля заполнить свойство Description
    • Snake 60
      Делаете дырку в свае - вставляете в нее трубу и 2 человеко-силы крутят сваю ) Дёшево и сердито и не нужен никакой планетарный редуктор ))
    • gudstartup
      вы всегда ищите свой путь или будете делать то что вам советуют? с самого начала прежде чем приступать к экспериментам вам нужно было вынуть носитель и сделать образ. diskcopy делает копию гибкого диска на другой а вам надо сделать образ жесткого диска или карты памяти. делайте как советует @Viktor2004 иначе еще чего нибудь сломаете или вам станок не нужен и вы его приобрели для экспериментов ? вот а печатной машинке из прошлого нельзя а вот на синумерике можно - удивительные вещи в настоящем происходят!! на 100 % уверен что там не модуль а либо писимиси ай либо жд @mircomax81 хотите работать в дос почитайте помощь по командам 
    • PuKoLLleT
      Доброго дня всем. Поделитесь опытом,раньше такое не доводилось делать. На торце фланца нужно сделать  восемь отверстий ф17H7 на токарно-фрезерном станке с осью Y ,имеется ManualGuide.В моем понимании нужно просверлить,а затем торцевой фрезой расточить нужный диаметр.Получится такой фокус,или надо разверткой доводить нужный размер?  Стойка Fanuc 0i-Tf.
    • Snake 60
      Всё верно, я даже русификатор делал для него (ушло на это где-то около года). Хороший софт был, я всех знакомых на него подсадил в свое время :) У меня даже где-то образ на виртуалке лежит с SW2014+MechSoft, Жаль, что автодеск его поглотил, а не DS :( А по сути вопроса, проектировал двухступенчатый планетарный редуктор в свое время. Что было нужно: Справочник по планетаркам (автора не помню, если надо поищу), из софта MathCAD + GearTeq (софтина идет вместе с GearTrax, только рассчитывает и моделирует несколько зацеплений согласно выбранной схеме, в том числе планетарки) Ой и ошибаетесь. Звездочки - не равно зубчатые колеса в планетарке) Мы намучились с малой точностью изготовления на эл.эрозии, а Вы лазером ))) Был собран опытный образец редуктора с незакаленными деталями, чисто проверить геометрию, отладить сборку. Так потом начальство этот редуктор сказало испытать в бою, как я не противился)) Помер за пару дней интенсивных нагрузок ))) Материал, термообработка и точности изготовления решают )
    • Snake 60
      @Тихоход  Ещё один вариант - изучать программирование и писать свою программу/макрос. Вот пример конфигуратора двери: https://www.youtube.com/watch?v=wv4HryWQBSk
    • mircomax81
      Посредством Diskcopy можно сделать адекватную копию на флоппи диск?
    • Andrey_kzn
      Да, ведь советовали автору вытащить жёсткий диск и сделать образ. Неужели самому не интересно, как устроен этот старый промкомпьютер? Там может стоять как жёсткий диск, так и CF-карта, или же Disc-on-chip или Disc-on-module.  Как-то очень давно, на подобном промышленном оборудовании (большая печатная машина) я не смог перенести  ПО с родной CF - карты на другую, такого же размера но другой фирмы. Была также станочная оболочка под досом.  Образ я делал Нортон гостом, развернул его на другую CF-карту без проблем. Машина загрузилась нормально и работала ровно 2 дня, на неродной CF-карте,  потом зависла, и отказалась загружаться. Пришлось вызывать сервисника. От него мы узнали, что нельзя просто так взять и заменить карту  - носитель системного ПО, на другую. А полезли мы туда, так как руководство захотело печатать отчёты по работе машины. В станочном ПО такая функция была. Вот только принтер надо было купить у фирмы - производителя этой самой машины. В попытках заставить работать другой принтер мы редактировали файл  AUTOEXEС.BAT, на предмет загрузки драйвера принтера, ничего не получилось, зато перестали открываться некоторые страницы станочного ПО.  Образ у нас был давно снят, и мы развернули его на другую карту памяти. Родную карту я трогать не стал (как чувствовал, что нельзя ). Сервисник восстановил ПО с архивной дискеты на родную карту памяти, и всё заработало. Дискеты с архивами ПО шли вместе с документацией к машине.  Там были дискеты с Досом, станочной оболочкой, параметрами приводов, программой ПЛК. Он же и предупредил нас о предельно аккуратном обращении с родной картой памяти, и посоветовал немедленно сделать образы с архивных дискет, что мы сразу и проделали.. Вот такой сюрприз от машины эпохи Дос.
    • Борман
    • gudstartup
      а ведь все работало...
×
×
  • Создать...