Сделай свою работу в Solidworks эффективнее

[Kelny 1 267]

1 час назад, ГЕЛА сказал:

Извиняюсь что не со всем в ту тему , но кто подскажет - при попытке использовать шераховатость из поста выше , выходит так - в знаке вместо цифр пустота.

Сбой в кодировке файла (вероятно после добавления символов сохранили в неподходящую кодировку):

https://cccp3d.ru/topic/32914-помощь-новичку-solidworks/?do=findComment&comment=1317774

 

3 часа назад, tompsongun сказал:

может кому пригодится в gtol.sym добавить можно такие значки

Всё же добавлять этот файл не очень удачная мысль, т.к. после переустановки или на компьютерах с этим файлом без правок будут отображаться тэги вместо значков.

 

Возможно лучше воспользоваться БЛОКом, тогда он будет прикреплён к каждому файлу где применён.

Или использовать штатный инструмент ШЕРОХОВАТОСТИ добавенный в ЗАМЕТКУ - в этом случае будет подчёркиваться весь знак. Если использовать ЗНАК ШЕРОХОВАТОСТИ без заметки, тогда подчёркивается только галка, что не соответствует ГОСТу.

[kkk 286]

Появилась необходимость выбирать детали в сборке по цвету.  Есть куча деталей (разных), некоторые из них сделаны по одному принципу. Раскрасил все однотипные в определенные цвета, теперь хотелось бы как-то по цвету их выбирать. Никто не встречал решения?

[tompsongun 460]

конечно, макросов много было с сохранением в ,например, пдф.

тут поддаработал - проверка на существование файла и если он есть, то окошко на сохранение с новым именем. может пригодится.

Скрытый текст

Dim swApp As Object

Public swModel As Object
Dim boolstatus As Boolean
Dim Path            As String
Public PathNoExtension As String
Dim NewFilePath     As String
Dim sFileName       As String
Dim nErrors         As Long
Dim nWarnings       As Long
Dim longstatus As Long, longwarnings As Long
Dim FSO
Public CharPos     As Long
Public ИмяМодели As String
Public ДлинаИмени As Integer
Public vyhod As Integer

Sub main()

Set swApp = _
Application.SldWorks
vyhod = 0
    
Set swModel = swApp.ActiveDoc

Set FSO = CreateObject("Scripting.FileSystemObject")

FilePath = swModel.GetPathName
PathSize = Strings.Len(FilePath)
PathNoExtension = Strings.Left(FilePath, PathSize - 6)

    CharPos = InStrRev(FilePath, "\")
    ИмяМодели = Right$(FilePath, (Len(FilePath) - CharPos))
    ИмяМодели = Left$(ИмяМодели, Len(ИмяМодели) - 7)
    ДлинаИмени = Len(ИмяМодели)

proverka:

NewFilePath = PathNoExtension & "PDF"
If FSO.FileExists(NewFilePath) = True Then
    If MsgBox("Файл с таким именем" & vbNewLine & PathNoExtension & vbNewLine & _
            "уже существует! ЗАМЕНИТЬ его?" & vbNewLine & "(кнопка *Нет* - диалог переименования)", vbYesNo + vbExclamation, "SaveAsPDF") = vbYes Then
        swModel.SaveAs3 NewFilePath, 0, 0
    Else
    UserForm1.Show
        If vyhod = 1 Then Exit Sub
    GoTo proverka
    End If
 End If
 
swModel.SaveAs3 NewFilePath, 0, 0
   Set swModel = Nothing
 End Sub

 

--------------------------------- код формы-------------------------------

Option Explicit

Private Sub UserForm_Initialize()

UserForm1.TextBox1.Text = ИмяМодели

End Sub

Public Sub кнОтмена_Click()
Unload UserForm1:    Set swModel = Nothing
vyhod = 1
Exit Sub
End Sub

Public Sub кнГотово_Click()

PathNoExtension = Strings.Left(PathNoExtension, Strings.Len(PathNoExtension) - ДлинаИмени - 1)

ИмяМодели = UserForm1.TextBox1.Text

PathNoExtension = PathNoExtension & ИмяМодели & "."
Unload UserForm1

End Sub

 

 

SaveToSTL.zip

SaveToJPGhand.zip

SaveToPDFHand.zip

[DuS 327]

2 минуты назад, tompsongun сказал:

конечно, макросов много было с сохранением в ,например, пдф.

тут поддаработал - проверка на существование файла и если он есть, то окошко на сохранение с новым именем. может пригодится.

  Показать содержимое

Dim swApp As Object

Public swModel As Object
Dim boolstatus As Boolean
Dim Path            As String
Public PathNoExtension As String
Dim NewFilePath     As String
Dim sFileName       As String
Dim nErrors         As Long
Dim nWarnings       As Long
Dim longstatus As Long, longwarnings As Long
Dim FSO
Public CharPos     As Long
Public ИмяМодели As String
Public ДлинаИмени As Integer
Public vyhod As Integer

Sub main()

Set swApp = _
Application.SldWorks
vyhod = 0
    
Set swModel = swApp.ActiveDoc

Set FSO = CreateObject("Scripting.FileSystemObject")

FilePath = swModel.GetPathName
PathSize = Strings.Len(FilePath)
PathNoExtension = Strings.Left(FilePath, PathSize - 6)

    CharPos = InStrRev(FilePath, "\")
    ИмяМодели = Right$(FilePath, (Len(FilePath) - CharPos))
    ИмяМодели = Left$(ИмяМодели, Len(ИмяМодели) - 7)
    ДлинаИмени = Len(ИмяМодели)

proverka:

NewFilePath = PathNoExtension & "PDF"
If FSO.FileExists(NewFilePath) = True Then
    If MsgBox("Файл с таким именем" & vbNewLine & PathNoExtension & vbNewLine & _
            "уже существует! ЗАМЕНИТЬ его?" & vbNewLine & "(кнопка *Нет* - диалог переименования)", vbYesNo + vbExclamation, "SaveAsPDF") = vbYes Then
        swModel.SaveAs3 NewFilePath, 0, 0
    Else
    UserForm1.Show
        If vyhod = 1 Then Exit Sub
    GoTo proverka
    End If
 End If
 
swModel.SaveAs3 NewFilePath, 0, 0
   Set swModel = Nothing
 End Sub

 

--------------------------------- код формы-------------------------------

Option Explicit

Private Sub UserForm_Initialize()

UserForm1.TextBox1.Text = ИмяМодели

End Sub

Public Sub кнОтмена_Click()
Unload UserForm1:    Set swModel = Nothing
vyhod = 1
Exit Sub
End Sub

Public Sub кнГотово_Click()

PathNoExtension = Strings.Left(PathNoExtension, Strings.Len(PathNoExtension) - ДлинаИмени - 1)

ИмяМодели = UserForm1.TextBox1.Text

PathNoExtension = PathNoExtension & ИмяМодели & "."
Unload UserForm1

End Sub

 

 

SaveToSTL.zip 16 \u041a\u0431 · 0 скачиваний

SaveToJPGhand.zip 13 \u041a\u0431 · 0 скачиваний

SaveToPDFHand.zip 12 \u041a\u0431 · 0 скачиваний

два варианта, заменить или создать с новым именем? А как же отмена?)

[tompsongun 460]

отмена= ответить "нет", появится второе окошко и там "отмена" кнопка  ))))))))))

