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

Макрос на создание перечня из списка сварных вырезов


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

Привет, Коллеги! Прошу помощи, суть задачи: нужно собрать весь металл из списка сварных вырезов со сборки с кучей подсборок в отдельную эксель таблицу (интересуют графы наименование, кол-во, длина). Из списка будет заказан металл и произведена распиловка проката. Может кому-то встречалось что-то похожее?  Или есть другие способы решения проблемы. Сейчас выдергиваю из общей спецификации - занимает много времени и приходится ручками умножать кол-во если одной и той же деталей больше одной. 

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


UnPinned posts
57 минут назад, oleg1993 сказал:

в отдельную эксель таблицу (интересуют графы наименование, кол-во, длина)

Для этого пользую штатные средства SW.

Например, сборка галереи. В сборку входят марки - сварные конструкции со списком вырезов.

В чертеже вставляю спецификацию с настроенными столбцами:

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

image.png

Свойства спецификации - такие:

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

image.png

У спецификации есть столбец - "Общая длина, мм", в нее загоняю свойство TOTAL LENGTH:

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

image.png

Это свойство появляется автоматически у сварных профилей в списке вырезов.

Профили использую свои - лежат тут.

 

Выгружаю спец в Excel и далее делаю ведомость материалов.

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

image.png

 

Единственный "косяк" - свойство TOTAL LENGTH прописывается у всех одинаковых профилей одно:

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

image.png

Например, на рис. выше в марке ПСГ-7 есть два швеллера, с разной длиной. Общая длина у них будет 28320мм, и она пропишется у каждой поз.

Ну и соотв для уголка 125*80*8 - у обеих поз. прописывается общая длина. Т.е. нужно убрать лишнее.

А так без макросов обходимся пока.

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

Подобное делал для сортировки и  подщета. По своему прям в проекте чтоб видно было какой профиль взять или выкинуть..

Передаю в эксель состав проекта количество штук и длины профиля/габаритов

 

ПРИМЕР РАБОТЫ.gif

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

Спасибо за ответы,  вопрос решается, но наверно у меня завышенные требования к скорости и качеству выполнения работ. Попросили фрилансера написать макрос.

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

@Maik812  Плагин Geometrika не работает под 64-м тоталом, только под 32-м, куда копать в поисках плагина под 64-bit?

 

ккк.JPG

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

поисках плагина под 64-bit?

это попробуй

SWGeometrika.zip

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

@Maik812 Спасибо, установилось!:good:

 

Теперь надо будет разобраться с ассоциациями и как это всё запустить и заставить работать :rolleyes:

Изменено пользователем Бестолковый
Ссылка на сообщение
Поделиться на других сайтах
25.06.2024 в 17:19, jtok сказал:

В чертеже вставляю спецификацию с настроенными столбцами:

что за столбы такие: "марка" и "типоразмер"?

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

image.png

 

25.06.2024 в 17:19, jtok сказал:

У спецификации есть столбец - "Общая длина, мм", в нее загоняю свойство TOTAL LENGTH:

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

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

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

image.png

 

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

"марка"

Это из КМД - Наименование типа

 

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

"типоразмер"?

Это сортамент. L125х8 например. Тоже из КМД. Для листового металла "SW-Толщина" х "SW-Ширина"

 

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

общая длина проставляется для каждой детали отдельно

Нет. Общая длина проставляется для всего профиля в группе списка вырезов в пределах сварной детали.

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

Т.е. у вас в ферме трубы 80х4,5 - 11,7м и в стойке 13,86м. И это на одну сборку сварную.

Ферм у вас 4, а стойки 3, соотв. общая длина трубы 80х4,5 будет: 4*11,7+3*13,86=88,4м. Я это обычно досчитываю в Excel, после выгрузки спец в него.

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

Нет. Общая длина проставляется для всего профиля в группе списка вырезов в пределах сварной детали.

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

Ссылка на сообщение
Поделиться на других сайтах
25.06.2024 в 17:19, jtok сказал:

Выгружаю спец в Excel и далее делаю ведомость материалов.

