-
Сейчас на странице 0 пользователей
Нет пользователей, просматривающих эту страницу.
-
Сообщения
-
Автор: Maik812 · Опубликовано:
StreamPDM.zip не какого отношения не имеет.. Граждане сохраняйте резервные копии! Храните копии файлов в самих файлов (в потоке) , сколько хочешь.. -
Автор: ART · Опубликовано:
Такое делается при помощи Part Copy. Семейство деталей это вообще для другого. -
Автор: EAleksey · Опубликовано:
Не считаю это метод шаманством, конечно понимаю, что для каждого своё удобнее, но считаю, что шероховатость должна быть шероховатостью, а не заметкой, так как не заставляет пользователя думать о вариантах, взять ли заметку или шероховатость, и скорее всего вы при своём методе применяете теги <Font size=3.5/4> Ra... , что бы знак шероховатости был нормальной высоты. А по поводу других версий, слетит только если они теги изменят, что вряд ли. И при таком развитии событий сломаются почти все макросы SW+. А так не шаманство, а просто тег с подчеркнутым текстом и перевернутым текстом для заполнения пробела. Добавляется в избранное и ни каких танцев с бубном. Так то можно и сваркой поставить шероховатость. -
Автор: Snake 60 · Опубликовано:
@nahaus Мой вариант: Option Explicit 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 Sub main() Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc ' Проверяем открыто ли что-либо? If swModel Is Nothing Then swApp.SendMsgToUser2 "Нет ни одного открытого докумета! Пожалуйста, откройте ЧЕРТЕЖ!", swMbWarning, swMbOk Exit Sub End If ' Проверяем открыт ли ЧЕРТЕЖ? If swModel.GetType <> swDocDRAWING Then swApp.SendMsgToUser2 "Макрос работает только с чертежами! Пожалуйста, откройте ЧЕРТЕЖ!", swMbWarning, swMbOk Exit Sub End If ' Проверяем сохранен ли чертеж? If swModel.GetTitle = "" Then swApp.SendMsgToUser2 "Пожалуйста, сперва сохраните ЧЕРТЕЖ!", swMbWarning, swMbOk Exit Sub End If fileName = Mid(swModel.GetPathName, InStrRev(swModel.GetPathName, "\") + 1) fileName = Left(fileName, InStrRev(fileName, ".") - 1) ' Здесь изменяем/устанавливаем настройки разрешения картинки (DPI) и размер листа 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 + " - " + vSheetName + ".PNG", swSaveAsCurrentVersion, swSaveAsOptions_Silent, Nothing, lErrors, lWarnings Next vSheetName swModel.ActivateSheet (strOriginallyActiveSheet) End Sub -
Автор: maxx2000 · Опубликовано:
Судя по тому что он делает -пытается восстановить файловую систему то либо сыпется диск, либо слетела таблица размещения файлов. Чё там у вас свет отключали внезапно? Посмотреть SMART есть возможность? Пробовал запускать проверку в ручном режиме как он просит? -
Автор: gudstartup · Опубликовано:
это что за редкость я такую ни разу не видел. древняя? был бы на heros а то какая-то промежуточная байда на sun os трудно такую найти будет -
Автор: Artem artem · Опубликовано:
Да. Оно повторно грузит и снова ошибка. Может есть root пароль? Так как пароль пользователя не подходит= они разные. Или может у кого есть образ системы чтоб сделать back up? -
Автор: maxx2000 · Опубликовано:
Ctrl+D нажимал? -
Автор: mamomot · Опубликовано:
Тема сегодняшней публикации - взгляд на оснастку для хромирования с точки зрения системного подхода. Часть 1 в Приложении В "Размышления об оснастке". В1_3 Хромирование штоков системный подход Часть 1.pdf -
-
Рекомендованные сообщения