CATIA VBA宏报错：无效过程调用或参数，圆柱面轴线创建失败

我正在编写一个CATIA VBA宏，功能是提示用户选择圆柱面并基于该面创建轴线，但执行时出现错误：代码行Set hybridShapeAxisLine1 = hybridShapeFactory1.AddNewAxisLine(reference1)触发“无效的过程调用或参数”错误，怀疑问题源于reference1未持有有效引用。

附宏代码 #

Sub SelectCylindricalFaceAndCreateAxis()
    Dim objSel As selection
    Dim objSelLB As Object
    Dim strReturn As String
    Dim varFilter(0) As Variant
    Dim cylindricalFace As Face
    Dim partDocument As Document
    Dim part As part
    Dim hybridBody1 As HybridBody
    Dim hybridShapeFactory1 As hybridShapeFactory
    Dim hybridShapeAxisLine1 As HybridShapeAxisLine
    Dim reference1 As reference

    ' 获取活动文档
    Set objSel = CATIA.ActiveDocument.selection
    Set objSelLB = objSel
    Set partDocument = CATIA.ActiveDocument
    Set part = partDocument.part

    ' 提示用户操作
    MsgBox "Select the first cylindrical face of the tube. Then press the finish button in the tools palette toolbar."

    ' 设置选择过滤器
    varFilter(0) = "CylindricalFace"
    objSel.Clear

    ' 执行选择操作
    strReturn = objSelLB.SelectElement3(varFilter, "Select a cylindrical face...", False, CATMultiSelTriggWhenUserValidatesSelection, False)

    ' 处理选择结果
    If strReturn <> "Cancel" Then
        Set cylindricalFace = objSel.Item(1).Value ' 获取选中的圆柱面
        
        ' 弹窗显示面类型
        MsgBox "选中的面类型: " & TypeName(cylindricalFace)
        
        ' 创建新几何集
        Set hybridBody1 = part.hybridBodies.Add()
        hybridBody1.Name = "CenterLine"

        ' 从选中圆柱面创建引用
        On Error Resume Next ' 错误时继续执行
        Set reference1 = part.CreateReferenceFromObject(cylindricalFace)
        On Error GoTo 0 ' 关闭错误捕获

        ' 检查引用是否有效
        If reference1 Is Nothing Then
            MsgBox "无法创建引用，请检查所选圆柱面。"
            Exit Sub
        End If

        ' 创建轴线
        Set hybridShapeFactory1 = part.hybridShapeFactory

        ' 弹窗显示引用类型
        MsgBox "引用类型: " & TypeName(reference1)

        On Error Resume Next
        Set hybridShapeAxisLine1 = hybridShapeFactory1.AddNewAxisLine(reference1)

        ' 错误检查
        If Err.Number <> 0 Then
            MsgBox "错误: " & Err.Description
            On Error GoTo 0
            Exit Sub
        End If
        On Error GoTo 0

        hybridShapeAxisLine1.AxisLineType = 1 ' 设置轴线类型

        ' 将轴线添加到几何集
        hybridBody1.AppendHybridShape hybridShapeAxisLine1

        part.InWorkObject = hybridShapeAxisLine1 ' 设置当前工作对象
        part.Update ' 更新零件
    Else
        MsgBox "选择已取消。"
    End If
End Sub

已尝试的解决步骤 #

• 选择不同的圆柱面，问题仍存在；
• 添加消息框检查reference1的类型，但未得到有效结果。

求助需求 #

1. CreateReferenceFromObject的正确用法是什么？
2. 是否有从圆柱面创建轴线的替代方法？

问题解答 #

1. CreateReferenceFromObject的正确用法

CreateReferenceFromObject用于将CATIA中的几何对象（如面、线、点）转换为宏可操作的Reference对象，使用时需注意：

• 确保传入的对象是当前零件环境下的有效几何元素，比如代码中的cylindricalFace必须是Part环境下的Face对象，不能是其他环境（如装配体）的元素。
• 不要盲目用On Error Resume Next屏蔽错误，去掉该语句后运行宏，能看到具体错误信息（比如对象类型不匹配、元素被锁定等），更易定位问题。
• 更可靠的方式是直接从选择集获取Reference：Set reference1 = objSel.Item(1).Reference，选择操作本身已经生成了有效的Reference，无需手动创建。

2. 从圆柱面创建轴线的替代方法

有两种更直接的实现方式：

• 方式一：直接使用选择集的Reference
  替换原代码中创建reference1的部分，直接调用选择项的Reference属性：

  ' 替换原创建reference1的代码
  Set reference1 = objSel.Item(1).Reference
  

  后续调用AddNewAxisLine并设置AxisLineType = 1即可，这种方式能避免手动创建Reference的错误。

• 方式二：直接获取圆柱面的固有轴线
  圆柱面本身包含轴线几何元素，可通过以下代码提取：

  Dim cylinderGeom As HybridShapeCylinder
  ' 获取圆柱面的底层几何对象
  Set cylinderGeom = cylindricalFace.GeometricElement
  ' 从圆柱轴线创建引用
  Set reference1 = part.CreateReferenceFromObject(cylinderGeom.Axis)
  ' 创建轴线
  Set hybridShapeAxisLine1 = hybridShapeFactory1.AddNewAxisLine(reference1)
  

  这种方式直接获取圆柱的轴线对象，引用更精准，能彻底规避引用无效的问题。

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