ExportToDB関数

定義

ExportToDB (DataName As String,expBodies() As CGaudiBody, bForce As Boolean) As Boolean

[Python]
ExportToDB_py(str DataName, CGaudiBody[] expBodies, bool bForce)

戻り値

True		成功
False		失敗

[Python]

True		成功
False		失敗

引数

DataName		モデルデータベースでの登録名(データ名の指定方法は解説の欄を参照ください)
expBodies		エクスポートするCGaudiBodyの配列(動的配列)
bForce		DataNameで指定された名前のデータがすでに存在する場合に上書きするかどうか

[Python]

DataName		モデルデータベースでの登録名(データ名の指定方法は解説の欄を参照ください)
expBodies		エクスポートするCGaudiBodyの配列(動的配列)
bForce		DataNameで指定された名前のデータがすでに存在する場合に上書きするかどうか

解説

引数で指定されたCGaudiBodyを、引数で指定された登録名でモデルデータベースへエクスポートします。
登録名は、モデルデータベースのフォルダ名を含めたフルパス指定になります。

（例1）モデルDBフォルダ直下にデータAという名前でエクスポートする場合
Dim BodyArray() As CGaudiBody
ReDim Preserve Body(0) As CGaudiBody

Set Body(0) = Gaudi.Body(Gaudi.BodyKey(0))

　　　 Gaudi.ExportToDB "モデルDB/データA", BodyArray, True

（例2）モデルDB/部品フォルダにデータBという名前でエクスポートする場合
Dim BodyArray() As CGaudiBody
　　　ReDim Preserve Body(0) As CGaudiBody
Set Body(0) = Gaudi.Body(Gaudi.BodyKey(0))
　　　 Gaudi.ExportToDB "モデルDB/部品/データB", BodyArray, True

この関数を使用するためには、事前にモデルデータベースのファイルパス設定と、

　　ユーザーデータベースのファイルパスを設定しておいてください。

登録するモデルデータに、[ボディ属性]、[材料定数]、[境界条件] が付与されていた場合は、
それらの各属性も、[ボディ属性]、[材料定数]、[境界条件]ユーザーデータベースに自動登録されます。

マクロで各種データベースファイルパスを設定する場合は、下記関数をご利用ください。

CFemtet.ModelDBPath : モデルデータベースのファイルパス設定

CFemtet.BtrDBPath : ボディ属性ユーザーデータベースのファイルパス設定

CFemtet.MtlDBPath : 材料定数ユーザーデータベースのファイルパス設定

CFemtet.BndDBPath : モデルデータベースのファイルパス設定

実行例

Dim Femtet As New CFemtet
Dim Gaudi As CGaudi
Dim Body() As CGaudiBody

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

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

'Boxを３つ作成

ReDim Preserve Body(0) As CGaudiBody

Dim Point0 As New CGaudiPoint

Point0.SetCoord -6.5, -6#, 0#

Set Body(0) = Gaudi.CreateBox(Point0, 4.8, 4#, 3.4)

ReDim Preserve Body(1) As CGaudiBody

Dim Point1 As New CGaudiPoint

Point1.SetCoord 1#, -3.5, 0#

Set Body(1) = Gaudi.CreateBox(Point1, 4.2, 5#, 4.7)

ReDim Preserve Body(2) As CGaudiBody

Dim Point2 As New CGaudiPoint

Point2.SetCoord -6#, 3.5, 0#

Set Body(2) = Gaudi.CreateBox(Point2, 2.6, 4.8, 3.6)

'再描画

Femtet.Redraw

'エクスポート

If Gaudi.ExportToDB("モデルDB/データ/データA", Body, True) = False Then

Femtet.ShowLastError

End If