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

[ak762 323]

3 hours ago, Ветерок said:

Вроде, команда Pack&Go делает всё то же самое штатными средствами? Можно сделать копии чего угодно куда угодно с каким угодно набором связанны файлов.

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

[Ветерок 2 155]

47 минут назад, ak762 сказал:

остальные имена этой же сборки

Я вообще не понимаю почему там многократно дублируются подобные вещи. Солид - что с него взять. В нём всё так.

[pps27031991 23]

1 час назад, ak762 сказал:

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

Так и должно быть. Нужные детали (которые тебе необходимы) сам  выбираешь и выбираешь папку куда сохранить

[Snake 60 757]

 

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

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

Вот эту кнопку не пробовали?

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

 

[DuS 328]

19.11.2020 в 06:27, tompsongun сказал:

поправил макрос "переименование и сохранение с чертежом", если кому надо:

SaveAsCopy 2.3.3.zip 24 \u041a\u0431 · 7 скачиваний

 

- исправил ошибку завершения макроса в панели Custom Toolbar (CAD+ Toolset)Custom Toolbar (CAD+ Toolset) - спасибо за наводку artem_cad.

- убрал ник из заголовка формы.

- исправил ошибку - как следствие исправления первой и неопытности - запоминало имя закрываемого файла в сессии солида при повторном запуске макроса и подставляло его в качестве нового имени (не обнулялась переменная).

 

ссылка на первый пост с этим макросом

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

https://cccp3d.ru/topic/6071-сделай-свою-работу-в-solidworks-эффективнее/?do=findComment&comment=1095378

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

[tompsongun 462]

@DuS , дык он же только детали, копирует и сборку БЭЗ входящих, т.е. он конверты и не скопирует. он не как "пак энд гоу". в скопированной сборке входящие останутся предыдущие (выше на странице и писали, что было б неплохо если б и входящие копировались)

[DuS 328]

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

@DuS , дык он же только детали, копирует и сборку БЭЗ входящих, т.е. он конверты и не скопирует. он не как "пак энд гоу". в скопированной сборке входящие останутся предыдущие (выше на странице и писали, что было б неплохо если б и входящие копировались)

Ясно, невнимательно прочитал описание. 

Мне в пак и го не хватает фильтра чтоб не копировал конверты. Если бы это реализовали в своем макросе было бы здорово)

[none 51]

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

Мне в пак и го не хватает фильтра чтоб не копировал конверты.

Не могу проверить, но вроде там напротив каждого файла есть чекбокс и, возможно, его можно отчекбоксить,- убрать галку напротив конверта. Если получится.

[DuS 328]

1 час назад, none сказал:

Не могу проверить, но вроде там напротив каждого файла есть чекбокс и, возможно, его можно отчекбоксить,- убрать галку напротив конверта. Если получится.

Чек бокс есть, но если большая сборка и много конвертов, то нажимать придётся очень много. Поэтому и хочу фильтр типа "не копировать конверты и входящие в них". 

[ГЕЛА 53]

Доброго всем дня. Кто подскажет почему таблица списка вырезов сварного изделия в упор не видит свойство Description которое указывает на имя конфигурации. Сия беда при попытки использовать сварные профили любезно выложенные уважаемым @tompsongun . Текстовое выражение вида Труба $PRP:"SW-Имя конфигурации" ГОСТ 8645 прекрасно читается в шаблонах профилей сварных деталей но после создания сварной детали в вычисленном выражении вместо Имени конфигурации появляется 00.

SW2020SP04/

 

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

     

 

Изменено 25 ноября 2020 пользователем ГЕЛА

[tompsongun 462]

@ГЕЛА , да моя вина. прошу прощения - не проверил. просто когда создавал шаблоны - в некоторых шаблонах указал, чтобы они брали имя конфигурации, а получается, что после применения их в детали - они берут имя конфигурации детали. 

исправлюсь. сегодня вечером или завтра. выложу.

 

[tompsongun 462]

