Femtet2026.0マクロヘルプ/マニュアル
 

ホーム / モデリング / CGaudiBody / プロパティ / BodyAttributeName

BodyAttributeNameプロパティ

定義

BodyAttributeName As String
値の取得  
値の設定   ×

引数

ありません

解説

BodyAttribute名を取得します。

実行例

メッセージボックスにBody名が表示されます
Dim Femtet As New CFemtet
Dim Gaudi As CGaudi
Dim Body As CGaudiBody
Dim Point As New CGaudiPoint

'新規プロジェクト作成
If Femtet.OpenNewProject() = False Then
    Femtet.ShowLastError
End If

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



Point.SetCoord 0, 0, 0

Set Body = Gaudi.CreateBox(Point, 3, 3, 5)
If Body.SetName("Box", "Wood") = False Then
    Femtet.ShowLastError
End If

MsgBox Body.BodyAttributeName, vbInformation, "BodyAttributeName"