寻求可折叠全部Geometrical Sets的CATIA宏解决方案

以下是可自动折叠零件中所有几何集的VBA宏，你可以直接运行它，也可以把核心代码整合到现有创建几何集的宏末尾，实现创建后自动折叠：

Sub CollapseAllGeometricalSets()
    Dim partDocument As PartDocument
    Dim part As Part
    Dim hybridBodies As HybridBodies
    Dim hybridBody As HybridBody
    
    ' 获取当前活动的零件文档
    Set partDocument = CATIA.ActiveDocument
    Set part = partDocument.Part
    Set hybridBodies = part.HybridBodies
    
    ' 遍历所有几何集并设置为折叠状态
    For Each hybridBody In hybridBodies
        hybridBody.IsExpanded = False
    Next
    
    ' 更新零件显示
    part.Update
End Sub

关键说明： #

• CATIA中的几何集对应VBA对象HybridBody，通过IsExpanded属性可控制展开/折叠状态，设为False即为折叠。
• 若在装配环境下使用，需补充遍历装配组件的逻辑，核心折叠代码保持不变。
• 将这段代码追加到你现有宏的末尾，就能在创建完几何集后自动执行折叠，无需手动操作。

内容的提问来源于stack exchange，提问作者Nadisty