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

BodyKeyプロパティ

定義

BodyKey As Long

値の取得		○
値の設定		×

引数

ありません

解説

CGaudiBodyのBodyKeyを取得

実行例

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

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

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



Point.X =0
Point.Y =0
Point.Z =0

Set Body(0)=Gaudi.CreateVertex(Point)
Set Body(1)=Gaudi.CreateCircleEdge(Point,5)
Set Body(2)=Gaudi.CreateBox(Point,5,4,7)

MsgBox Body(1).BodyKey,vbInformation