【CATIA的二次开发35】对象Selection部分属性介绍

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

一、Selection对象属性和方法

二、属性分类概览

属性	类型	作用域	主要用途
Application	Object	全局	获取当前CATIA应用实例
Count	Integer/Long	集合对象	返回选中元素的个数（早期版本用）
Count2	Long	集合对象	替代Count，支持更大范围（V5R20+）

三、核心属性详解与对比

1、Application属性

在 CATIA VBA 开发中，Selection.Application 属性是一个关键的基础属性，它提供了访问 CATIA 应用程序对象的途径。
以下是全面解析：

• 属性本质与核心功能
  作用：返回 Selection 对象所属的 CATIA Application 对象
  数据类型：Application 对象
  访问方式：只读属性
  重要性：访问 CATIA 应用程序的"根"入口

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

' 通过 Selection 获取 Application 对象
Dim catiaApp As Application
Set catiaApp = sel.Application

• 与全局 CATIA 对象的等价关系

获取方式	代码示例	说明
全局对象	Set app = CATIA	标准访问方式
Selection.Application	Set app = sel.Application	通过选择集访问
Document.Application	Set app = doc.Application	通过文档访问

' 三种方式获取相同的 Application 对象
Debug.Print (CATIA Is sel.Application)      ' 返回 True
Debug.Print (CATIA Is doc.Application)      ' 返回 True
Debug.Print (sel.Application Is doc.Application) ' 返回 True

• 核心应用场景

场景一：在类模块中访问 CATIA 对象

' 在自定义类中封装选择处理
Class SelectionProcessor
    Private m_sel As Selection
    Private m_app As Application
    
    Public Sub Initialize(sel As Selection)
        Set m_sel = sel
        Set m_app = sel.Application ' 保存应用引用
    End Sub
    
    Public Sub Process()
        ' 使用应用对象创建新文档
        Dim newDoc As Document
        Set newDoc = m_app.Documents.Add("Part")
        
        ' 处理选择集...
    End Sub
End Class

场景二：安全访问应用程序属性

' 获取 CATIA 版本信息
Function GetCATIAVersion(sel As Selection) As String
    On Error Resume Next
    GetCATIAVersion = sel.Application.SystemConfiguration.Release
    If Err.Number <> 0 Then
        GetCATIAVersion = "未知版本"
    End If
End Function

场景三：多文档环境操作

' 跨文档复制选择元素
Sub CopySelectionToDocument(sel As Selection, targetDocName As String)
    Dim app As Application
    Set app = sel.Application
    
    ' 查找目标文档
    Dim targetDoc As Document
    For Each targetDoc In app.Documents
        If targetDoc.Name = targetDocName Then
            ' 复制选择到目标文档
            CopySelection sel, targetDoc
            Exit For
        End If
    Next
End Sub

• 高级应用技巧

场景一：创建应用级事件处理器

' 类模块: AppEventHandler
Private WithEvents catiaApp As Application

Public Sub Initialize(sel As Selection)
    Set catiaApp = sel.Application
End Sub

Private Sub catiaApp_DocumentActivate(ByVal iDocument As Document)
    MsgBox "文档已激活: " & iDocument.Name
End Sub

Private Sub catiaApp_DocumentCreate(ByVal iDocument As Document)
    MsgBox "新文档创建: " & iDocument.Name
End Sub

Private Sub catiaApp_DocumentClose(ByVal iDocument As Document)
    MsgBox "文档已关闭: " & iDocument.Name
End Sub

' 使用示例
Dim handler As New AppEventHandler
handler.Initialize CATIA.ActiveDocument.Selection

场景二：多版本兼容处理

' 检查 CATIA 版本是否支持特定功能
Function IsFeatureSupported(sel As Selection) As Boolean
    Dim release As String
    release = sel.Application.SystemConfiguration.Release
    
    ' 提取主版本号 (如 R25)
    Dim mainVersion As Integer
    mainVersion = Val(Mid(release, 2, 2))
    
    ' 检查是否 R25 或更高版本
    IsFeatureSupported = (mainVersion >= 25)
End Function

场景三：应用程序状态监控

' 监控 CATIA 内存使用
Sub MonitorCATIAMemory(sel As Selection)
    Dim app As Application
    Set app = sel.Application
    
    Dim startMem As Long
    startMem = app.MemoryAvailable
    
    ' 执行内存密集型操作...
    
    Dim endMem As Long
    endMem = app.MemoryAvailable
    
    Debug.Print "内存变化: " & Format((startMem - endMem) / 1024 / 1024, "0.00") & " MB"
End Sub

• 最佳实践与注意事项

场景一：对象引用管理

' 正确释放对象引用
Sub ProcessSelection(sel As Selection)
    Dim app As Application
    Set app = sel.Application
    
    ' 使用 app...
    
    ' 处理完成后释放引用
    Set app = Nothing
End Sub

场景二：错误处理模式

Sub SafeApplicationAccess(sel As Selection)
    On Error GoTo ErrorHandler
    
    Dim app As Application
    Set app = sel.Application
    
    ' 使用应用程序对象...
    app.StatusBar = "操作中..."
    
    Exit Sub
    
ErrorHandler:
    Select Case Err.Number
        Case 91: ' 对象变量未设置
            MsgBox "无法访问 CATIA 应用程序", vbCritical
        Case 424: ' 对象必需
            MsgBox "应用程序不可用", vbCritical
        Case Else:
            MsgBox "错误 " & Err.Number & ": " & Err.Description, vbCritical
    End Select
End Sub

场景三：性能优化

' 缓存 Application 引用
Dim globalApp As Application

Sub InitializeGlobalApp(sel As Selection)
    If globalApp Is Nothing Then
        Set globalApp = sel.Application
    End If
End Sub

' 在多个过程中使用缓存的引用
Sub UpdateStatus(message As String)
    If Not globalApp Is Nothing Then
        globalApp.StatusBar =