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

[Kelny 1 239]

22 часа назад, Alex1986 сказал:

а откуда Вы этот стек знаете?

Какие еще есть?

Может опубликуете весь список?

Справка животворящая:

http://help.solidworks.com/2010/russian/solidworks/sldworks/legacyhelp/sldworks/detailing/hidd_richtool_stack.htm

http://help.solidworks.com/2010/russian/solidworks/sldworks/legacyhelp/sldworks/detailing/hidd_note_edit_text.htm

Ну и смекалка.

[Alex1986 111]

@Kelny это только по заметке ориентироваться?

не очень информативно...

[Kelny 1 239]

23 минуты назад, Alex1986 сказал:

это только по заметке ориентироваться?

не очень информативно...

Достаточно, что бы получить больше чем ничего: http://cccp3d.ru/topic/10358-скрытые-возможности-sw/?do=findComment&comment=827867

 

[Leon 433]

12 часа назад, Timi сказал:

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

Да, спасибо, закрутился и не проверил.

12 часа назад, Kelny сказал:

Практика показывает, что после того как скачали с оф.сайта лучше хранить софт у себя

Kelny, согласен, так и делаю. Просто не хотелось сторонний софт постить. А давать ссылку на левые ресурсы тоже как-то неправильно. кто знает, чего они туда поднапихать могли.

[tompsongun 452]

Подскажите, пожалуйста, есть ли быстрый способ или макрос для подсчёта выбранного количества деталей в сборке. у меня N-количество винтов в сборке, допустим М3, разной длины. я вручную их выделил в дереве и .. тыкая пальцем в монитор считаю ))

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

[fox1001 787]

@tompsongun Визуализация сборки: http://help.solidworks.com/2017/russian/solidworks/sldworks/hidd_visualization_tool_help.htm

[tompsongun 452]

Благодарю Вас! Интересно.

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

Алгоритм знаю, но абсолютно не хватает познаний в программировании. Запускаем макрос, он проверяет сборка ли это, появляется окошко, не перехватывающее фокус на себя, чтобы можно было выделять детали в дереве (в области построения), выделил деталь (или несколько) - в ячейку накопления плюсануло, ожидание выбора, если в окошке нажать крестик - цикл завершается.

 

или другой вариант: выделил всё нужное и вызвал макрос он посчитал. Незнаю функции присваивания при выборе детали. Может подскажете куда копать (возможно докопаюсь через год )) ) .SelectID наверно надо использовать, функцию Get, но что ею получать, и окошко как сделать, чтобы оно фокус на себя не забирало.

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

Option Explicit
Dim swApp As Object
Dim Part As Object
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swSelMgr As SldWorks.SelectionMgr
Dim errors As Long
Dim warnings As Long
Dim selCount As Integer

Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swModelDocExt = swModel.Extension
    Set swSelMgr = swModel.SelectionManager
    ' Вызов подпрограммы подсчёта
    QuantitySelectedParts
    
End Sub

Sub QuantitySelectedParts()

    selCount = 0
    
    swModelDocExt.SelectAll
    
    
    selCount = swSelMgr.GetSelectedObjectCount2(-1)
    
    
    Select Case swModel.GetType
    Case swDocASSEMBLY
        MsgBox "Количество выбранных деталей = " & selCount
    Case Else
        MsgBox "Это не сборка"
    End Select
    
End Sub

Hide  

[Kir95 950]

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

или другой вариант: выделил всё нужное и вызвал макрос он посчитал.

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

Option Explicit
 Dim swApp As Object
 Dim Part As Object
 Dim swModel As SldWorks.ModelDoc2
 Dim swModelDocExt As SldWorks.ModelDocExtension
 Dim swSelMgr As SldWorks.SelectionMgr
 Dim errors As Long
 Dim warnings As Long
 Dim selCount As Integer
 Dim swComp As SldWorks.Component2
Sub main()
     Set swApp = Application.SldWorks
     Set swModel = swApp.ActiveDoc
     Set swModelDocExt = swModel.Extension
     Set swSelMgr = swModel.SelectionManager
     ' Вызов подпрограммы подсчёта
    QuantitySelectedParts
End Sub
Sub QuantitySelectedParts()
    selCount = 0
'     swModelDocExt.SelectAll
    Set swComp = swSelMgr.GetSelectedObject6(1, -1)
    selCount = swSelMgr.GetSelectedObjectCount2(-1)
    Select Case swModel.GetType
    Case swDocASSEMBLY
        MsgBox "Количество выбранных деталей = " & selCount
    Case Else
         MsgBox "Это не сборка"
     End Select
 End Sub

 

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

[tompsongun 452]

))) пытааался

[alek77 207]

6 часов назад, tompsongun сказал:

