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

bOnlyAxisFreeプロパティ

定義

bOnlyAxisFree As Boolean

値の取得		○
値の設定		○

引数

引数はありません

解説

軸方向以外拘束するかどうかを設定､取得します。

実行例

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

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

Index = Bnd.Ask ("JL1")

Bnd.Mechanical(Index).Condition = JOINT_LOAD_C
  
'ジョイント荷重境界JL2の定義
Bnd.Add "JL2"

Index = Bnd.Ask ("JL2")

Bnd.Mechanical(Index).Condition = JOINT_LOAD_C

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

Bnd.JointLoad(Index).bOnlyAxisFree = True

Bnd.JointLoad(Index).Set_Table 0, (0), (0)

Bnd.JointLoad(Index).Set_Table 1, (1), (1)

Bnd.JointLoad(Index).Set_Table 2, (2), (1)