<< 前へ        次へ >>

ID : 260

Dist

機能

2点間の距離を返します。

構文

Dist(位置1, 位置2)

指定項目

位置1
ポジション型、同次変換型、ベクトル型データを指定します。
位置2
ポジション型、同次変換型、ベクトル型データを指定します。

戻り値

2点間の距離を倍精度実数型データで返します。

解説

2点間の距離を倍精度実数型データで返します。

関連項目

Magnitude、 Dot、 Cross

注意事項

-

用例

'!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 ) )

  ' bbbとccc間の距離をaaaに代入
  aaa = Dist( bbb, ccc )

  ' メッセージ出力ウィンドウに2点間の距離を表示
  PrintDbg aaa

End Sub

ID : 260

<< 前へ        次へ >>