PosRz

应用示例

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

  Dim aaa As Single
  Dim bbb As Position

  bbb = CurPos

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

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

End Sub