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

CreateReplica関数

定義

CreateReplica As CGaudiBody

戻り値

CGaudiBody

引数

なし

解説

CGaudiBodyのコピーを作成します。属性は継承します。
戻り値のCGaudiBodyがNothingの場合LastErrorMsgによりエラーの内容を確認してください。

実行例

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

'新規プロジェクト作成
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,5,5)
Set CopyBody =Body.CreateReplica