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

CreatePolygonCone関数

定義

CreatePolygonCone (Center As CGaudiPoint, dRBottom As Double, dHeight As Double, dRTop As Double, nSides As Long) As CGaudiBody

戻り値

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

引数

Center		底面の中心点
dRBottom		底面の半径
dHeight		高さ
dRTop		上面の半径
nSides		角数

解説

指定された半径と高さの正多角錐を作成します。
高さ方向は作業平面のZ方向となります。
半径や高さが小さすぎる場合はエラーとなり、Nothingが返ります。
（ただし、上面半径は0でも可です。）
また、角数が２以下の場合もエラーとなります。

実行例

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

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

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

Point.X = 0
Point.Y = 0
Point.Z = 0

Set Body = Gaudi.CreatePolygonCone(Point, 8, 10, 3, 8)