CATVBA实现CATIA产品结构树递归遍历节点查找问题求助

云上老周

2026-9-2

你的代码存在的几个语法和逻辑错误

集合属性用错：CATIA中Product对象的子节点集合属性是Products，不是Items，Items是Selection、Documents这类集合对象的属性，直接访问Product.Items会抛出"对象不支持该属性或方法"的错误。
名称判断硬编码：函数内判断节点名称时写死了比对值为"SearchName"，没有使用传入的searchName形参，传入自定义搜索值不会生效。
对象赋值缺少Set关键字：CATScript中对象类型变量赋值必须加Set，原代码中foundItem = TestMainChildren(...)、递归调用接收返回值的位置都漏写Set，会触发类型不匹配错误。
递归返回值未处理：递归调用子节点遍历函数时，既没有接收返回结果，也没有判断是否找到目标就提前终止遍历，就算深层节点匹配到目标，也会被后续遍历覆盖，最终返回空值。
缺少边界校验：没有判断传入的起始节点本身是否为目标，也没有处理遍历完所有节点仍未找到目标的空对象场景，直接访问空对象的Name属性会触发运行时错误。

可直接运行的修正版本

Private Sub TestMain()
    Dim searchName As String
    searchName = "SearchName" ' 替换为实际要查找的节点名称

    ' 校验选中状态
    If CATIA.ActiveDocument.Selection.Count = 0 Then
        MsgBox "请先选中遍历起始的产品节点"
        Exit Sub
    End If

    Dim startNode As Object
    Set startNode = CATIA.ActiveDocument.Selection.Item(1).Value

    Dim foundItem As Object
    Set foundItem = TraverseNode(startNode, searchName)

    If Not foundItem Is Nothing Then
        MsgBox "查找成功，目标节点名称：" & foundItem.Name
    Else
        MsgBox "遍历完成，未找到名称匹配的节点"
    End If
End Sub

' 递归遍历产品结构核心函数
Private Function TraverseNode(ByRef currentNode As Object, ByVal targetName As String) As Object
    ' 优先校验当前节点是否匹配
    If currentNode.Name = targetName Then
        Set TraverseNode = currentNode
        Exit Function
    End If

    ' 仅Product类型节点存在子产品集合，提前判断避免报错
    If TypeName(currentNode) = "Product" Then
        Dim child As Object
        For Each child In currentNode.Products
            Dim searchRes As Object
            Set searchRes = TraverseNode(child, targetName)
            ' 子节点递归找到目标时直接逐层返回，终止多余遍历
            If Not searchRes Is Nothing Then
                Set TraverseNode = searchRes
                Exit Function
            End If
        Next
    End If

    ' 所有节点遍历完成无匹配，返回空对象
    Set TraverseNode = Nothing
End Function

实现说明

递归逻辑遵循「先校验当前节点、再递归遍历子节点、找到结果立刻返回」的顺序，不会漏判根节点，也不会做无效遍历。
所有对象赋值都严格使用Set关键字，符合CATScript语法要求。
增加了类型判断和空值校验，避免非产品节点访问子集合、未找到目标时的运行时错误。
你之前写的斐波那契函数是迭代实现（通过循环累加计算），和递归遍历的实现逻辑有本质区别：递归的核心是函数调用自身处理子层级问题，找到终止条件后逐层返回结果。

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