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

CreateReplica関数

定義

CreateReplica As CGaudiBody

戻り値

CGaudiBody

引数

ありません。

解説

複製を作成します。
戻り値のCGaudiBodyがNothingの場合LastErrorMsgによりエラーの内容を確認してください。

実行例

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

'新規プロジェクト作成
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

Vector.X =6
Vector.Y =0
Vector.Z =0

Set Body =Gaudi.CreateVertex(Point)

Set CopyBody =Body.GetVertexByID(2).CreateReplica

If CopyBody.Move(Vector)=False Then
   Femtet.ShowLastError
End If