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

GetDistanceEdge関数

定義

GetDistanceEdge(Tool as CGaudiEdge) as double

戻り値

指定Edgeとの距離

引数

Tool

距離を測定したいEdge

解説

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

実行例

メッセージボックスに指定したEdgeとの距離を表示します。
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.GetDistanceEdge（Body2.Edge(1)）,vbInformation,"GetDistanceEdge"