-
Сейчас на странице 0 пользователей
Нет пользователей, просматривающих эту страницу.
-
Сообщения
-
Автор: Chuvak · Опубликовано:
@nahaus Поправил, можете проверить Slddrw to PNG_v.2.swp -
Автор: DeMirror · Опубликовано:
Не смогу. Ну точнее смогу, после того как долго буду в этом разбираться. Везде есть свои нюансы, которые определяют конструкторские решение. Даже если говоирить про самолёты, то имея хороший опыт проектирования гражданской техники, надо серьёзно вложиться в обучение, чтобы начать проектировать военную технику. Там даже на уровне процессов компоновки есть существенные различия. А уж между самолётов и бытовой техникой различий существенно больше, чем между гражданским лайнером и истребителем. -
Автор: 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 -
Автор: Ветерок · Опубликовано:
Разве усадка - это не простое масштабирование?
-
Рекомендованные сообщения