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

[SWX 94]

1 hour ago, DuS said:

моих умений хватит только на запись макроса))

Из текста копипастом новый макрос хватит знаний создать? :)

Макрос создаёт состояние отображения - "Имя конфигурации -Обработка" и красит элементы сборки в красный цвет (можно поменять в пути материала). Не красит элементы сборки, которые распространятся в деталь

Spoiler

Option Explicit
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swConf As SldWorks.Configuration
    Dim swModelDocExt As SldWorks.ModelDocExtension
    Dim swSelectionMgr As SldWorks.SelectionMgr
    Dim swFeat As SldWorks.Feature
    Dim featAssy As SldWorks.Feature
    Dim swRenderMaterial As SldWorks.RenderMaterial
    Dim materialName As String
    Dim dpNames() As String
    Dim dpName As String
    Dim m1 As Long
    Dim m2 As Long
    Dim status As Boolean
    
Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
        If swModel.GetType <> swDocASSEMBLY Then
            MsgBox ("You can only apply colors to assembly features.")
        Exit Sub
        End If
    Set swModelDocExt = swModel.Extension
        swModelDocExt.LinkedDisplayState = True
        
    Set swConf = swModel.GetActiveConfiguration
        materialName = "C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\data\graphics\Materials\solid\red.p2m"
    Set swRenderMaterial = swModelDocExt.CreateRenderMaterial(materialName)
    
            dpNames = swConf.GetDisplayStates
        dpName = swConf.Name & "-Обработка" '& "-" & Date & "/" & Time
        status = swConf.CreateDisplayState(dpName)

    Set swFeat = swModel.FirstFeature
    
    While Not swFeat Is Nothing
    
'            Debug.Print "Assy Feature " + swFeat.GetTypeName

        If swFeat.GetTypeName = "Chamfer" _
        Or swFeat.GetTypeName = "Fillet" _
        Or swFeat.GetTypeName = "Cut" _
        Or swFeat.GetTypeName = "RevCut" _
        Or swFeat.GetTypeName = "SketchHole" _
        Or swFeat.GetTypeName = "SweepCut" _
        Or swFeat.GetTypeName = "HoleWzd" _
        Or swFeat.GetTypeName = "LPattern" _
        Or swFeat.GetTypeName = "CirPattern" _
        Or swFeat.GetTypeName = "MirrorPattern" _
        Or swFeat.GetTypeName = "TablePattern" _
        Or swFeat.GetTypeName = "SketchPattern" Then

        status = swModelDocExt.SelectByID2(swFeat.Name, "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
        Set swSelectionMgr = swModel.SelectionManager
        Set featAssy = swSelectionMgr.GetSelectedObject6(1, -1)
        
        status = swRenderMaterial.AddEntity(featAssy)
        status = swModelDocExt.AddDisplayStateSpecificRenderMaterial(swRenderMaterial, 1, dpNames, m1, m2)
        
        End If
        Set swFeat = swFeat.GetNextFeature
    Wend
'    swModel.ForceRebuild3 True
    swModel.ClearSelection2 True
    Set swModel = Nothing
End Sub

 

[DuS 325]

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

Из текста копипастом новый макрос хватит знаний создать? :)

Макрос создаёт состояние отображения - "Имя конфигурации -Обработка" и красит элементы сборки в красный цвет (можно поменять в пути материала). Не красит элементы сборки, которые распространятся в деталь

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

Option Explicit
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swConf As SldWorks.Configuration
    Dim swModelDocExt As SldWorks.ModelDocExtension
    Dim swSelectionMgr As SldWorks.SelectionMgr
    Dim swFeat As SldWorks.Feature
    Dim featAssy As SldWorks.Feature
    Dim swRenderMaterial As SldWorks.RenderMaterial
    Dim materialName As String
    Dim dpNames() As String
    Dim dpName As String
    Dim m1 As Long
    Dim m2 As Long
    Dim status As Boolean
    
Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
        If swModel.GetType <> swDocASSEMBLY Then
            MsgBox ("You can only apply colors to assembly features.")
        Exit Sub
        End If
    Set swModelDocExt = swModel.Extension
        swModelDocExt.LinkedDisplayState = True
        
    Set swConf = swModel.GetActiveConfiguration
        materialName = "C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\data\graphics\Materials\solid\red.p2m"
    Set swRenderMaterial = swModelDocExt.CreateRenderMaterial(materialName)
    
            dpNames = swConf.GetDisplayStates
        dpName = swConf.Name & "-Обработка" '& "-" & Date & "/" & Time
        status = swConf.CreateDisplayState(dpName)

    Set swFeat = swModel.FirstFeature
    
    While Not swFeat Is Nothing
    
