ホーム / モデリング / CGaudiBody / 関数 / Resize

Resize関数

定義

Resize(P As CGaudiPoint, dScale As Double) As Boolean

戻り値

True		成功
False		失敗

引数

P		拡大縮小の基準点
vec		倍率（0以外の値）

解説

基準点を中心として、Bodyを倍率分拡大縮小します。

実行例

Dim Femtet As New CFemtet
Dim Gaudi As CGaudi

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

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



'------- SetPlane -------
Dim Plane1 As new CGaudiPlane
Plane1.Location.SetCoord 0.0, 0.0, 0.0
Plane1.MainDirection.SetCoord 0.0, 0.0, 1.0
Plane1.RefDirection.SetCoord 1.0, 0.0, 0.0
Gaudi.SetPlane Plane1

'------- CreateBox -------
Dim Point0 As new CGaudiPoint
Point0.SetCoord 0, 0, 0
Gaudi.CreateBox Point0, 10, 10, 10

'------- CreateBox -------
Dim Point1 As new CGaudiPoint
Point1.SetCoord 0.0, 0.0, 10.0
Gaudi.CreateBox Point1, 5, 5, -2

'------- Subtract -------
Dim Body0 As CGaudiBody
Dim Body1(0) As CGaudiBody
Dim Body2() As CGaudiBody
Set Body0=Gaudi.Body(0)
Set Body1(0)=Gaudi.Body(1)
Body0.Subtract Body1, Body2, True

'------- Resize -------
Dim Body3 As CGaudiBody
Dim Point2 As new CGaudiPoint
Set Body3=Gaudi.Body(2)
Point2.SetCoord 0.0, 0.0, 0.0
If Body3.Resize（Point2, 2） = False Then
Femtet.ShowLastError
End If