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