Подскажите, пожалуйста, есть ли быстрый способ или макрос для подсчёта выбранного количества деталей в сборке. у меня N-количество винтов в сборке, допустим М3, разной длины. я вручную их выделил в дереве и .. тыкая пальцем в монитор считаю ))

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

попробуйте, делал для себя под sw2017

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

ComponentInfo.zip

[fox1001 787]

когда "приклеиваю" к размеру отклонение формы, то получаю вот это:

 

а нужно вот это:

 

кто нить знает как бороть такой недуг солида?

[tompsongun 452]

Благодарю Вас, @alek77 !! Клёво! 

Она реализует функцию "выделить идентичные компоненты" + выдачей их количества. Хорошо!

Внутренности ещё не смотрел, но, уверен, для себя найду полезное на будущее.

 

 

------------------------------------------------

 

@fox1001, может применить "группировать"?  правда хорошо совместить линии придётся, чтоб без ступенек.

Изменено 21 марта 2018 пользователем tompsongun

[fox1001 787]

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

может применить "группировать"?

пока ничего другого не нашел. но это ведь костылик. очень похоже на глюк солида. 

[Snake 60 684]

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

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

Option Explicit
 Dim swApp As Object
 Dim Part As Object
 Dim swModel As SldWorks.ModelDoc2
 Dim swModelDocExt As SldWorks.ModelDocExtension
 Dim swSelMgr As SldWorks.SelectionMgr
 Dim errors As Long
 Dim warnings As Long
 Dim selCount As Integer
 Dim swComp As SldWorks.Component2
Sub main()
     Set swApp = Application.SldWorks
     Set swModel = swApp.ActiveDoc
     Set swModelDocExt = swModel.Extension
     Set swSelMgr = swModel.SelectionManager
     ' Вызов подпрограммы подсчёта
    QuantitySelectedParts
End Sub
Sub QuantitySelectedParts()
    selCount = 0
'     swModelDocExt.SelectAll
    Set swComp = swSelMgr.GetSelectedObject6(1, -1)
    selCount = swSelMgr.GetSelectedObjectCount2(-1)
    Select Case swModel.GetType
    Case swDocASSEMBLY
        MsgBox "Количество выбранных деталей = " & selCount
    Case Else
         MsgBox "Это не сборка"
     End Select
 End Sub

 

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

Можно немножко по другому: В сборке Вставка -> Примечание -> Позиция В свойствах позиции выпадающий список Текст позиции: Количество. Далее ткнуть на нужную деталь, только смотрите, что бы не стояло скрытие примечаний, иначе ничего не увидите :)

[ILL 241]

@fox1001 , зачем в двух темах спросил?? Вроде уже давно не "Новичок"..

[Kelny 1 239]

59 минут назад, ILL сказал:

"Новичок"..

За новичка, тем более с кавычками в текущих условиях и ответить можно... Аура у него странная в последние дни.

[tompsongun 452]

По поводу подсчёта количества выделенных деталей 

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

попробуйте, делал для себя под sw2017

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

ComponentInfo.zip

Описание: Показывает сводную информацию (такие как Обозначение, Наименование, Имя Конфигурациии, Массу, Путь до файла) количество (в сборке, не решенных, погашенных, конвертов, общее) идентичных компонентов после выбора детали в дереве построения или графической области. При этом автоматически выделяются все идентичные компоненты. После закрытия окошка макроса выделение сохраняется. Так сказать это усовершенствованная одноименная команда солида.

 

---------------------------------

в дополнение к нему мне мне подсобил  Artem Taturevych с сайта https://forum.solidworks.com/message/837766 , где мне пришлось зарегится под очередным псевдонимом ))

дополнил его макрос иконкой. Публикую с его личного разрешения.

CountSelectedComponents.swp.zip

Описание: 

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

 

---------------------------------

буду пользоваться и тем и другим )) 

[fox1001 787]

13 часа назад, ILL сказал:

зачем в двух темах спросил??

поторопился. не обратил внимания в какой теме сижу. ну а после кнопки "отправить ответ" уже поздно пить баржом. запостил и запостил. машу каслом не испортишь.

13 часа назад, Kelny сказал:

Аура у него странная в последние дни.

ага. я тоже заметил

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

 

[ILL 241]

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

ну а после кнопки "отправить ответ" уже поздно пить баржом. запостил и запостил

 

Можно нажать изменить и стереть текст.. Пока 15 минут не прошло..

[R2D2_ 71]

@Leon , спасибо за обновленный SaveAsPDF. Все отлично, но как всегда есть ложка дёгтя  При сохранении сборок СП сохраняется в той же ориентации листа, что и чертеж. Следовательно, если чертеж на альбомном А3, то и СП сохраняется на альбомных А4. Можно как то это побороть? Или это причуды самого PDFCreator'a?