Magnitude

应用示例

'!TITLE "获取矢量的大小"
' 获取当前位置的矢量大小
Sub Sample_Magnitude

  Dim aaa As Single
  Dim bbb As Position
  Dim ccc As Vector

  bbb = CurPos

  ' 从当前位置获取位置矢量
  ccc = PVec( bbb )

  ' 在aaa中代入当前位置的矢量大小
  aaa = Magnitude( ccc )

  ' 在讯息输出视窗中显示当前位置的矢量大小
  PrintDbg aaa

End Sub