@nahaus  Поправил, можете проверить Slddrw to PNG_v.2.swp

Не смогу. Ну точнее смогу, после того как долго буду в этом разбираться. Везде есть свои нюансы, которые определяют конструкторские решение. Даже если говоирить про самолёты, то имея хороший опыт проектирования гражданской техники, надо серьёзно вложиться в обучение, чтобы начать проектировать военную технику. Там даже на уровне процессов компоновки есть существенные различия. А уж между самолётов и бытовой техникой различий существенно больше, чем между гражданским лайнером и истребителем.

Знаю что сами дураки, если не хуже, но ситуация следующая - файл 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

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