SetK関数

定義

SetK(X As Double, Y As Double, Z As Double)

戻り値

なし

引数

X		「X成分」または　「長手方向成分」
Y		「Y方向」
Z		「Z方向」

解説

ばね定数[N/m]の X成分（K_X）､Y成分（K_Y）､Z成分（K_Z）、長手方向成分（K_L）を設定します。

実行例

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).SetK (1.0), (0.0), (0.0)　'Y成分、Z成分の設定値は無視されます。

'XYZ成分の場合
Bnd.Spring(Index).SpringType = XYZ_SPRING_C
Bnd.Spring(Index).SetK (1.0), (1.0), (1.0)