Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже.
Если у вас есть аккаунт, войдите в него для написания от своего имени.
Примечание: вашему сообщению потребуется утверждение модератора, прежде чем оно станет доступным.
РеМарка
Версия 6.0 - Наглядный Комплектовщик
Прозрачность управления файловой системой проекта
РеМарка предназначена для пакетного - изменения свойств и переименования - документов Компас-3D,
при копировании в новую папку с сохранением перекрестных ссылок между файлами
Решаемые Задачи
Видео
Вишенка на торте
Системные требования
Компас-3D v21
.Net 7.0
Скачать программу
https://disk.yandex.ru/d/Xxb2WdAeNy6lJg
Всем Мира, Добра и Созидания !!!
Не считаю это метод шаманством, конечно понимаю, что для каждого своё удобнее, но считаю, что шероховатость должна быть шероховатостью, а не заметкой, так как не заставляет пользователя думать о вариантах, взять ли заметку или шероховатость, и скорее всего вы при своём методе применяете теги <Font size=3.5/4> Ra... , что бы знак шероховатости был нормальной высоты. А по поводу других версий, слетит только если они теги изменят, что вряд ли. И при таком развитии событий сломаются почти все макросы SW+. А так не шаманство, а просто тег с подчеркнутым текстом и перевернутым текстом для заполнения пробела. Добавляется в избранное и ни каких танцев с бубном. Так то можно и сваркой поставить шероховатость.
@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
Рекомендованные сообщения
Присоединяйтесь к обсуждению
Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже. Если у вас есть аккаунт, войдите в него для написания от своего имени.
Примечание: вашему сообщению потребуется утверждение модератора, прежде чем оно станет доступным.