CreateArc3関数

定義

CreateArc3 (Center As CGaudiPoint, P1 As CGaudiPoint, dAngle As Double) As CGaudiBody

戻り値

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

引数

Center		円の中心点
P1		円上の点１(始点)
dAngle		角度

解説

指定された点を中心とする円上の始点から指定の角度の円弧を作成します。
円が作成される平面は、現在の作業平面の原点をCenterに平行移動させた平面であり、角度に正の値を設定した場合は、
現在の主軸における「右ネジの法則」に従う方向に円弧を描き、負の値を設定した場合はその逆方向に円弧を描きます。
P1が円上に無い場合はエラーとなり、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 dAngle As Double

'新規プロジェクト作成
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
dAngle = 60

Set Body = Gaudi.CreateArc3(Center, P1, dAngle)