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

CreateBoxPPH関数

定義

CreateBoxPPH (PntStart As CGaudiPoint, PntDiagonal As CGaudiPoint, dHeight As Double) As CGaudiBody

戻り値

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

引数

PntStart		始点
PntDiagonal		対角点
dHeight		高さ

解説

指定された点(PntStart)を基準として、対角点(PntDiagonal)、高さ(dHeight)を持つ直方体を作成します。

実行例

Dim Femtet As New CFemtet
Dim Gaudi As CGaudi
Dim Body As CGaudiBody
Dim PointS As New CGaudiPoint
Dim PointE As New CGaudiPoint


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

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



PointS.X = 0
PointS.Y = 0
PointS.Z = 0
 
PointE.X = 5
PointE.Y = 5
PointE.Z = 0

Set Body = Gaudi.CreateBoxPPH(PointS, PointE, 5)