RVec

应用示例

'!TITLE "获取姿势"
' 获取当前的姿势
Sub Sample_RVec

  Dim aaa As Position
  Dim bbb As Vector

  aaa = CurPos

  ' 在bbb中代入aaa的姿势
  bbb = RVec( aaa )

  ' 在讯息输出视窗中显示当前的姿势
  PrintDbg bbb

End Sub