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

GetVertexBoundary関数

定義

GetVertexBoundary(szBoundary as String, result() as CGaudiVertex) As Boolean
 

---

[Python]
 GetVertexBoundary_py(str szBoundary)

戻り値

True		検索の結果有り
False		検索の結果なし

 

---

[Python]

[0]		True:検索の結果有り、False:結果なし
[1][0～検索された点の数-1]		検索結果のCGaudiVertexが格納される配列

引数

szBoundary		検索する境界条件名
result		検索結果のVertexが格納される配列

 

---

[Python]

szBoundary

検索する境界条件名

解説

Bodyを構成するVertexの内、szBoundaryを境界条件に持つVertexを検索する

実行例

Dim Femtet As New CFemtet
Dim Gaudi As CGaudi
Dim Box As CGaudiBody
Dim Point As New CGaudiPoint

'----新規プロジェクト作成----
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, 3, 3, 3)

'------- AddBoundary -------
Dim Vertex0 As CGaudiVertex
Set Vertex0 = Body0.GetVertexByID(23)
Vertex0.AddBoundary "B3"

'------- GetVertexBoundary -------
Dim Result() As CGaudiVertex
If Body0.GetVertexBoundary("B3", Result) = False Then
    Femtet.ShowLastError
End If

'------- 境界条件の付いた面にメッシュサイズを設定 -------
Dim i As Integer
For i = LBound(Result) To UBound(Result)
    Result(i).MeshSize = 2
Next i