ホーム / 境界条件の設定 / CSpring / プロパティ / Preload

Preloadプロパティ

定義

Preload As Double

値の取得		○
値の設定		○

引数

引数はありません

解説

ばね接続予圧荷重の値[N]を設定、取得します。
予圧によりばねが縮んでいる場合は負の値を、ばねが伸びている場合は正の値を入力してください。

実行例

Dim Femtet As New CFemtet
Dim Bnd As CBoundary

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).Preload = 10