PosRy

应用示例

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

  Dim aaa As Single
  Dim bbb As Position

  bbb = CurPos

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

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

End Sub