CreateArc1関数

定義

CreateArc1 (P1 As CGaudiPoint, P2 As CGaudiPoint, P3 As CGaudiPoint) As CGaudiBody

戻り値

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

引数

P1		始点
P2		中点
P3		終点

解説

指定された３点を結ぶ円弧を作成します。
３点が直線上にある場合や、半径が小さすぎる場合はエラーとなり、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.CreateArc1(PointA, PointB, PointC)