ホーム / モデリング / CGaudi / 関数 / CreateTangentLine

CreateTangentLine関数

定義

CreateTangentLine (Circle1 As CGaudiEdge, Circle2 As CGaudiEdge, SearchPoint As CGaudiPoint) As CGaudiBody

戻り値

成功した場合は新規に作成されたBodyが返ります。
失敗した場合は、Nothingが返ります。

引数

Circle1, Circle2		円または円弧トポロジ
SearchPoint		ここで指定した座標に最も近いCircle2の接点を探索し、 複数ある共通接線の中から一つを確定する

解説

指定した２つの円または円弧トポロジを結ぶ共通接線を作成します。
指定した２つの円が同一座標平面上にない場合や、
円弧を指定して共通接線が見つからない場合はエラーとなり、Nothingが返ります。

実行例

Dim Gaudi As CGaudi

Dim Body1 As CGaudiBody

Dim Body2 As CGaudiBody

Dim Body3 As CGaudiBody

Dim Center1 As New CGaudiPoint

Dim Center2 As New CGaudiPoint

Dim Search As New CGaudiPoint

Dim circle1 As CGaudiEdge

Dim circle2 As CGaudiEdge

 

'新規プロジェクト作成

If FEMTET.OpenNewProject() = False Then

    FEMTET.ShowLastError

End If

 

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

Set Gaudi = FEMTET.Gaudi

 

Center1.X = 0

Center1.Y = 0

Center1.Z = 10

 

Set Body1 = Gaudi.CreateCircleEdge(Center1, 6)

 

Center2.X = 10

Center2.Y = 10

Center2.Z = 10

 

Set Body2 = Gaudi.CreateCircleEdge(Center2, 8)

 

Set circle1 = Body1.Edge(0)

Set circle2 = Body2.Edge(0)

 

Search.X = 17

Search.Y = 6

Search.Z = 10

 

Set Body3 = Gaudi.CreateTangentLine(circle1, circle2, Search)

 

If Body3 Is Nothing Then

    FEMTET.ShowLastError

End If

 

FEMTET.Fit