ホーム / モデリング / CGaudiFace / 関数 / GetDistanceFace

GetDistanceFace関数

定義

GetDistanceFace(Tool as CGaudiFace) as double

戻り値

指定Faceとの距離

引数

Tool

距離を測定したいFace

  

解説

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

実行例

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