'            Debug.Print "Assy Feature " + swFeat.GetTypeName

        If swFeat.GetTypeName = "Chamfer" _
        Or swFeat.GetTypeName = "Fillet" _
        Or swFeat.GetTypeName = "Cut" _
        Or swFeat.GetTypeName = "RevCut" _
        Or swFeat.GetTypeName = "SketchHole" _
        Or swFeat.GetTypeName = "SweepCut" _
        Or swFeat.GetTypeName = "HoleWzd" _
        Or swFeat.GetTypeName = "LPattern" _
        Or swFeat.GetTypeName = "CirPattern" _
        Or swFeat.GetTypeName = "MirrorPattern" _
        Or swFeat.GetTypeName = "TablePattern" _
        Or swFeat.GetTypeName = "SketchPattern" Then

        status = swModelDocExt.SelectByID2(swFeat.Name, "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
        Set swSelectionMgr = swModel.SelectionManager
        Set featAssy = swSelectionMgr.GetSelectedObject6(1, -1)
        
        status = swRenderMaterial.AddEntity(featAssy)
        status = swModelDocExt.AddDisplayStateSpecificRenderMaterial(swRenderMaterial, 1, dpNames, m1, m2)
        
        End If
        Set swFeat = swFeat.GetNextFeature
    Wend
'    swModel.ForceRebuild3 True
    swModel.ClearSelection2 True
    Set swModel = Nothing
End Sub

 

Да, скопипастить я могу) Могу даже иконку нарисовать) 

[DuS 325]

11.02.2022 в 12:45, SWX сказал:

Из текста копипастом новый макрос хватит знаний создать? :)

Макрос создаёт состояние отображения - "Имя конфигурации -Обработка" и красит элементы сборки в красный цвет (можно поменять в пути материала). Не красит элементы сборки, которые распространятся в деталь

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

Option Explicit
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swConf As SldWorks.Configuration
    Dim swModelDocExt As SldWorks.ModelDocExtension
    Dim swSelectionMgr As SldWorks.SelectionMgr
    Dim swFeat As SldWorks.Feature
    Dim featAssy As SldWorks.Feature
    Dim swRenderMaterial As SldWorks.RenderMaterial
    Dim materialName As String
    Dim dpNames() As String
    Dim dpName As String
    Dim m1 As Long
    Dim m2 As Long
    Dim status As Boolean
    
Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
        If swModel.GetType <> swDocASSEMBLY Then
            MsgBox ("You can only apply colors to assembly features.")
        Exit Sub
        End If
    Set swModelDocExt = swModel.Extension
        swModelDocExt.LinkedDisplayState = True
        
    Set swConf = swModel.GetActiveConfiguration
        materialName = "C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\data\graphics\Materials\solid\red.p2m"
    Set swRenderMaterial = swModelDocExt.CreateRenderMaterial(materialName)
    
            dpNames = swConf.GetDisplayStates
        dpName = swConf.Name & "-Обработка" '& "-" & Date & "/" & Time
        status = swConf.CreateDisplayState(dpName)

    Set swFeat = swModel.FirstFeature
    
    While Not swFeat Is Nothing
    
