ホーム / モデリング / CGaudiBody / 関数 / GetDistance

GetDistance関数

定義

GetDistance(pnt as CGaudiPoint) as double

戻り値

指定点との距離

引数

pnt

距離を測定したい座標値

解説

指定された座標との距離を算出します。
エラーの場合は -1.0 を返します。
(この関数は、エラーの場合でもCFemtet.LastErrorMsgプロパティでエラー内容を取得することはできません)

実行例

メッセージボックスに指定した点との距離を表示します。
Dim Femtet As New CFemtet
Dim Gaudi As CGaudi
Dim Body As CGaudiBody
Dim Point As New CGaudiPoint
Dim Point2 As New CGaudiPoint

'新規プロジェクト作成
If Femtet.OpenNewProject() = False Then
    Femtet.ShowLastError
End If

'Femtet.Gaudiを変数Gaudiに代入して使いやすくする
Set Gaudi = Femtet.Gaudi



Point.X =0
Point.Y =0
Point.Z =0

Point2.X =-5
Point2.Y =-5
Point2.Z =-5

Set Body =Gaudi.CreateBox (Point,8,5,5)

MsgBox Body.GetDistance（Point2）,vbInformation,"GetDistance"