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

GetDistanceBody関数

定義

GetDistanceBody(Tool as CGaudiBody) as double

戻り値

指定Bodyとの距離

引数

Tool

距離を測定したいBody

解説

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

実行例

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

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

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



Point1.X =0
Point1.Y =0
Point1.Z =0

Point2.X =10
Point2.Y =10
Point2.Z =10

Set Body1 =Gaudi.CreateBox (Point1,8,5,5)
Set Body2 =Gaudi.CreateBox (Point2,8,5,5)

MsgBox Body1.GetDistanceBody（Body2）,vbInformation,"GetDistanceBody"