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

ChangeBodyKey2関数

定義

ChangeBodyKey2(Tool As CGaudiBody) As Boolean

戻り値

True		成功
False		失敗

引数

Tool

ボディキーを交換する相手となるボディ

解説

引数で指定されたボディとボディキーを交換します。

実行例

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)

 

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

Dim Body1 As CGaudiBody

Dim Point1 As New CGaudiPoint

Point1.SetCoord 10, 10, 10

Set Body1 = Gaudi.CreateBox(Point1, 5, 5, 5)

    

'------- ChangeBodyKey2 -------

Body0.ChangeBodyKey2 Body1