求助：如何用VB宏在CATIA中按要求移动选中的零件或产品

原代码存在的问题 #

1. 仅处理单个选中对象，未实现第二个对象的反向移动需求
2. 错误处理变换矩阵：GetPosition返回的12元素数组是4x3变换矩阵，直接修改前三个元素后调用Move的方式不符合CATIA API规范，会导致移动失效或异常
3. 未做选中对象数量校验，选中数量不足时会触发运行时错误

修正后的宏代码 #

Sub MoveSelectedComponents()
    Dim sel As Selection
    Set sel = CATIA.ActiveDocument.Selection
    
    ' 校验选中数量至少为1个
    If sel.Count < 1 Then
        MsgBox "请至少选中一个零件或产品!", vbExclamation
        Exit Sub
    End If
    
    Dim obj As Object
    Dim dy As Double
    
    ' 处理第一个选中对象：Y轴负方向移动5mm
    Set obj = sel.Item(1).Value
    dy = -5 ' Y负方向
    ' 使用Translate方法直接指定位移，比手动处理变换矩阵更可靠
    obj.Translate 0, dy, 0
    
    ' 处理第二个选中对象（如果存在）：Y轴正方向移动5mm
    If sel.Count >= 2 Then
        Set obj = sel.Item(2).Value
        dy = 5 ' Y正方向
        obj.Translate 0, dy, 0
    End If
End Sub

关键说明 #

• Translate方法：CATIA的Product和Part对象（装配环境中）都支持Translate(dx, dy, dz)方法，直接传入三个轴的位移量即可，单位与当前文档一致（默认毫米），无需手动处理复杂的变换矩阵
• 选中对象校验：增加选中数量判断，避免因未选中对象导致的报错
• 方向控制：第一个对象用dy=-5实现Y轴负方向移动，第二个用dy=5实现正方向移动
• 兼容性：兼容选中的是零件（Part）或产品（Product）组件，只要是装配结构中可移动的对象都能生效

内容的提问来源于stack exchange，提问作者Ahmet Hakan Yıldırım