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

Peripheryプロパティ

定義

Periphery As double

値の取得		○
値の設定		×

引数

引数はありません

解説

周囲長(外周長や表面積)を取得します。
参照

実行例

メッセージボックスに表面積を表示します
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)

MsgBox Body.Periphery,vbInformation,"Periphery"