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

CreateEllipseEdge関数

定義

CreateEllipseEdge(Center As CGaudiPoint, R1 As Double, R2 As Double) As CGaudiBody

戻り値

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

引数

Center		楕円の中心座標
R1		第１半径(副軸方向の半径)
R2		第２半径(第２副軸方向の半径)

解説

楕円のワイヤを作成します。
第２副軸とは主軸と副軸とが直交する方向です。
詳しくはCGaudiPlaneを参照してください。

実行例

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

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

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



PointA.SetCoord 0, 0, 0

Set Body = Gaudi.CreateEllipseEdge(PointA, 10, 5.5)