JLプロパティ

定義

JL As Double

値の取得		○
値の設定		○

引数

引数はありません

解説

ジョイント荷重の境界ペア間のジョイント荷重[N]を設定､取得します。

実行例

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

'ジョイント荷重境界J1の定義
Bnd.Add "JL1"

Index = Bnd.Ask ("JL1")

Bnd.Mechanical(Index).Condition = JOINT_LOAD_C

'ジョイント荷重境界J2の定義
Bnd.Add "JL2"

Index = Bnd.Ask ("JL2")

Bnd.Mechanical(Index).Condition = JOINT_LOAD_C

'ジョイント荷重境界ペアJ1-J2の定義
Bnd.AddPair "JL1", "JL2"
Index = Bnd.AskPair("JL1", "JL2")
Bnd.JointLoad(Index).JL = 2.0