Pipe関数

定義

Pipe (Tool As CGaudiBody) As Boolean

戻り値

True		成功
False		失敗

引数

Tool

CGaudiBodyを引き伸ばすためのCGaudiBody

解説

引数で指定されたCGaudiBodyに沿って引き伸ばされます。
ToolBodyがVertex、Solidの場合は戻り値がFalseを返します。
Bodyは、パス上の接線との相対位置を維持して引き伸ばされます。

→　

実行例

Dim Femtet As New CFemtet
Dim Gaudi As CGaudi
Dim Body As CGaudiBody
Dim PipeBody As CGaudiBody
Dim Point(3)As New CGaudiPoint
Dim Plane As New CGaudiPlane

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

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

Point(0).X =0
Point(0).Y =0
Point(0).Z =0

Point(1).X =0
Point(1).Y =0.5
Point(1).Z =1.3

Point(2).X =0
Point(2).Y =0
Point(2).Z =2

Point(3).X =0.5
Point(3).Y =0
Point(3).Z =0

Plane.Location.X =0
Plane.Location.Y =0
Plane.Location.Z =0

Plane.MainDirection.X =0
Plane.MainDirection.Y =1
Plane.MainDirection.Z =0

Plane.RefDirection.X =1
Plane.RefDirection.Y =0
Plane.RefDirection.Z =0

Set Body =Gaudi.CreateArc1(Point(0),Point(1),Point(2))

If Gaudi.SetPlane(Plane)=False Then
    Femtet.ShowLastError
End If

'//PipeBody の作成//
Set PipeBody =Gaudi.CreatePolygonFace(Point(3),0.2,5)

If PipeBody.Pipe(Body)=False Then
    Femtet.ShowLastError
End If