ホーム / モデリング / CGaudi / 関数 / CreateLine

CreateLine関数

定義

CreateLine (P1 As CGaudiPoint, P2 As CGaudiPoint) As CGaudiBody

戻り値

成功した場合は新規に作成されたBodyが返ります。
失敗した場合は、Nothingが返ります。

引数

P1		始点
P2		終点

解説

指定した２点を結ぶ直線を作成します。
P1とP2が同一座標の場合はエラーとなり、Nothingが返ります。

実行例

Dim Femtet As New CFemtet
Dim Gaudi As CGaudi
Dim Body As CGaudiBody
Dim PointA As New CGaudiPoint
Dim PointB As New CGaudiPoint

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

'Femtet.Gaudiを変数Gaudiに代入して使いやすくする
Set Gaudi = Femtet.Gaudi



PointA.SetCoord 0, 0, 0
PointB.SetCoord 3, 1, -2

Set Body = Gaudi.CreateLine(PointA, PointB)