如何通过VBA脚本获取CATIA产品的角度坐标？

你当前的脚本通过Position.GetComponents获取的数组pos已经包含旋转相关的矩阵元素，只需正确解析就能得到角度值。CATIA的位置变换矩阵是12元素数组，其中：

• 索引9、10、11：对应平移坐标（X,Y,Z）
• 前9个元素是旋转矩阵，可据此计算欧拉角（CATIA默认旋转顺序为Z-Y-X：先绕Z轴，再Y轴，最后X轴）

修改后的完整脚本 #

以下是扩展后的脚本，可同时获取平移坐标与欧拉角：

Set productDocument1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 = productDocument1.Selection

selection1.Search "CATElectricalSearch.MultipleSegments,all"

' 增加选中判断，避免无选中时报错
If selection1.Count < 1 Then
    MsgBox "请先选中至少一个产品！"
    Exit Sub
End If

Dim product1 As Product
Set product1 = selection1.Item(1).Value

Dim pos(11) As Double
product1.Position.GetComponents pos

' 提取平移坐标
Dim transX As Double, transY As Double, transZ As Double
transX = pos(9)
transY = pos(10)
transZ = pos(11)

' 从旋转矩阵计算Z-Y-X顺序的欧拉角（弧度转角度）
Dim rotX As Double, rotY As Double, rotZ As Double
rotY = Atn2(-pos(6), Sqr(pos(3) ^ 2 + pos(0) ^ 2))

If Abs(Cos(rotY)) > 0.00001 Then
    rotX = Atn2(pos(7), pos(8))
    rotZ = Atn2(pos(3), pos(0))
Else
    rotX = Atn2(-pos(2), pos(1))
    rotZ = 0
End If

' 弧度转角度
rotX = rotX * 180 / 3.1415926535
rotY = rotY * 180 / 3.1415926535
rotZ = rotZ * 180 / 3.1415926535

' 输出结果
Dim result As String
result = "产品名称: " & product1.Name & vbCrLf & _
         "平移坐标: X=" & Round(transX, 3) & ", Y=" & Round(transY, 3) & ", Z=" & Round(transZ, 3) & vbCrLf & _
         "旋转角度(Z-Y-X): X=" & Round(rotX, 3) & "°, Y=" & Round(rotY, 3) & "°, Z=" & Round(rotZ, 3) & "°"
MsgBox result

关键说明 #

• CATIA的Position.GetComponents返回数组顺序为：[m11, m12, m13, m21, m22, m23, m31, m32, m33, tx, ty, tz]，前9个是旋转矩阵元素，后3个是平移量
• 欧拉角计算基于CATIA默认的Z-Y-X旋转顺序，若需其他旋转顺序（如X-Y-Z），需调整对应的矩阵元素计算逻辑
• 脚本加入了选中校验，避免空选择导致的运行错误
• 使用Round函数对结果保留三位小数，提升可读性

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