CATIA装配中区分选中CATPart与空CATProduct的方法咨询

问题描述 #

在CATIA装配环境下，需要判断选中对象是CATPart还是CATProduct，但存在以下识别盲区：

• 类似Product4__的空CATProduct和Part1_ASD2_这类Part衍生对象无法区分，二者选中后均返回Products.Count = 0且TypeName()="Product"
• 选中普通CATProduct（如Product1__）、直接的CATPart（如Part1）时能正常区分，但空CATProduct和Part衍生对象的判定失效
• 尝试通过子元素数量判断，但无子女时仍无法区分两类对象

想明确Part1在Part1_ASD_中的引用逻辑，或找到能区分这两类对象的特征。

现有测试VBA代码：

Sub CatiaCheckSelectionType()

    msgBox("Startet")
    
    Set oSelection = CATIA.ActiveDocument.Selection
        if oSelection.Count = 1 Then

            msgBox(TypeName(oSelection.Item(1).Value))

            if TypeName(oSelection.Item(1).Value) = "Product" Then
                msgBox("Maybe a Product")
                Set CATProduct = oSelection.Item(1).Value
                If CATProduct.Products.Count > 0 Then
                    Set CATProductChild = CATProduct.Products.Item(1)
                    If TypeName(CATProductChild) = "Product" Then
                        msgBox ("Definetly a Product")
                    ElseIf TypeName(CATProductChild) = "Part" Then
                        msgBox ("Part")
                    Else
                        msgBox ("something else in here"))
                    EndIf
                Else
                    msgBox("Empty Produkt")
                EndIf
            ElseIf TypeName(oSelection.Item(1).Value) = "Part" then
                Set CATPart = oSelection.Item(1).Value
                msgBox("En Part it is")
            End if
        Else
            msgBox("Pls Select a Part or a Product")
        EndIf
End Sub

解决方案 #

1. 利用ReferenceProduct属性区分 #

Part衍生的Product对象本质是Part的实例化引用容器，它的ReferenceProduct会指向原始Part；而空CATProduct的ReferenceProduct要么指向自身，要么为空。基于此可以精准判定：

Sub CatiaCheckSelectionType_Improved()
    Dim oSelection As Selection
    Dim oObj As Object
    Dim oProduct As Product
    
    Set oSelection = CATIA.ActiveDocument.Selection
    If oSelection.Count <> 1 Then
        MsgBox "请选择一个对象"
        Exit Sub
    End If
    
    Set oObj = oSelection.Item(1).Value
    
    ' 直接判断是否为CATPart
    If TypeName(oObj) = "Part" Then
        MsgBox "选中的是CATPart"
        Exit Sub
    End If
    
    ' 处理Product类型对象
    If TypeName(oObj) = "Product" Then
        Set oProduct = oObj
        
        ' 检查是否为Part的衍生实例
        If Not oProduct.ReferenceProduct Is Nothing Then
            If TypeName(oProduct.ReferenceProduct.Parent) = "Part" Then
                MsgBox "选中的是Part的衍生Product实例"
                Exit Sub
            End If
        End If
        
        ' 判断是否为空CATProduct
        If oProduct.Products.Count = 0 Then
            MsgBox "选中的是空CATProduct"
        Else
            MsgBox "选中的是普通CATProduct"
        End If
    End If
End Sub

2. 使用IsInstanceOf方法精准判断类型 #

通过CATIA API的IsInstanceOf方法可以直接识别对象的底层类型，避免TypeName的模糊性：

' 需确保已引用CATIA类型库，或通过CreateObject调用
If oProduct.IsInstanceOf("CATPart") Then
    MsgBox "这是Part的衍生Product实例"
ElseIf oProduct.IsInstanceOf("CATProduct") Then
    MsgBox "这是纯CATProduct对象"
End If

Part的引用逻辑说明 #

Part1_ASD2_这类对象是CATPart在装配中的实例化容器：

• 原始Part为独立的CATPart文档
• 在装配中插入Part时，CATIA会自动创建一个Product对象作为该Part的引用载体，即你看到的Part1_ASD2_
• 这个载体Product仅用于关联原始Part，本身没有子Product，因此会出现Products.Count = 0的情况

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