ホーム / モデリング / CGaudiBody / 関数 / ChangeBodyKey1

ChangeBodyKey1関数

定義

ChangeBodyKey1() As Boolean

戻り値

True		成功
False		失敗

引数

なし

解説

ボディキーを更新します。
新たに設定されるボディキーは、現在の最大のボディキー+1の値になります。

実行例

Dim Femtet As New CFemtet

Dim Gaudi As CGaudi

 

'新規プロジェクト作成

If Femtet.OpenNewProject() = False Then

    Femtet.ShowLastError

End If

    

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

Set Gaudi = Femtet.Gaudi

       

'------- CreateBox -------

Dim Body0 As CGaudiBody

Dim Point0 As New CGaudiPoint

Point0.SetCoord 0, 0, 0

Set Body0 = Gaudi.CreateBox(Point0, 5, 5, 5)

    

'------- ChangeBodyKey1 -------

Body0.ChangeBodyKey1