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

DivideEdge関数

定義

DivideEdge (point As CGaudiPoint) As Boolean

戻り値

True		成功
False		失敗

引数

point

挿入する点

解説

引数で指定した座標に頂点を挿入します。
ただし、指定座標がBodyを構成する辺上に無い場合、もしくは頂点と同じ座標の場合はエラーとしてFalseが返ります。

実行例

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

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

Point.X =1.5
Point.Y =0
Point.Z =0
Body.DivideEdge Point
' これでX軸上の辺が２つに分割されました

→