-
Сейчас на странице 0 пользователей
Нет пользователей, просматривающих эту страницу.
-
Сообщения
-
Автор: 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 -
-
Автор: АйнурБатталов · Опубликовано:
В файле .gpp найдите строку trace "all":5, замените 5 на 0 и сохраните. Это трассировка, нужна при редактировании поста, чтобы знать какая переменная какие данные содержит, также какая процедура выдала кадр с G кодом. -
Автор: the Devil incarnate · Опубликовано:
Всем привет. Нужно мне в сборке использовать одинаковые детали из разных материалов. Для этого сделал деталь, сделал семейство деталей, а вот материал там менять нельзя, как оказалось. Может кто-то подскажет, возможно ли это как-то провернуть? Если открыть каждую дочернюю деталь и изменить там материал, то временно всё работает. Но после каких-то манипуляций с главной деталью, материал сам заменяется. -
Автор: Kelny · Опубликовано:
Выберите в Solidworks режим при открытии ТОЛЬКО ПРОСМОТР (в последних версиях так понимаю можно выбрать режим ДЕТАЛИЗАЦИЯ без подгрузки моделей) и тоже велика вероятность, что так же покажет, но это только картинки - редактировать ни чего нельзя. В режиме ДЕТАЛИЗАЦИЯ всё такие какое-то редактирование доступно.
-
Рекомендованные сообщения