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

FindBodyByBodyAttributeName関数

定義

FindBodyByBodyAttributeName ( BodyAttributeName As String, TextMatch As TEXT_MATCH_T ) As CGaudiBody

戻り値

指定ボディ属性名の最初に見つかったボディが返ります。
見つからなかった場合はNothingが返ります。

引数

BodyAttributeName		ボディ属性名
TextMatch		ボディ属性名の文字列の検索方法(TEXT_MATCH_Tを設定してください)

解説

指定されたボディ属性名のボディを探します。
複数ある場合は最初に見つかったCGaudiBodyを返します。
見つからなかった場合は、Nothingが返ります。
 
指定ボディ属性名のボディを全て取得したい場合は、
FindBodyAllByBodyAttributeNameをご使用ください。
 
ボディ属性名の検索方法は下記の種類があります。

• 完全一致
• 大文字小文字の区別なしで完全一致
• 部分一致
• 大文字小文字の区別なしで部分一致

 

ボディ属性名の検索方法を指定する第2引数の初期値は完全一致です。

完全一致で検索する場合は第2引数の設定は不要です。

 

各検索方法の動作について、
ボディ属性名"Coil01"のボディが存在するとき、
各方法で"Coil01"を取得する場合に
第1引数に指定する検索文字列の例です。

 

完全一致	大文字小文字の区別なしで完全一致	部分一致	大文字小文字の区別なしで部分一致
Coil01	Coil01、COIL01など	Coil、01など	Coil、COIL、01など

 

実行例

Dim Femtet As New CFemtet
Dim Gaudi As CGaudi
Dim Body As CGaudiBody


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

    Femtet.ShowLastError

End If

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

'完全一致で検索
Set Body = Gaudi.FindBodyByBodyAttributeName( "Coil01" )

If Body Is Nothing Then
    Femtet.ShowLastError
End If

'部分一致で検索
Set Body = Gaudi.FindBodyByBodyAttributeName( "Coil", TEXT_MATCH_PARTIAL_C )

If Body Is Nothing Then
    Femtet.ShowLastError
End If