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

CreateBox関数

定義

CreateBox (P As CGaudiPoint, dx As Double, dy As Double, dz As Double) As CGaudiBody

戻り値

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

引数

P		始点
dx		作業平面におけるX方向の長さ
dy		作業平面におけるY方向の長さ
dz		作業平面におけるZ方向の長さ

解説

指定された点(P)を基準として、作業平面の軸方向に幅(dx)、奥行き(dy)、高さ(dz)を持つ直方体を作成します。
dxまたはdyまたはdzが０の場合はエラーとなり、Nothingが返ります。

実行例

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.CreateBox(Point, 3, 4, 5)