bDynプロパティ

定義

bDyn As Boolean

値の取得		○
値の設定		○

引数

引数はありません

解説

時間依存（一定[False]/変化[True] ）を設定､取得します。

実行例

Dim Femtet As New CFemtet
Dim Bnd As CBoundary
Dim Index As Integer

If Femtet.OpenNewProject() = False Then

Femtet.ShowLastError
End If

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

'ばね接続境界SPR1の定義
Bnd.Add "SPR1"

Index = Bnd.Ask ("SPR1")

Bnd.Mechanical(Index).Condition = SPRING_C

'ばね接続境界SPR2の定義
Bnd.Add "SPR2"

Index = Bnd.Ask ("SPR2")

Bnd.Mechanical(Index).Condition = SPRING_C

'ばね接続境界ペアSPR1-SPR2の定義
Bnd.AddPair "SPR1", "SPR2"
Index = Bnd.AskPair("SPR1", "SPR2")
Bnd.Spring(Index).SpringType = LD_SPRING_C
Bnd.Spring(Index).K_L = 1.0

Bnd.Spring(Index).bDyn = True

Bnd.Spring(Index).Set_Table 0, (0), (0) 'Index0 に時刻0、重み0を設定

Bnd.Spring(Index).Set_Table 1, (1), (1) 'Index1 に時刻1、重み1を設定

Bnd.Spring(Index).Set_Table 2, (3), (1.2) 'Index2 に時刻3、重み1.2を設定