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

CreatePolygonArc1関数

定義

CreatePolygonArc1(P1 As CGaudiPoint, P2 As CGaudiPoint, P3 As CGaudiPoint, nDivision as Long) As CGaudiBody

戻り値

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

引数

P1		始点
P2		中点
P3		終点
nDivision		分割数

解説

指定された３点を結ぶ多角弧を作成します。
３点が直線上にある場合や、半径が小さすぎる場合はエラーとなり、Nothingが返ります。

実行例

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

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

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



PointA.X = 0
PointA.Y = 1
PointA.Z = 0
PointB.X = 0
PointB.Y = 4
PointB.Z = 0
PointC.X = 4
PointC.Y = 2
PointC.Z = 0

Set Body = Gaudi.CreatePolygonArc1(PointA, PointB, PointC, 5)