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

CreateTrackEdge関数

定義

CreateTrackEdge(Center1 As CGaudiPoint, Center2 As CGaudiPoint, dR As Double) As CGaudiBody

戻り値

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

引数

Center1		第１中心座標(長円の円弧部分の中心座標)
Center2		第２中心座標(長円の円弧部分の中心座標)
dR		半径(長円の円弧部分の半径)

解説

長円のワイヤを作成します。  
 
半径が小さすぎたり、それぞれの中心座標が同一座標である場合はエラーとなります。

実行例

Dim Femtet As New CFemtet
Dim Gaudi As CGaudi
Dim Body As CGaudiBody
Dim PointA As New CGaudiPoint
Dim PointB As New CGaudiPoint

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

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



PointA.SetCoord 0, 0, 0
PointB.SetCoord 10, 10, 10

Set Body = Gaudi.CreateTrackEdge(PointA, PointB, 5)