EXCEL VBAを使ってFEMAPの2つのノード間にビームのラインエレメントを作成する方法

Sub CreateBeamElementInFemap()
  'Femap model オブジェクトの生成
  Dim f As Object
  Set f = GetObject(,"femap.model")
  
  '要素オブジェクトの生成
  Dim el As Object
  Set el = f.feElem
  
  '線形ビームエレメントの作成
  el.Type = 5 '線形ビームの場合は5に代入
  el.propID = 1 ' 作成するビーム要素のプロパティID
  el.topology = 0 '要素の形状　ラインの場合は0を代入
  el.orientID = 0 '要素がバーやビームなどの場合のオリエンテーションノードID。0を入力するとorientプロパティで方向ベクトルの指定をする。
  el.orient(0) = -1 'バー要素やビーム要素の方向ベクトル。Doube型。
  el.orient(1) = -1 'バー要素やビーム要素の方向ベクトル。Doube型。
  el.orient(2) = 0  'バー要素やビーム要素の方向ベクトル。Doube型。
  el.Node(0) = 1 '始点のノードIDの代入。
  el.Node(1) = 2 '終点のノードIDの代入。
  el.Put(1) '要素の作成、上書き(カッコ内に作成したい要素のIDを入力)
  
  'オブジェクト開放
  Set el = Nothing
  Set f = Nothing
  
End Sub

Sub CreateBeamElementInFemap()
  'Femap model オブジェクトの生成
  Dim f As Object
  Set f = GetObject(,"femap.model")
  
  '要素オブジェクトの生成
  Dim el As Object
  Set el = f.feElem
  
  '線形ビームエレメントの作成
  el.Type = 5 '線形ビームの場合は5に代入。
  el.propID = Cells(2, 2) ' 作成するビーム要素のプロパティID
  el.topology = 0 '要素の形状　ラインの場合は0を代入
  el.orientID = 0 '要素がバーやビームなどの場合のオリエンテーションノードID。0を入力するとorientプロパティで方向ベクトルの指定をする。
  el.orient(0) = -1 'バー要素やビーム要素の方向ベクトル。Doube型。
  el.orient(1) = -1 'バー要素やビーム要素の方向ベクトル。Doube型。
  el.orient(2) = 0  'バー要素やビーム要素の方向ベクトル。Doube型。
  el.Node(0) = Cells(2, 3) '始点のノードIDの代入。
  el.Node(1) = Cells(2, 4) '終点のノードIDの代入。
  el.Put(Cells(2, 1)) '要素の作成、上書き(カッコ内に作成したい要素のIDを入力)
  
  'オブジェクト開放
  Set el = Nothing
  Set f = Nothing
  
End Sub

Sub GetBeamElementInFemap()
  'Femap model オブジェクトの生成
  Dim f As Object
  Set f = GetObject(,"femap.model")
  
  '要素オブジェクトの生成
  Dim el As Object
  Set el = f.feElem

  '線形ビームエレメントの取得
  el.Get(Cells(2, 1)) '取得したい要素ID
  Cells(2, 2) = el.propID '要素のプロパティIDの取得
  Cells(2, 3) = el.Node(0) '始点のノードIDの取得。
  Cells(2, 4) = el.Node(1) '終点のノードIDの取得。
  
  'オブジェクト開放
  Set el = Nothing
  Set f = Nothing
  
End Sub