CATIA VBA曲线合并宏无法识别自定义命名几何集问题

• 检查名称的完全匹配性
  CATIA对对象名称的匹配是严格的，要确保宏里的字符串和几何集名称完全一致：包括大小写、空格数量、特殊符号（比如-、_）的半角/全角状态。调试时看到的名称一致，也要手动核对宏里的字符串有没有隐形错误（比如复制粘贴时带了不可见字符）。

• 限定在HybridBodies集合内查找
  全局搜索容易匹配到其他类型对象，正确的做法是直接在零件的HybridBodies集合里按名称查找，精准定位几何集：

Dim part As Part
Set part = CATIA.ActiveDocument.Part

Dim targetGeomSet As HybridBody
' 用On Error跳过找不到时报错的情况
On Error Resume Next
Set targetGeomSet = part.HybridBodies.Item("D40-09_NC CURVES")
On Error GoTo 0

If targetGeomSet Is Nothing Then
    MsgBox "目标几何集未找到"
Else
    ' 将工作对象切换到目标几何集，准备粘贴
    part.InWorkObject = targetGeomSet
    ' 这里写你的合并结果粘贴代码
End If

• 处理嵌套几何集的情况
  如果目标几何集嵌套在其他几何集里面，直接在顶层HybridBodies里找不到，需要递归遍历子几何集：

' 递归查找嵌套几何集的函数
Function FindNestedGeomSet(parentSet As HybridBody, targetName As String) As HybridBody
    Dim subSet As HybridBody
    For Each subSet In parentSet.HybridBodies
        If subSet.Name = targetName Then
            Set FindNestedGeomSet = subSet
            Exit Function
        End If
        ' 继续查找当前子集的子级
        Set FindNestedGeomSet = FindNestedGeomSet(subSet, targetName)
        If Not FindNestedGeomSet Is Nothing Then Exit Function
    Next
End Function

' 调用示例
Dim targetSet As HybridBody
' 先查主几何集的嵌套子集
Set targetSet = FindNestedGeomSet(part.MainBody, "D40-09_NC CURVES")
' 再查顶层几何集
If targetSet Is Nothing Then
    On Error Resume Next
    Set targetSet = part.HybridBodies.Item("D40-09_NC CURVES")
    On Error GoTo 0
End If

• 正确获取当前工作几何集
  如果宏是要粘贴到当前工作的几何集，不要直接依赖InWorkObject，要先判断对象类型：

Dim currentWorkObj As AnyObject
Set currentWorkObj = part.InWorkObject
Dim currentGeomSet As HybridBody

' 如果当前工作对象是几何集，直接赋值
If TypeOf currentWorkObj Is HybridBody Then
    Set currentGeomSet = currentWorkObj
' 如果当前是几何集中的特征，取其父几何集
ElseIf TypeOf currentWorkObj Is HybridShape Then
    Set currentGeomSet = currentWorkObj.Parent
End If

' 确认名称匹配后执行操作
If Not currentGeomSet Is Nothing And currentGeomSet.Name = "D40-09_NC CURVES" Then
    ' 粘贴代码
End If

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