Знаю что сами дураки, если не хуже, но ситуация следующая - файл SW2017 очень сложной детали "сломался" и больше не открывается, бэкапов нет. Есть какие-то варианты для лечения такого файла?

Замени слово "аэродинамических" на слово "дизайнерских". Если ты уже знаешь как спроектировать самолет, неужели не сможешь спроектировать пылесос?

@Guhl  большое спасибо - буду разбираться

Пылесос тоже от аэродинамических обводов компонуют?

Подходы одинаковые. Представьте, что пылесос - это упрощенный самолёт.

А может кто-то отредактировать макрос сохранения чертежа в 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  

мы уходим от темы. усадку делаю масштабированием в детали 1. в детали 2 мне нужно выбрать конфигурацию детали 1

Разве усадка - это не простое масштабирование?

Привет всем, Для одной образовательно-научной активности очень хочется найти более менее реальный и современный источник описывающий порядок/процесс разработки таких изделий как пылесос, кофемашина, стиральная машина,итд. Чтобы было описание кто что делает, какие этапы, как компоновка делается, итд. Покопал совковой лопатой интернет - и что-то не очень успешно. Как авто или самолёт проектируется - навалом публикаций, книг, блогов..А вот банальный пылесос или кофемашина - проблема что-то найти. Может у кого-нибудь есть что-то на эту тему или знаете где поискать?

Для получения формы. деталь 1 конфиги с усадкой и без.  ни как нет похоже на баг. разные конфигурации детали 2 с одними и теми же построениями работают по разному в одном дает выбрать конфигурацию, в другом  -нет.