Изменено 2 июня 2022 пользователем tompsongun

[DuS 327]

17 минут назад, tompsongun сказал:

отмена= ответить "нет", появится второе окошко и там "отмена" кнопка  ))))))))))

автор конечно хозяин, но мне кажется логичнее "да, нет, отмена" на первом окне

[brigval 704]

Еще можно добавить кнопку "Может быть" (шутка)

[Kelny 1 267]

13 минут назад, DuS сказал:

автор конечно хозяин, но мне кажется логичнее "да, нет, отмена" на первом окне

Кроме этого второе окно лишнее и неплохо бы обойтись одним со всеми вариантами.

Так понимаю, автор просто ещё не разобрался как добавить кнопок в MsgBox:

https://docs.microsoft.com/ru-ru/office/vba/language/reference/user-interface-help/msgbox-function

 

37 минут назад, tompsongun сказал:

тут поддаработал - проверка на существование файла и если он есть, то окошко на сохранение с новым именем. может пригодится.

Судя по скриншоту второе окошко создано вручную и вполне можно было бы добавить несколько кнопок с вариантами не вызывая предватиельно MsgBox.

Во втором окне учтён вариант, если ввести опять совпадающее имя? Неплохо бы в этом случае снова вернуть окно ввода нового имени и попросить исправить имя снова или перезаписать файл.

 

Возможно ,было бы проще и логичнее использовать только первое окно MsgBox с тремя кнопками (да, нет, отмена): на первую кнопку заменять, на вторую добавлять в конце следующий индекс (например, Windows добавляет число в скобках, если такой есть - следующий номер и т.д.), ну и последняя просто отменет продолжение выполнения макроса.

Изменено 2 июня 2022 пользователем Kelny

[Akimyshka 0]

Привет всем. Долго искал макрос для SolidWorks, много похожего, но конкретного не нашел.  Может кто подскажет или покажет. Суть в чем:  есть необходимость менять обозначение и наименование из имени файла, или только обозначение. Формат имени файла таков: АБВГД.000.000.000 - Втулка осевая. Как разделить на 2 части, чтобы до пробела улетала в обозначение, а вторая часть в наименование?

И еще вопрос, есть ли какой макрос сохранения спецификации в excel? Шаблоны спецификации и форматки листа нестандартные, созданные, как я понимаю "от руки". Заранее благадарю 

 

[Вадим Митрофанович 3]

18 часов назад, Akimyshka сказал:

