ホーム / モデリング / CGaudi / 関数 / FindTopologyAllByBox

FindTopologyAllByBox関数

定義

FindTopologyAllByBox ( Point1 As CGaudiPoint, Point2 As CGaudiPoint, VertexArray() As CGaudiVertex, EdgeArray() As CGaudiEdge, FaceArray() As CGaudiFace ) As Boolean
  

---

 
[Python]
 FindTopologyAllByBox_py( Point1 As CGaudiPoint, Point2 As CGaudiPoint )

戻り値

True		成功
False		失敗

  

---

[Python]

[0]		True:成功、False:失敗
[1][0～検索された点トポロジ数-1]		サイズボックス内の点トポロジ(CGaudiVertex)を返すための配列(動的配列)
[2][0～検索された辺トポロジ数-1]		サイズボックス内の辺トポロジ(CGaudiEdge)を返すための配列(動的配列)
[3][0～検索された面トポロジ数-1]		サイズボックス内の面トポロジ(CGaudiFace)を返すための配列(動的配列)

引数

Point1		サイズボックスの対角座標1
Point2		サイズボックスの対角座標2
VertexArray		サイズボックス内の点トポロジ(CGaudiVertex)を返すための配列(動的配列)
EdgeArray		サイズボックス内の辺トポロジ(CGaudiEdge)を返すための配列(動的配列)
FaceArray		サイズボックス内の面トポロジ(CGaudiFace)を返すための配列(動的配列)

  

---

[Python]

Point1		サイズボックスの対角座標1
Point2		サイズボックスの対角座標2

解説

指定された2点を対角座標とするサイズボックス内に存在するトポロジ(点、辺、面)を全て取得します。

トポロジが見つからなかった場合や、引数のVertexArray/EdgeArray/FaceArrayが動的配列ではない場合は失敗します。

 

実行例

Dim Femtet As New CFemtet
Dim Gaudi As CGaudi
Dim min As New CGaudiPoint

Dim max As New CGaudiPoint

Dim faces() As CGaudiFace

Dim edges() As CGaudiEdge

Dim vertices() As CGaudiVertex

'プロジェクトを開く
If Femtet.LoadProject("C:\Test\test.femprj", True) = False Then

    Femtet.ShowLastError

End If

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

min.SetCoord -5, -5, -5

max.SetCoord 5, 5, 5

                

if Gaudi.FindTopologyAllByBox(min, max, vertices, edges, faces) = False Then

    Femtet.ShowLastError

End If