Отображение элементов в дереве постоения

[jon_nik 10]

Попала мне модель пружины, из макроса SpringSW, в которой скрыты элементы дерева построения

Не понимаю как это сделано( скрыто) и как отобразить 

[brigval 689]

14 часов назад, jon_nik сказал:

Попала мне модель пружины, из макроса SpringSW, в которой скрыты элементы дерева построения

Не понимаю как это сделано( скрыто) и как отобразить 

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

[jon_nik 10]

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

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

Взял его из этого комментария

 

Изменено 2 сентября 2022 пользователем jon_nik

[brigval 689]

02.09.2022 в 08:19, jon_nik сказал:

Взял его из этого комментария

Там нету макроса SpringSW, о котором Вы написали.

[Timi 15]

@brigval Есть. Надо щелкнуть на ссылку, где А в синем квадрате, откроется 242 страница, чуть вверх промотать.

[Kelny 1 234]

01.09.2022 в 16:59, jon_nik сказал:

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

Не понимаю как это сделано( скрыто) и как отобразить 

Скрыто макросом так:

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

Option Explicit
Public Enum swUIStates_e
    swIsHiddenInFeatureMgr = 1
End Enum

Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swFeat As SldWorks.Feature
Dim bRet As Boolean

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
Set swFeat = swSelMgr.GetSelectedObject5(1)

Debug.Print "Feature = " & swFeat.Name
Debug.Print "  Type     = " & swFeat.GetTypeName
Debug.Print "  Hidden   = " & swFeat.GetUIState(swIsHiddenInFeatureMgr)

swFeat.SetUIState swIsHiddenInFeatureMgr, True

swModel.EditRebuild3

Debug.Print "  Hidden   = " & swFeat.GetUIState(swIsHiddenInFeatureMgr)

End Sub

 

https://help.solidworks.com/2010/english/api/sldworksapi/hide_feature_in_featuremanager_design_tree_example_vb.htm

 

Отобразить можно так:

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

Public Enum swUIStates_e
swIsHiddenInFeatureMgr = 1
End Enum

Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swFeat As SldWorks.Feature
Dim bRet As Boolean
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swFeatMgr = swModel.FeatureManager
    
swFeatureCount = swFeatMgr.GetFeatureCount(True) 'Количество элементов в дереве проектирования
swFeatures = swFeatMgr.GetFeatures(True) 'Элементы дерева проектирования
    
For i = 0 To swFeatureCount - 1
Set swFeat = swFeatures(i)
Debug.Print "i = " & i
Debug.Print "Feature = " & swFeat.Name
Debug.Print "  Type     = " & swFeat.GetTypeName
Debug.Print "  HiddenBefore   = " & swFeat.GetUIState(swIsHiddenInFeatureMgr)
swFeat.SetUIState swIsHiddenInFeatureMgr, False
Debug.Print "  HiddenAfter   = " & swFeat.GetUIState(swIsHiddenInFeatureMgr)
Next i

swModel.EditRebuild3

End Sub

 

 

Изменено 5 сентября 2022 пользователем Kelny

[jon_nik 10]

@Kelny огонь! спасибо большое!