如何通过编程识别CATIA V5中当前处于编辑模式的组件

要获取Product结构里当前处于编辑状态的组件（Part或Product），不能直接用CATIA.ActiveDocument.Name——因为ActiveDocument指向的是整个产品文档，它的名称就是根组件的名称，和当前编辑的子组件无关。

正确实现方法 #

使用CATIA API的ActiveComponent属性，它会直接返回当前处于编辑模式的组件对象，无论它是Part还是Product。

以下是VBA代码示例：

Sub GetActiveEditingComponent()
    Dim catia As Object
    Set catia = GetObject(, "CATIA.Application")
    
    Dim activeComp As Object
    Set activeComp = catia.ActiveDocument.ActiveComponent
    
    If Not activeComp Is Nothing Then
        ' 输出组件名称
        MsgBox "当前编辑的组件：" & activeComp.Name
        
        ' 判断组件类型
        If TypeName(activeComp) = "Part" Then
            MsgBox "组件类型：Part"
        ElseIf TypeName(activeComp) = "Product" Then
            MsgBox "组件类型：Product"
        End If
    Else
        MsgBox "当前没有处于编辑模式的组件"
    End If
End Sub

补充说明 #

• 如果ActiveComponent返回Nothing，说明当前没有任何组件处于编辑状态（比如刚打开文档，还没进入任何组件的编辑模式）。
• 该方法对Part和Product组件都适用，无需额外区分类型，可通过TypeName()函数判断具体类型。

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