@ГЕЛА , вот исправил вроде как. вместо того свойства-ссылки на конфиги указал ссылки на размеры, а для швеллеров ручками поправил. в катанке обнаружил, что не все конфиги высвечены, а в таблице параметров - все.

 

эти файлы сделаны в 2020 солиде!

 Швеллер 8240.SlDLFPУголок равнопол 8509.SlDLFPУголок неравнопол 8510.SlDLFPТруба прямоуг 8645.SlDLFPТруба квадрат 8639.SlDLFPРукав ПВХ МБС.SlDLFPКатанка 30136.SlDLFP

 

(жаль старые посты нельзя поправить самостоятельно - кто-нибудь с того поста качнёт и .. такая "бяка")

Изменено 25 ноября 2020 пользователем tompsongun

[ГЕЛА 53]

Огромное спасибо @tompsongun .

[Kir95 951]

Макрос - открывает чертёж выбранного компонента из сборки (если чертёж существует и находится в одной папке с выбранным компонентом). Можно выбрать сборку или деталь в дереве, в окне модели выбирается только деталь. Если ничего не выбрано - откроется чертёж активного документа. Чертёж открывается в режиме "быстрый просмотр", для редактирования ПКМ по листу -> Загрузить лист. Даже очень тяжёлые чертежи загружаются за секунды

 

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

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim longstatus As Long, longwarnings As Long
Dim SelMgr As SldWorks.SelectionMgr
Dim MyComp As SldWorks.Component2
Dim MyCompDrw As String
Dim swDocSpecification As SldWorks.DocumentSpecification
Dim sName As String

Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set SelMgr = swModel.SelectionManager
If swModel.GetType <> swDocASSEMBLY Then
    MsgBox "Чертежи компонентов можно открывать только из файла сборки"
    Exit Sub
End If
    Set MyComp = SelMgr.GetSelectedObjectsComponent4(1, 0)
    
'    If MyComp Is Nothing Then
'    MsgBox "Чтобы открыть чертеж, выбери компонент"
'    Exit Sub
'    End If
        
    If MyComp Is Nothing Then
    MyCompDrw = Left$(swModel.GetPathName, (Len(swModel.GetPathName) - 6)) & "SLDDRW"
    Else
    MyCompDrw = Left$(MyComp.GetPathName, (Len(MyComp.GetPathName) - 6)) & "SLDDRW"
     End If
    
    On Error Resume Next
    
    swModel.ClearSelection2 True
    Dim Data As SelectData
    MyComp.Select4 False, Data, False

        Set swDocSpecification = swApp.GetOpenDocSpec(MyCompDrw)

sName = swDocSpecification.FileName
swDocSpecification.DocumentType = swDocDRAWING
'swDocSpecification.ReadOnly = True
swDocSpecification.Silent = False
'swDocSpecification.DetailingMode = True
swDocSpecification.ViewOnly = True
Set swModel = swApp.OpenDoc7(swDocSpecification)
longstatus = swDocSpecification.Error
longwarnings = swDocSpecification.Warning
    swApp.ActiveDoc.Visible = True
End Sub

 

[Kir95 951]

Переделал вчерашний макрос - открывает чертёж выбранного компонента из сборки (если чертёж существует и находится в одной папке с выбранным компонентом) и, если ничего не выбрано, открывает чертеж самой сборки/детали. Чертёж открывается в режиме "быстрый просмотр", для редактирования ПКМ по листу -> Загрузить лист. Даже очень тяжёлые чертежи загружаются за секунды . Чтобы чертежи открывались в обычном режиме, можно изменить строку swDocSpecification.ViewOnly = True (закомментировать или поставить False)

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

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim longstatus As Long, longwarnings As Long
Dim SelMgr As SldWorks.SelectionMgr
Dim MyComp As SldWorks.Component2
Dim MyCompDrw As String
Dim swDocSpecification As SldWorks.DocumentSpecification
Dim Data As SelectData

Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set SelMgr = swModel.SelectionManager

