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

IsExistプロパティ

定義

IsExist As Boolean

値の取得		○
値の設定		×

引数

ありません

解説

CGaudiBodyが存在するかどうかをBooleanで取得します。
存在する場合はTrue、存在しない場合はFalseです。

実行例

存在の有無をメッセージボックスで表示します
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.X =0
Point.Y =0
Point.Z =0

Set Body =Gaudi.CreateBox(Point,3,3,5)

Select Case Body.IsExist
Case True
MsgBox "存在します",vbInformation,"isExist"
Case False
    Femtet.ShowLastError
End Select