Привет всем. Долго искал макрос для SolidWorks, много похожего, но конкретного не нашел.  Может кто подскажет или покажет. Суть в чем:  есть необходимость менять обозначение и наименование из имени файла, или только обозначение. Формат имени файла таков: АБВГД.000.000.000 - Втулка осевая. Как разделить на 2 части, чтобы до пробела улетала в обозначение, а вторая часть в наименование?

И еще вопрос, есть ли какой макрос сохранения спецификации в excel? Шаблоны спецификации и форматки листа нестандартные, созданные, как я понимаю "от руки". Заранее благадарю 

 

А в чем у вас проблема? Пишите АБВГ.00.00.000 Втулка После номера-перед втулкой пробел. Тогда Солид в свойствах сам делит на Обозначение и Наименование. Это давно известный макрос MProp для внесения свойств. Если вам надо поменять номер и название-меняйте (с таким же пробелом) и обновите свойства в макросе. В спецификацию так же автоматом оно вставляет.

7 минут назад, Вадим Митрофанович сказал:

А в чем у вас проблема? Пишите АБВГ.00.00.000 Втулка После номера-перед втулкой пробел. Тогда Солид в свойствах сам делит на Обозначение и Наименование. Это давно известный макрос MProp для внесения свойств. Если вам надо поменять номер и название-меняйте (с таким же пробелом) и обновите свойства в макросе. В спецификацию так же автоматом оно вставляет.

Кстати набор готовых макросов SWPlus включает в себя и спец и многое другое

[brigval 704]

21 час назад, Akimyshka сказал:

И еще вопрос, есть ли какой макрос сохранения спецификации в excel?

SW сам свою спецификацию сохраняет в файл MS Excel

[Akimyshka 0]

13.08.2022 в 14:37, Вадим Митрофанович сказал:

А в чем у вас проблема? Пишите АБВГ.00.00.000 Втулка После номера-перед втулкой пробел. Тогда Солид в свойствах сам делит на Обозначение и Наименование. Это давно известный макрос MProp для внесения свойств. Если вам надо поменять номер и название-меняйте (с таким же пробелом) и обновите свойства в макросе. В спецификацию так же автоматом оно вставляет.

Кстати набор готовых макросов SWPlus включает в себя и спец и многое другое

Это все понятно, суть в том, что нужно чтобы именно из имени файла, а не из свойств. Аналогично $PRP:"SW-File Name, но только 1 часть, до пробела или задаваемого символа. Мне где-то попадалось что-то подобное, но не могу вспомнить 

13.08.2022 в 16:55, brigval сказал:

SW сам свою спецификацию сохраняет в файл MS Excel

Я имел ввиду, что-то наподобие SaveAsPDF, только для спецификации и в Excel. Пробовал макрос, который сохраняет сначала в .csv и потом конвертирует его в .xls, но в данном случае спецификация получается некорректная. Возможно ли сразу в .xls  

[brigval 704]

2 часа назад, Akimyshka сказал:

Возможно ли сразу в .xls  

Скрытый текст

 

 

[Akimyshka 0]

4 минуты назад, brigval сказал:

  Скрыть содержимое

 

 

интересен именно макрос для этого 

[kkk 286]

12 часов назад, Akimyshka сказал:

интересен именно макрос для этого 

Писал коллега по работе. Для сохранения нужно встать на лист со спецификацией. Вроде, давно не пользовался. 

Экспорт специфиикации в Эксель.bmp Экспорт специфиикации в Эксель.swp

[Akimyshka 0]

9 часов назад, kkk сказал:

Писал коллега по работе. Для сохранения нужно встать на лист со спецификацией. Вроде, давно не пользовался. 

Экспорт специфиикации в Эксель.bmp 568 \u0411 · 3 скачивания Экспорт специфиикации в Эксель.swp 60 \u041a\u0431 · 1 скачивание

Спасибо большое!! А не подскажете, как сделать, чтобы шрифт не слетал при работе макроса?

[kkk 286]

8 часов назад, Akimyshka сказал:

А не подскажете, как сделать, чтобы шрифт не слетал при работе макроса?

Не подскажу, я в этом не разбираюсь. Могу только посоветовать в экселе сделать макрос для замены шрифта на нужный.  

[Akimyshka 0]

5 часов назад, kkk сказал:

Не подскажу, я в этом не разбираюсь. Могу только посоветовать в экселе сделать макрос для замены шрифта на нужный.  

Ладно, спасибо) попробую сам поковырять. Осталось, чтобы ещё кто помог с именем файла 

[brigval 704]

9 часов назад, Akimyshka сказал:

Ладно, спасибо) попробую сам поковырять. Осталось, чтобы ещё кто помог с именем файла 

Рекомендую программку Брасол, которая умеет контролировать совпадение номеров позиций в спецификации Excel и сборочном чертеже SW.

[Akimyshka 0]

20 минут назад, brigval сказал:

Рекомендую программку Брасол, которая умеет контролировать совпадение номеров позиций в спецификации Excel и сборочном чертеже SW.

Хорошо, посмотрю