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

CreateLineSAL関数

定義

CreateLineSAL (P1 As CGaudiPoint, Angle As Double, Length As Double) As CGaudiBody
 

戻り値

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

引数

P1		始点
Angle		角度
Length		長さ

解説

指定した視点から、指定した角度の方向に、指定した長さを持つ直線を作成します。
角度は現在の作図平面の副軸を基準とした角度になります。

実行例

Dim Femtet As New CFemtet

Dim Gaudi As CGaudi

 

'新規プロジェクト作成

If Femtet.OpenNewProject() = False Then

    Femtet.ShowLastError

End If

    

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

Set Gaudi = Femtet.Gaudi

 

'------- CreateLineSAL -------

Dim Body0 As CGaudiBody

Dim Point0 As New CGaudiPoint

Point0.SetCoord 0, 0, 0

Set Body0 = Gaudi.CreateLineSAL(Point0, 35, 9.5)