-
Сейчас на странице 0 пользователей
Нет пользователей, просматривающих эту страницу.
-
Сообщения
-
Автор: djrandom · Опубликовано:
Знаю что сами дураки, если не хуже, но ситуация следующая - файл SW2017 очень сложной детали "сломался" и больше не открывается, бэкапов нет. Есть какие-то варианты для лечения такого файла? -
Автор: Ветерок · Опубликовано:
Замени слово "аэродинамических" на слово "дизайнерских". Если ты уже знаешь как спроектировать самолет, неужели не сможешь спроектировать пылесос? Ну, попробуй представить, что пылесос находится в самолете :) что это один из узлов самолета. -
Автор: nein · Опубликовано:
@Guhl большое спасибо - буду разбираться -
Автор: DeMirror · Опубликовано:
Пылесос тоже от аэродинамических обводов компонуют? -
Автор: 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 с одними и теми же построениями работают по разному в одном дает выбрать конфигурацию, в другом -нет.
-
Рекомендованные сообщения