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