【CATIA的二次开发34】对象Selection概述

原创

已于 2025-06-23 14:09:33 修改 · 770 阅读

28 ·

CC 4.0 BY-SA版权

文章标签：

#CATIA的VBA二次开发 #CATIA #VBA #CATIA宏 #CATIA VBA

于 2025-06-23 14:08:50 首次发布

在CATIA V5的VBA开发中，Selection对象是用户交互的核心组件，用于管理用户在图形区域或特征树中的选择操作。
Selection 对象是 CATIA VBA 中的中央交互枢纽，充当用户界面与程序逻辑之间的桥梁。
它代表当前在图形区域或特征树中被选中的元素集合，是自动化操作的基础。

一、Selection对象核心特征

动态集合：实时反映用户或程序选择状态
多态容器：可包含不同类型元素（几何特征、面、边、产品组件等）
上下文感知：自动识别当前工作环境（零件设计、装配、草图等）
双向通道：既接收用户输入，也控制程序输出

二、Selection对象对象结构图和层次关系

三、Selection对象属性与方法

四、Selection对象

1、获取Selection对象

Dim CATIA As Application
Set CATIA = GetObject(, "CATIA.Application")

Dim sel As Selection
Set sel = CATIA.ActiveDocument.Selection

2、常用对象类型判断

Select Case elem.Type
    Case "Part"
        Dim part As Part
        Set part = elem.Value
    Case "HybridBody"
        Dim body As HybridBody
        Set body = elem.Value
    Case "Face"
        Dim face As Face
        Set face = elem.Value
    Case "Sketch"
        Dim sketch As Sketch
        Set sketch = elem.Value
End Select

五、Selection 对象在 CATIA 生态系统中的定位

六、Selection 对象发展历程

1、Selection 对象版本演变史

2、各版本里程碑变化详解

CATIA V5 基础阶段 (R1-R10: 1998-2001)

版本	关键变化	影响
R1 (1998)	首次引入Selection对象	基础选择功能，仅支持简单元素选择
R3 (1999)	添加Add/Clear方法	实现编程控制选择集
R8 (2001)	增强Search方法	支持正则表达式搜索

' R8 典型代码
Dim sel As Selection
Set sel = CATIA.ActiveDocument.Selection

' 基础搜索功能
sel.Search "Part", True

CATIA V5 成熟阶段 (R11-R18: 2002-2005)

版本	关键变化	影响
R12 (2002)	引入SelectElement方法	首次支持交互式选择对话框
R15 (2004)	添加VisProperties属性	实现可视化控制
R17 (2005)	增强装配选择支持	完善ProductDocument选择

' R15 新特性：可视化控制
sel.VisProperties.SetRealColor 255, 0, 0, 200  ' 设置红色

CATIA V5-6 转型阶段 (R19-R25: 2006-2013)

版本	关键变化	影响
R19 (2006)	引入Count2/Item2	支持隐藏元素访问
R21 (2011)	添加SelectElement3	多步骤选择流程
R23 (2013)	引入SelectElement4	完全自定义选择对话框

' R19 新特性：隐藏元素访问
If sel.Count2 > sel.Count Then
    MsgBox "包含隐藏元素：" & sel.Count2 - sel.Count
End If

' R23 新特性：自定义选择对话框
sel.SelectElement4 filters, "自定义标题", "请选择元素", True, catMultiSelTriggWhenUserValidatesSelection

3DEXPERIENCE 时代 (2014-至今)

版本	关键变化	影响
R2016x (2016)	云环境适配	支持云端选择同步
R2020x (2020)	增强多线程支持	安全并发选择操作
R2023x (2023)	AI辅助选择预测	智能选择建议

' R2023x AI辅助选择
If sel.AIPredictedType <> "" Then
    sel.Filter = sel.AIPredictedType  ' 应用AI预测类型
End If

核心功能演进对比

选择方法进化史

方法	引入版本	核心增强	典型应用场景
SelectElement	R12 (2002)	基础交互选择	简单单选操作
SelectElement2	R16 (2004)	多选支持	标准多元素选择
SelectElement3	R21 (2011)	多步骤流程	复杂向导式操作
SelectElement4	R23 (2013)