|
ホーム / モデリング / CGaudiBody / 関数 / DivideSheetBody
DivideSheetBody関数
定義
DivideSheetBody(pnt As CGaudiPoint,Distance As Double,newBody( ) As CGaudiBody) As Boolean
[Python]
DivideSheetBody_py(CGaudiPoint pnt, double Distance)
戻り値
| True | 成功 | |
| False | 失敗 |
[Python]
| [0] | True:成功、False:失敗 | |
| [1][0～作成されたボディ数-1] | 切断によって作成されたCGaudiBody(配列） |
引数
| pnt | 第１指定点 | |
| Distance | 第１指定点からの距離 | |
| newBody( ) | 切断によって作成されたCGaudiBody(配列） |
[Python]
| pnt | 第１指定点(CGaudiPoint) | |
| Distance | 第１指定点からの距離 |
解説
対象のSheetBodyを、第１指定点から距離Distance分の幅を持たせて分断します。分断対象としてSheetBody以外は指定した場合、切断面が交差する場合、指定点が対象SheetBodyの外周上に無い場合、指定点が異なるシートボディにある場合は、エラーとしてFalseが返ります。
実行例
Dim Femtet As New CFemtetDim Gaudi As CGaudi
'新規プロジェクト作成
If Femtet.OpenNewProject() = False Then
Femtet.ShowLastError
End If
Dim Body() As CGaudiBody
Gaudi.RedrawMode = False
'------- CreateRect -------
ReDim Preserve Body(0) As CGaudiBody
Dim Point0 As New CGaudiPoint
Point0.SetCoord 5#, 5#, 0#
Set Body(0) = Gaudi.CreateRect(Point0, 10#, -5#)
'------- DivideSheetBody -------
ReDim Preserve Body(1) As CGaudiBody
Dim Point1 As New CGaudiPoint
Dim BodyArray0() As CGaudiBody
Point1.SetCoord 8#, 0#, 0#
Body(0).DivideSheetBody Point1, 3.5, BodyArray0
Set Body(1) = BodyArray0(0)
Gaudi.Redraw
これで対象SheetBodyが分断されました
 |
→ |  |