If swModel.GetType = swDocDRAWING Then
    MsgBox "Чертежи компонентов можно открывать только из файла сборки или детали"
    Exit Sub
End If
    Set MyComp = SelMgr.GetSelectedObjectsComponent4(1, 0)
        
    If MyComp Is Nothing Then
    MyCompDrw = Left$(swModel.GetPathName, (Len(swModel.GetPathName) - 6)) & "SLDDRW"
    Else
    
    MyCompDrw = Left$(MyComp.GetPathName, (Len(MyComp.GetPathName) - 6)) & "SLDDRW"
    End If
    
    On Error Resume Next
    
    swModel.ClearSelection2 True
    MyComp.Select4 False, Data, False
    
    Set swDocSpecification = swApp.GetOpenDocSpec(MyCompDrw)

swDocSpecification.DocumentType = swDocDRAWING
'swDocSpecification.ReadOnly = True
swDocSpecification.Silent = True 'False
'swDocSpecification.DetailingMode = True
swDocSpecification.ViewOnly = True
Set swModel = swApp.OpenDoc7(swDocSpecification)
longstatus = swDocSpecification.Error
longwarnings = swDocSpecification.Warning
swApp.ActiveDoc.Visible = True
End Sub

 

Исходник макроса брал с солидовского форума, тот макрос открывает компонент из сборки/чертежа

https://forum.solidworks.com/thread/70087#comment-371467

Может, кому знающему VBA, интересно будет сделать более продвинутую версию на основе этого макроса

https://www.codestack.net/solidworks-api/document/drawing/open-associated-drawing/

 

 

[none 51]

4 часа назад, Kir95 сказал:

Переделал вчерашний макрос

А в чем переделка заключается? Только в том, что можно по умолчанию сделать полное открытие чертежа? У меня и так хорошо работает вчерашний макрос. Спасибо.

[nahaus 13]

1 час назад, none сказал:

А в чем переделка заключается?

В предыдущем варианте макрос не мог открывать чертеж из детали. Переделанный макрос открывает чертеж как из сборки, так и из детали.

Если я ничего не перепутал.

Изменено 5 декабря 2020 пользователем nahaus

[none 51]

11 часов назад, Kir95 сказал:

Может, кому знающему VBA, интересно будет сделать более продвинутую версию на основе этого макроса

Почитал, макрос ищет чертеж с любым именем и в другой папке тоже может найти. А почему нельзя взять этот код один в один?

4 часа назад, nahaus сказал:

Переделанный макрос открывает чертеж как из сборки, так и из детали.

Вроде это заявлено и в первоначальном варианте.

[Kir95 951]

17 часов назад, none сказал:

05.12.2020 в 11:35, Kir95 сказал:

Может, кому знающему VBA, интересно будет сделать более продвинутую версию на основе этого макроса

Почитал, макрос ищет чертеж с любым именем и в другой папке тоже может найти. А почему нельзя взять этот код один в один?

А кто сказал, что нельзя?) Здесь немного перемешались вопросы/ответы с соседней ветки, там я этот макрос и предлагал использовать, но у макроса одна особенность - вместе с чертежом компонента открывается чертёж верхней сборки. Можно доделать макрос, чтобы чертежи компонентов открывать из чертежа сборки (с 2018 солида можно так и без макроса делать). Но моего basic english'а для этого не хватит, нужны знания visual basic )

[malvi.dp 293]

Добрый день, коллеги!
Суть в следующем:
В сборку вставляется файл детали (Н.sldprt), он лежит в определенной папке на диске (D:\WORK).
Далее этот файл сопрягается по исходной точке (с исходной точкой сборки).
Далее, вставленный файл делается виртуальным.
Этому файлу принудительно (вручную в окошке) назначается определенная масса (она может быть разной).

Дело в том, что эту процедуру мне приходится делать практически в каждой сборке и хотелось бы автоматизировать этот процесс.
Если это не займет много времени, может кто сподобится написать макрос?