<< 向前        下一页 >>

ID : 260

Dist

功能

返回2点间的距离。

格式

Dist位置1 位置2

指定项目

位置1
指定位置型齐次变换型矢量型数据。
位置2
指定位置型齐次变换型矢量型数据。

返回值

通过双精度实数型数据返回2点间的距离。

解说

通过双精度实数型数据返回2点间的距离。

相关项目

MagnitudeDotCross

注意事项

-

应用示例

'!TITLE "测量2点间的距离"
' 测量当前位置和Y轴方向上距当前位置为10位置的距离
Sub Sample_Dist

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

  bbb = CurPos
  ccc = Dev( bbb, P( 0, 10, 0, 0, 0, 0 ) )

  ' 在aaa中代入bbb和ccc之间的距离
  aaa = Dist( bbb, ccc )

  ' 在讯息输出视窗中显示2点间的距离
  PrintDbg aaa

End Sub

ID : 260

<< 向前        下一页 >>