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

FindBodyByMaterialName関数

定義

FindBodyByMaterialName ( MaterialName As String, TextMatch As TEXT_MATCH_T ) As CGaudiBody

戻り値

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

引数

MaterialName		材料名
TextMatch		材料名の文字列の検索方法(TEXT_MATCH_Tを設定してください)

解説

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

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

 

材料名の検索方法を指定する第2引数の初期値は完全一致です。

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

 

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

 

完全一致	大文字小文字の区別なしで完全一致	部分一致	大文字小文字の区別なしで部分一致
PolyCarbonate	polycarbonate、POLYCARBONATEなど	Poly、carbonateなど	poly、POLY、Carbonateなど

 

実行例

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.FindBodyByMaterialName( "Polycarbonate" )

If Body Is Nothing Then
    Femtet.ShowLastError
End If

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

If Body Is Nothing Then
    Femtet.ShowLastError
End If