Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже.
Если у вас есть аккаунт, войдите в него для написания от своего имени.
Примечание: вашему сообщению потребуется утверждение модератора, прежде чем оно станет доступным.
там недаром написано root for maintenance.
В heros вы без root прав не получите доступ к системному разделу а для oem пользователей только разделы plc tnc
да и чтобы зайти в терминал вам нужен root
РеМарка
Версия 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
Рекомендованные сообщения
Присоединяйтесь к обсуждению
Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже. Если у вас есть аккаунт, войдите в него для написания от своего имени.
Примечание: вашему сообщению потребуется утверждение модератора, прежде чем оно станет доступным.