ホーム / モデリング / CGaudiFace / 関数 / Draft

Draft関数

定義

Draft (FaceList() As CGaudiFace, Angle As Double) As Boolean
 

---

[Python]
 Draft_py(CGaudiFace[] FaceList, double Angle)

戻り値

True		成功
False		失敗

 

---

[Python]

True		成功
False		失敗

引数

FaceList		抜き勾配を与えたい面トポロジ配列
Angle		抜き勾配の角度

 

---

[Python]

FaceList		抜き勾配を与えたい面トポロジ(CGaudiFace)配列
Angle		抜き勾配の角度

解説

自身の面トポロジに隣接する、引数FaceListで指定された面トポロジに抜き勾配を与えます。
引数Faceリストが空の場合は、自身に隣接する全ての面トポロジに抜き勾配を与えます。

実行例

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

       

'------- CreateBox -------

Dim Body0 As CGaudiBody

Dim Point0 As New CGaudiPoint

Point0.SetCoord 0, 0, 0

Set Body0 = Gaudi.CreateBox(Point0, 5, 5, 5)

 

'------- CreateBox -------

Dim Body1 As CGaudiBody

Dim Point1 As New CGaudiPoint

Point1.SetCoord 10, 10, 10

Set Body1 = Gaudi.CreateBox(Point1, 5, 5, 5)

 

'------- Draft -------

'自身(Face0)に隣接する全ての面トポロジに対して抜き勾配を与える場合

Dim Face0 As CGaudiFace

Set Face0 = Body0.GetFaceByID(36)

Dim nullFace() As CGaudiFace

Face0.Draft nullFace, 10

 

'------- Draft -------

'自身(Face1)に隣接する一部の面トポロジに対して抜き勾配を与える場合

Dim Face1 As CGaudiFace

Set Face1 = Body1.GetFaceByID(36)

Dim FaceList(1) As CGaudiFace

Set FaceList(0) = Body1.GetFaceByID(2)

Set FaceList(1) = Body1.GetFaceByID(33)

Face1.Draft FaceList, 15