А что за софт зеленые галочки на папках ставит?

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

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

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

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

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

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

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

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

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

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

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




  • Сообщения

    • BSV1
      Подходы одинаковые. Представьте, что пылесос - это упрощенный самолёт.
    • nahaus
      А может кто-то отредактировать макрос сохранения чертежа в PNG? Нужно чтобы второй и последующие листы при сохранении их в PNG имели имена отличные от имени первого листа. Иначе они заменяют друг друга. Макрос нашел в интернете.Slddrw to PNG.swp   Sub main() Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swSheet As SldWorks.Sheet Dim vSheetNameArr, vSheetName As Variant Dim bRet As Boolean Dim lErrors As Long Dim lWarnings As Long Dim fileName As String Dim strOriginallyActiveSheet As String Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc ' Is document active? If swModel Is Nothing Then swApp.SendMsgToUser2 "A Drawing document must be active.", swMbWarning, swMbOk Exit Sub End If ' Is it a Drawing document? If swModel.GetType <> swDocDRAWING Then swApp.SendMsgToUser2 "A Drawing document must be active.", swMbWarning, swMbOk Exit Sub End If If swModel.GetTitle = "" Then swApp.SendMsgToUser2 "Save the Drawing first", swMbWarning, swMbOk Exit Sub End If fileName = Mid(swModel.GetPathName, InStrRev(swModel.GetPathName, "\") + 1) fileName = Left(fileName, InStrRev(fileName, ".") - 1) 'Change/Set DPI Settings and Paper Size here swApp.SetUserPreferenceIntegerValue swUserPreferenceIntegerValue_e.swTiffPrintDPI, 300 swApp.SetUserPreferenceIntegerValue swUserPreferenceIntegerValue_e.swTiffPrintPaperSize, swDwgPaperSizes_e.swDwgPaperA4size Set swSheet = swModel.GetCurrentSheet strOriginallyActiveSheet = swSheet.GetName vSheetNameArr = swModel.GetSheetNames For Each vSheetName In vSheetNameArr bRet = swModel.ActivateSheet(vSheetName): Debug.Assert bRet swModel.ViewZoomtofit2 swModel.Extension.SaveAs fileName + ".PNG", swSaveAsCurrentVersion, swSaveAsOptions_Silent, Nothing, lErrors, lWarnings Next vSheetName swModel.ActivateSheet (strOriginallyActiveSheet) End Sub  
    • si-64
      мы уходим от темы. усадку делаю масштабированием в детали 1. в детали 2 мне нужно выбрать конфигурацию детали 1
    • Ветерок
      Разве усадка - это не простое масштабирование?
    • DeMirror
      Привет всем, Для одной образовательно-научной активности очень хочется найти более менее реальный и современный источник описывающий порядок/процесс разработки таких изделий как пылесос, кофемашина, стиральная машина,итд. Чтобы было описание кто что делает, какие этапы, как компоновка делается, итд. Покопал совковой лопатой интернет - и что-то не очень успешно. Как авто или самолёт проектируется - навалом публикаций, книг, блогов..А вот банальный пылесос или кофемашина - проблема что-то найти. Может у кого-нибудь есть что-то на эту тему или знаете где поискать?
    • si-64
      Для получения формы. деталь 1 конфиги с усадкой и без.  ни как нет похоже на баг. разные конфигурации детали 2 с одними и теми же построениями работают по разному в одном дает выбрать конфигурацию, в другом  -нет.
    • Ветерок
      С какой целью вставляете одну деталь в другую? Да ещё с разными конфигурациями? Вы не путаете деталь и сборку?
    • IgP
    • si-64
      Не изменяется конфигурация детали в детали.   Есть деталь 1. Вставляю в деталь 2. В детали 1 добавляю конфигурацию. Хочу в детали 2 применить новую конфигурацию детали 1. Редактирую элемент вставки - отображаются все конфигурации, выбираю нужную, ок - ни чего не меняется.   Что не так?   СВ2022 СП05 каким то неведомым образом дальнейшие построения блокируют изменение.
    • Vova
×
×
  • Создать...