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

OffsetEdge関数

定義

OffsetEdge (dOffset As Double) As Boolean

戻り値

True		成功
False		失敗

引数

dOffset

オフセット距離

解説

シートボディのすべての辺をオフセットします。
引数でオフセット距離を指定します。

実行例

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

       

'長方形の作成

Dim Body As CGaudiBody

Dim Point As New CGaudiPoint

Point.SetCoord 0, 0, 0

Set Body = Gaudi.CreateRect(Point, 5, 5)

    

'辺のオフセット

If Body.OffsetEdge( 1.0 ) = False Then

    Femtet.ShowLastError
End If