PosRx

应用示例

'!TITLE "获取X轴旋转成分"
' 获取当前位置的X轴旋转成分
Sub Sample_PosRX

  Dim aaa As Single
  Dim bbb As Position

  bbb = CurPos

  ' 在aaa中代入bbb的X轴旋转成分
  aaa = PosRX( bbb )

  ' 在讯息输出视窗中显示当前位置的X轴旋转成分
  PrintDbg aaa

End Sub