Отправлено: 08.10.07 15:40. Заголовок: Как программно определить угол поворота составной части сборки?

Как программно определить угол поворота составной части сборки?

 Отправлено: 09.10.07 08:26. Заголовок: Re:

' Set a reference to the assembly component definintion.
Dim oAsmCompDef As AssemblyComponentDefinition
Set oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition

' Get an occurrence from the select set.
On Error Resume Next
Dim oOccurrence As ComponentOccurrence
Set oOccurrence = ThisApplication.ActiveDocument.SelectSet.Item(1)
If Err Then
MsgBox "An occurrence must be selected."
Exit Sub
End If
On Error GoTo 0

' Get the current transformation matrix from the occurrence.
Dim oTransform As Matrix
Set oTransform = oOccurrence.Transformation

Dim oOrigin As Point
Dim oXAxis As Vector
Dim oYAxis As Vector
Dim oZAxis As Vector
Call oTransform.GetCoordinateSystem(oOrigin, oXAxis, oYAxis, oZAxis)

Debug.Print "The coordinate system of part " & oOccurrence.name
Debug.Print " Origin: " & oOrigin.X & ", " & oOrigin.Y & ", " & oOrigin.Z
Debug.Print " X-Axis: " & oXAxis.X & ", " & oXAxis.Y & ", " & oXAxis.Z
Debug.Print " Y-Axis: " & oYAxis.X & ", " & oYAxis.Y & ", " & oYAxis.Z
Debug.Print " Z-Axis: " & oZAxis.X & ", " & oZAxis.Y & ", " & oZAxis.Z

'now, get back the rotation angle about the above specified rotation vector (from the matrix)
Dim oTG As TransientGeometry
Set oTG = ThisApplication.TransientGeometry

Dim vZ As Vector
Dim vX As Vector
Dim vY As Vector

Set vZ = oTG.CreateVector(0, 0, 1)
Set vX = oTG.CreateVector(1, 0, 0)
Set vY = oTG.CreateVector(0, 1, 0)

Debug.Print " Angles: X " & CStr(vX.AngleTo(oXAxis) * 180 / 3.1415926535) & " Y " & CStr(vY.AngleTo(oYAxis) * 180 / 3.1415926535) & " Z " & CStr(vZ.AngleTo(oZAxis) * 180 / 3.1415926535)

 Отправлено: 09.10.07 11:00. Заголовок: Re:

Ab
Спасибо. Такого примера в хелпе 11-го я не нашел.
Если я правильно понял, то чтоб определить угол вращения вокруг оси Z надо найти угол поворота вектора oXAxis относительно вектора vX?

 Отправлено: 09.10.07 11:23. Заголовок: Re:

Вокруг оси Z - угол между vZ и oZAxis, вокруг Y - vY и oYAxis, вокруг Z - vZ и oZAxis.
Смотрите, проверяйте.

А вот, что говорят наши заокеанские друзья:
http://discussion.autodesk.com/adskcsp/thread.jspa?messageID=5115290

и

http://discussion.autodesk.com/adskcsp/thread.jspa?messageID=5244568