ホーム / モデリング / CGaudiFace / 関数 / Shell

Shell関数

定義

Shell (dThickness As Double) As Boolean

戻り値

True		成功
False		失敗

引数

dThickness

厚み

解説

SolidBodyの指定面を取り除き、残った面に指定された厚みを与えて空洞化します。  

実行例

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

       

'------- CreateBox -------

Dim Body0 As CGaudiBody

Dim Point0 As New CGaudiPoint

Point0.SetCoord 0, 0, 0

Set Body0 = Gaudi.CreateBox(Point0, 5, 5, 5)

    

'------- Shell -------

Dim Face0 As CGaudiFace

Set Face0 = Body0.GetFaceByID(36)

Face0.Distance 1.0

  
 
　　　         実行前　　 　　　　                 実行後