-
Сейчас на странице 0 пользователей
Нет пользователей, просматривающих эту страницу.
-
Сообщения
-
Автор: dicty · Опубликовано:
Не пробовал, потому что в том макросе идет отбор деталей из листового материала, а они как раз мне и не нужны. Razvertka All_example.swp UPD: Пробовал, не отрабатывает, выдаёт ошибку -
Автор: stoomb · Опубликовано:
Правда теперь почему то на ускоренном 25 и 50 процентов начал летать очень быстро. А между 50 и 100% вообще нет разницы Может я конечно пока искал 315 параметр что то другое поменял случайно -
Автор: Kelny · Опубликовано:
Пробовали заменить .DXF на .IGS и запустить макрос? -
Автор: Kelny · Опубликовано:
Обычно высокая точность для плат не требуется. Может быть именно вам требуется большая точность. Если подходить к вопросу более научно, то надо бы выбрать наимболее часто используемые элементы и вычислить среднюю массу, а так вычислить коэффициент заполняемости платы элементами, в этом случае добавка к плотности текстолита будет более точной и обдуманной. Но часто требуется масса не плат, а всего изделия в целом и иногда центр тяжести - усреднённые массы в этом случае обычно дают примемлемый результа, а основная масса обычно от металлических деталей (мелкими элементами на плате часто можно пренебречь). Наоборот подход проще, не под каждую плату, а подо все платы и не важно сколько там компонентов, но весь объём будет расчитан по плотности немного больше чем имеет плотность стеклотекстолита (ну или объём элементов по плотности стеклотестолита - как вам больше нравится). А вот особенно тяжёлые элементы можно всё таки выделять в отдельные детали и подгонять плотность для получения нужной массы, например, большие элменты, транформаторы и т.п. Ошибка при таком подходе возможна, но и точность массы для плат не очень часто требуется в электронных устройствах. Платы не самые тяжёлые элементы в блоках. -
Автор: Lmstr · Опубликовано:
А ну и те тоже, вроде как, от производителя стояли. -
Автор: Docuk1 · Опубликовано:
@Leon Доброго дня! в макросе Roughness (простановка общей шероховатости), есть малая неприятность: если активный вид не лист, а любой вид, то обозначение ставится относительно этого вида см.эскиз. Пытался перед вставкой сменить активный вид, но что-то не выходит. Можно как-то подкорректировать? вставлял вот этот кусок кода в разные места кода, особенно в кнопку "ок" Dim swView As SldWorks.View Dim swDraw As SldWorks.DrawingDoc Dim bRet As Boolean Set swDraw = ModelDoc2 Set swView = swDraw.ActiveDrawingView If Not swView Is Nothing Then Debug.Print swView.GetName2 Set swView = swDraw.GetFirstView bRet = swDraw.ActivateView(swView.GetName2) Debug.Print " Active view = " & swView.GetName2 End If -
Автор: dicty · Опубликовано:
Всем здравствуйте! Для файлов DXF довольно много прекрасных макросов, и с GUI, и -без, а вот для IGS (SAT, STEP,Parasolid) - как-то скудно (или плохо искал). Пользуемся простеньким макросом (по сути - файл/сохранить как/IGS) для экспорта IGS для лазерного трубореза , который при активации в сборке вываливает в то же место, и сборка, файлы (с учетом конфигураций добавляется -01, 02 в имя файла). Потом долго и нудно удаляем ненужные, сопоставляя спецификацию с отображённым материалом, количеством и добавляя Материал и Количество к имени файла (так уж привыкли на производстве). Вопрос в том, чтобы в имя файла добавлять пользовательские свойства, после этого просто удаляются из общей массы ненужные файлы, глядя на Материал в названии файла. Ну а количество берется тоже из свойств (макрос записывает значение для макроса DXF) Кто-то может помочь с макросом? Или, возможно, идеей? (в древней теме про такой же вопрос @Kelny отсылал к хелпу, но моих компетенций, видимо недостаточно для осовения этой науки) Макрос, который создает DXF выдает нам название файла и формирует папки в виде: Const OUT_NAME_TEMPLATE As String = "[Развертка]\Толщина <$CLPRP:Толщина листового металла>мм\<_FileName_> (исп.<_ConfName_>) - <$PRP:SWP-Материал> - <$CLPRP:Толщина листового металла>мм - R <$CLPRP:Радиус сгиба> - K <$CLPRP:Допуск сгиба> <$PRP:Qty> шт..dxf" Вот что-то примерное и хотелось бы для IGS. Сейчас вот это работает: Option Explicit Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc Dim nPath As String Dim FileName As String Dim NewFileName As String Sub main() Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc If swModel Is Nothing Then swApp.SendMsgToUser2 "Please open a SolidWork Part/Assembly first and try again!!", swMbWarning, swMbOk Exit Sub End If If swModel.GetType = swDocDRAWING Then swApp.SendMsgToUser2 "Please open a SolidWork Part/Assembly first and try again!!", swMbWarning, swMbOk Exit Sub End If nPath = Left(swModel.GetPathName, InStrRev(swModel.GetPathName, ".") - 1) swModel.SaveAs nPath & ".igs" FileName = nPath & ".igs" End Sub -
Автор: Ветерок · Опубликовано:
Есть тема про мониторы. Там есть ответы про все К (в том числе и мой ответ, повторять не буду). Эта тема про компьютеры, а не про мониторы. -
Автор: Srgwell · Опубликовано:
Можно ли с помощью "преобразовать в листовой металл" получить многотельную деталь, чтобы потом каждое тело сохранить в отдельную листовую деталь? -
Автор: mmaag · Опубликовано:
В каталогах на ремни оптибелт. Там есть инструкция по расчётам, у других прлизводителей, возможно, будут другие числа. В среднем рекомендуется около 90 градусов обхвата.
-
Рекомендованные сообщения
Присоединяйтесь к обсуждению
Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже. Если у вас есть аккаунт, войдите в него для написания от своего имени.
Примечание: вашему сообщению потребуется утверждение модератора, прежде чем оно станет доступным.