CreateArc2関数

定義

CreateArc2 (Center As CGaudiPoint, P1 As CGaudiPoint, P2 As CGaudiPoint) As CGaudiBody

戻り値

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

引数

Center		円の中心点
P1		円上の点１(始点)
P2		円上の点２(終点)

解説

指定された点を中心とする円上の２点からなる円弧を作成します。
円が作成される平面は、現在の作業平面の原点をCenterに平行移動させた平面であり、現在の主軸における「右ネジの法則」によりP1からP2を結びます。
P1またはP2が円上に無い場合はエラーとなり、Nothingが返ります。

実行例

Dim Femtet As New CFemtet
Dim Gaudi As CGaudi
Dim Body As CGaudiBody
Dim Center As New CGaudiPoint
Dim P1 As New CGaudiPoint
Dim P2 As New CGaudiPoint

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

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

Center.X = 0
Center.Y = 0
Center.Z = 0
P1.X = -1
P1.Y = 0
P1.Z = 0
P2.X = 0
P2.Y = 1
P2.Z = 0

Set Body = Gaudi.CreateArc2(Center, P1, P2)