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

CreateReplica関数

定義

CreateReplica As CGaudiBody

戻り値

CGaudiBody

引数

ありません

解説

複製を作成します。

実行例

Dim Femtet As New CFemtet
Dim Gaudi As CGaudi
Dim Body As CGaudiBody
Dim CopyBody As CGaudiBody
Dim Point(1)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(0).X =0
Point(0).Y =0
Point(0).Z =0

Point(1).X =10
Point(1).Y =0
Point(1).Z =0

Vector.X =0
Vector.Y =0
Vector.Z =10

Set Body =Gaudi.CreateLine(Point(0),Point(1))

Set CopyBody =Body.GetEdgeByID(6).CreateReplica

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