AVec

应用示例

'!TITLE "获取近似矢量"
' 获取当前位置的近似矢量
Sub Sample_AVec

  Dim aaa As Trans
  Dim bbb As Vector

  aaa = CurTrn

  ' 在bbb中代入当前位置的近似矢量
  bbb = AVec( aaa )

  ' 在讯息输出视窗中显示当前位置的近似矢量
  PrintDbg bbb

End Sub