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

SimilarSweep2関数

定義

SimilarSweep2(Vector As CGaudiVector,Point As CGaudiPoint, Scale As Double) As Boolean

戻り値

True		成功
False		失敗

引数

Vector		引きのばしベクトル
Point		相似形状の基準点
Scale		倍率

解説

Bodyを指定したパラメータから、相似形状で引きのばします。
パラメータの詳しい説明はFemtetヘルプの相似引きのばしを参照してください。

実行例

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 Point0 As New CGaudiPoint

Point0.SetCoord 0, 0, 0

 

'六角形の作成

Gaudi.CreatePolygonFace Point0, 5, 6

 

Dim Body0 As CGaudiBody

Dim Vector0 As New CGaudiVector

Dim Point1 As New CGaudiPoint

 

Set Body0 = Gaudi.Body(0)

Vector0.SetCoord 0, 0, 10

Point1.SetCoord -0#, -0#, 10#

 

'六角柱に引き伸ばし

If Body0.SimilarSweep2(Vector0, Point1, 0.2) = False Then

    Femtet.ShowLastError

End If