EXCEL VBAを使ってFEMAPのカーブ(ライン)を２点のポイントから作成する方法

Sub CreateCurveLineInFemap()

  'Femap model オブジェクトの生成
  Dim f As Object
  Set f = GetObject(,"femap.model")
  
  'カーブオブジェクトの生成
  Dim cu As Object
  Set cu = f.feCurve
  
  'カーブ(ライン)の設定
  cu.Type = 0. 'カーブのタイプ。0を代入するとラインになる。
  cu.stdPoint(0) = 1 'カーブの始点となるポイントID。この場合1となる。
  cu.stdPoint(1) = 2 'カーブの終点となるポイントID。この場合2となる。
  
  'カーブの作成
  cu.put(1) '登録するカーブIDの入力。この場合ID=1となる。
  
  MsgBox "カーブ(ライン)を作成しました。"
  
  'オブジェクト開放
  Set cu = Nothing
  Set f = Nothing
  
End Sub

Sub CreateCurveLineInFemap()

  'Femap model オブジェクトの生成
  Dim f As Object
  Set f = GetObject(,"femap.model")
  
  'カーブオブジェクトの生成
  Dim cu As Object
  Set cu = f.feCurve
  
  'カーブ(ライン)の設定
  cu.Type = 0. 'カーブのタイプ。0を代入するとラインになる。
  cu.stdPoint(0) = Cells(2, 2) 'カーブの始点となるポイントID。
  cu.stdPoint(1) = Cells(2, 3)  'カーブの終点となるポイントID。
  
  'カーブの作成
  cu.put(Cells(2, 1)) '登録するカーブIDの入力。
  
  MsgBox "カーブ(ライン)を作成しました。"
  
  'オブジェクト開放
  Set cu = Nothing
  Set f = Nothing
  
End Sub

Sub GetCurveLineInFemap()

  'Femap model オブジェクトの生成
  Dim f As Object
  Set f = GetObject(,"femap.model")
  
  'カーブオブジェクトの生成
  Dim cu As Object
  Set cu = f.feCurve
  
  'カーブ(ライン)の取得
  cu.Get(Cells(2, 1))  'ここで指定したカーブIDの情報を取得する。
  
  '各値の出力
  If cu.Type = 0 Then  'カーブのタイプが0(=ライン)の場合
    if cu.stdPoint(0) <> 0 And cu.stdPoint(1) <> 0 Then  '始点と終点0が存在する場合
      Cells(2, 2) = cu.stdPoint(0) 'カーブの始点となるポイントID。
      Cells(2, 3) = cu.stdPoint(1) 'カーブの終点となるポイントID。
      MsgBox "指定したIDのカーブ情報を取得しました。"
    Else
      MsgBox "指定したIDのカーブは存在しません。"
    End If
  Else
    MsgBox "指定したIDのカーブはラインではありません。"
  End If
  
  'オブジェクト開放
  Set cu = Nothing
  Set f = Nothing
  
End Sub