'            Debug.Print "Assy Feature " + swFeat.GetTypeName

        If swFeat.GetTypeName = "Chamfer" _
        Or swFeat.GetTypeName = "Fillet" _
        Or swFeat.GetTypeName = "Cut" _
        Or swFeat.GetTypeName = "RevCut" _
        Or swFeat.GetTypeName = "SketchHole" _
        Or swFeat.GetTypeName = "SweepCut" _
        Or swFeat.GetTypeName = "HoleWzd" _
        Or swFeat.GetTypeName = "LPattern" _
        Or swFeat.GetTypeName = "CirPattern" _
        Or swFeat.GetTypeName = "MirrorPattern" _
        Or swFeat.GetTypeName = "TablePattern" _
        Or swFeat.GetTypeName = "SketchPattern" Then

        status = swModelDocExt.SelectByID2(swFeat.Name, "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
        Set swSelectionMgr = swModel.SelectionManager
        Set featAssy = swSelectionMgr.GetSelectedObject6(1, -1)
        
        status = swRenderMaterial.AddEntity(featAssy)
        status = swModelDocExt.AddDisplayStateSpecificRenderMaterial(swRenderMaterial, 1, dpNames, m1, m2)
        
        End If
        Set swFeat = swFeat.GetNextFeature
    Wend
'    swModel.ForceRebuild3 True
    swModel.ClearSelection2 True
    Set swModel = Nothing
End Sub

 

Что-то  макрос у меня не заработал( Что я сделал не так?

Цвет в сборке.swp

[DuS 325]

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

Что-то  макрос у меня не заработал( Что я сделал не так?

Цвет в сборке.swp 28 \u041a\u0431 · 0 скачиваний

Починил, вопрос снимается.

[SWX 94]

39 minutes ago, DuS said:

Починил, вопрос снимается.

что было, путь к файлу внешнего вида другой?

[SWX 94]

54 minutes ago, DuS said:

Починил, вопрос снимается

Перед вставкой текста макро нужно удалять всё в окне макроса, который солид создаёт по умолчанию. У тебя там лишняя строка осталась (самая верхняя), удали и всё заработает

[DuS 325]

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

Перед вставкой текста макро нужно удалять всё в окне макроса, который солид создаёт по умолчанию. У тебя там лишняя строка осталась (самая верхняя), удали и всё заработает

Путь к файлу другой и со выставкой текста ошибся. 

Вопрос, а как сделать чтобы внешний вид брался из папки с макросом? 

Сейчас макрос такой :

Цвет обработки в сборке

https://disk.yandex.ru/d/e9ehV4so9nh3 FQ

[Snake 60 681]

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

Цвет обработки в сборке

https://disk.yandex.ru/d/e9ehV4so9nh3 FQ

Ничего не найдено

Владелец удалил файлы либо закрыл к ним доступ или в ссылке опечатка.

[DuS 325]

12 минут назад, Snake 60 сказал:

Ничего не найдено

Владелец удалил файлы либо закрыл к ним доступ или в ссылке опечатка.

https://yadi.sk/d/e9ehV4so9nh3FQ
а так?

[Snake 60 681]

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

а так?

А так гуд

[Maximis 0]

Доброго времени суток! Я начинающий солидворкер)

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

Но непонятно, как сделать 2 и более инструмента в одном выпадающем списке? Из тех что есть по умолчанию при установке солида, пример: вкладка эскиз - далее пункт "эскиз" содержит 2 инструмента: эскиз и 3д эскиз. То есть они не отдельно а в одном выпадающем списке. Как мне тоже делать такие штуковина? Они экономят место. Но я как ни извращался с клавиатурой и с мышкой, никак не получается. Если это возможно, подскажите, как это сделать. Спасибо

[Snake 60 681]

По-моему, нет такой возможности. Хотя может я не знаю про это, пусть коллеги поправят если я не прав.

[Sturmann 30]

12.02.2022 в 16:35, DuS сказал:

https://yadi.sk/d/e9ehV4so9nh3FQ
а так?

Вы написали макрос который добавляет внешний вид к элементу в дереве детали?

[ak762 308]

2 hours ago, Maximis said:

То есть они не отдельно а в одном выпадающем списке. Как мне тоже делать такие штуковина?

а туда еще другие иконки добавить нельзя, а  ненужные потом удалить?

[DuS 325]

16 минут назад, Sturmann сказал:

Вы написали макрос который добавляет внешний вид к элементу в дереве детали?

Нет, я его скопировал из поста выше. И он работает со сборкой, а не с деталью. 

[Sturmann 30]

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

Нет, я его скопировал из поста выше. И он работает со сборкой, а не с деталью. 

а все перечисленные элементы тоже относятся к сборке?

 

[DuS 325]

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

а все перечисленные элементы тоже относятся к сборке?

 

да

[Sturmann 30]

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

да

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

а если открыть деталь отдельно то она не будет с новым цветом?

[Maximis 0]

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

а туда еще другие иконки добавить нельзя, а  ненужные потом удалить?

Я не против и такого решения, но некоторые иконки не помещаются и приходится наживать двойную стрелку чтобы открыть непоместившиеся инструменты, а потом выбирать. Как тогда быстро переходить к ним? Может что-то с колёсиком мыши? Но так вроде не получается

[SWX 94]

On 2/12/2022 at 12:01 PM, DuS said:

как сделать чтобы внешний вид брался из папки с макросом? 

Сейчас макрос такой

Закомментируй абсолютный путь к материалу, а ниже добавь новые строки

Spoiler

'        materialName = "C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\data\graphics\Materials\solid\red.p2m"
    Dim pathname As String
    pathname = swApp.GetCurrentMacroPathFolder
'        Debug.Print pathname
    materialName = pathname + "\red.p2m"

 

5 hours ago, Sturmann said:

макрос который добавляет внешний вид к элементу в дереве детали?

для раскраски элементов детали макрос не нужен, это стандартная фича солида