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

ReflectCopy関数

定義

ReflectCopy (P As CGaudiPoint, vec As CGaudiVector) As CGaudiBody

戻り値

CGaudiBody

引数

P		鏡面上の点
Vec		鏡面の法線ベクトル

解説

CGaudiBodyのコピーを作成し、鏡面移動します。属性は継承します。

実行例

Dim Femtet As New CFemtet
Dim Gaudi As CGaudi

'新規プロジェクト作成
If Femtet.OpenNewProject() = False Then
    Femtet.ShowLastError
End If

Gaudi.RedrawMode = False
 
'------- CreateBox -------
Dim Body As CGaudiBody
Dim Point0 As New CGaudiPoint
Point0.SetCoord 0.0, 0.0, 0.0
Set Body = Gaudi.CreateBox(Point0, 2.0, 2.0, 2.0)
 
'------- ReflectCopy -------
Dim CopyBody As CGaudiBody
Dim Pnt As New CGaudiPoint
Dim Vec As New CGaudiVector
Pnt.SetCoord 5, 0, 0
Vec.SetCoord 1, 0, 0
Set CopyBody =Body.ReflectCopy Pnt, Vec
'------- モデルを再描画 -------
Gaudi.Redraw