Joint

应用示例

'!TITLE "从连接型坐标中抽出角度"
' 获取当前2轴的角度
Sub Sample_Joint

  Dim aaa As Joint
  Dim bbb As Single

  aaa = J( 0, 10, 0, 0, 0, 0 )

  ' 在bbb中代入aaa的2轴的关节角度
  bbb = Joint( 2, aaa )

  ' 在讯息输出视窗中显示从aaa获取的2轴的关节角度
  PrintDbg bbb

End Sub