【CATIA的二次开发38】对象Selection交互选择部分方法介绍01

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

一、Selection对象属性和方法

二、方法分类概览

分类	方法	核心功能
选择集管理	Add, Remove, Remove2, Clear, GetItem, Item, Item2	增删查操作
交互选择	IndicateOrSelectElement2D, IndicateOrSelectElement3D, SelectElement2, SelectElement3, SelectElement4	用户交互选择
高级查询	Search, FindObject, FilterCorrespondence	元素筛选
剪贴板操作	Copy, Cut, Paste, PasteLink, PasteSpecial	数据转移
元素操作	Delete	删除元素

三、核心方法详解与对比

1、选择集管理方法

方法	参数/返回值	应用场景	版本演变
Add	(Item As AnyObject)	以编程方式添加元素到选择集	所有版本
Remove	(Index As Integer)	按索引移除元素 (≤32,767个元素)	早期版本(V5R19前)
Remove2	(Index As Long)	支持超大型选择集(>32,767元素)	V5R20+
Clear	-	清空整个选择集	所有版本
Item	(Index As Integer) → SelectionItem	按整数索引访问元素	早期版本
Item2	(Index As Long) → SelectionItem	支持长整型索引访问	V5R20+
GetItem	(Index As Long) → SelectionItem	功能同Item2，命名更清晰	V5R25+

' 添加元素到选择集
Sel.Add Part1.HybridBodies.Item("Sketch.1")

' 安全移除元素(V5R20+)
If Sel.Count2 > 1000 Then
Sel.Remove2 1  ' 移除第一个元素
End If

' 遍历大型选择集
For i = 1 To Sel.Count2
Dim selItem As SelectionItem
Set selItem = Sel.GetItem(i)  ' 或 Item2(i)
Debug.Print selItem.Value.Name
Next

2、交互选择方法

方法	关键参数	特点	版本
SelectElement2	(Filter, Message[, MultiSelectionMode])	基础交互选择，支持单选	V5R16+
SelectElement3	增加MultiSelectionMode参数	支持多选模式	V5R20+
SelectElement4	增加SelectionBeforeActivation参数	预选高亮支持	V5R25+
IndicateOrSelectElement2D	(Message[, Filter])	工程图环境专用	所有版本
IndicateOrSelectElement3D	(Message[, Filter])	3D环境专用	所有版本

多选模式常量：

catMultiSelTriggWhenUserValidatesSelection  ' 用户确认时触发
catMultiSelTriggImmediately                ' 即时触发

' 单选示例 (V5R16+)
Dim filter(0) As String
filter(0) = "Plane"
Sel.SelectElement2 filter, "请选择一个平面", False

' 多选示例 (V5R20+)
Sel.SelectElement3 filter, "请选择多个平面", True, , , , catMultiSelTriggImmediately

' 工程图选择
Sel.IndicateOrSelectElement2D "请选择视图", Array("DrawingView")

3、高级查询方法

方法	参数	功能	典型场景
Search	(Query As String)	根据查询字符串筛选元素	批量选择特定属性元素
FindObject	(Name As String) → AnyObject	按名称查找元素	快速定位已知名称元素
FilterCorrespondence	(FilterType, Tolerance)	基于几何对应性过滤	对称设计/模具匹配

' 选择所有直径>10mm的孔
Sel.Search "Diameter > 10mm AND Type=Hole"

' 选择名称包含"Bolt"的零件
Sel.Search "Name ~ '*Bolt*'"

四、核心方法详解

1、SelectElement2方法

在CATIA VBA开发中，Selection.SelectElement2 是交互式选择的核心方法，它会暂停代码执行并弹出选择对话框，等待用户完成选择操作。
以下是详细解析和用法指南：

• 方法语法

  Selection.SelectElement2( _
      iFilterTypeArray As Variant, _
      iMessage As String, _
      iMultiSelectionMode As Boolean, _
      [Optional] iSelectionBeforeActivate As Boolean, _
      [Optional] iOkButtonNeeded As Boolean, _
      [Optional] iUndoButtonNeeded As Boolean, _
      [Optional] iLockSelection As Boolean, _
      [Optional] iHiddenElementSelection As Boolean, _
      [Optional] iForceSelectFromDocument As Boolean _
  ) As Boolean
  

  • 关键参数详解

  参数名	类型	说明	默认值
  iFilterTypeArray	Array	允许选择的对象类型数组（如 Array(“Face”, “Edge”)）<