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

Peripheryプロパティ

定義

Periphery As double

値の取得		○
値の設定		×

引数

引数はありません

解説

周囲長を取得します。
参照

実行例

周囲長をメッセージボックスに表示します。
Dim Femtet As New CFemtet
Dim Gaudi As CGaudi
Dim Body As CGaudiBody
Dim Body_P 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.CreatePolygonCylinder(Point,3,8,6)
MsgBox Body.Face(1).Periphery,vbInformation