ID : 260
Dist
功能
返回2点间的距离。
解说
通过双精度实数型数据返回2点间的距离。
注意事项
-
应用示例
'!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