EXCEL VBAを使ってAutoCADにスプラインを描く方法

Sub CreateSplineInAutoCAD()
  Dim acadApp As Object
  Dim acadDoc As Object
  Dim spline As Object
  
  Dim pointNum As Long 'スプラインの頂点の数
  Dim points() As Double 'スプラインの頂点の座標を入れる配列
  Dim startVector(2) As Double '始点のベルトルを入れる配列
  Dim endVector(2) As Double '終点のベルトルを入れる配列
  
  Dim handle　As String 'ハンドルを格納する変数
  
  'AutoCADを起動または取得
  On Error Resume Next
  Set acadApp = GetObject(,"AutoCAD.Application")
  If acadApp Is Nothing Then
    Set acadApp = CreateObject("AutoCAD.Application")
  End If
  On Error GoTo 0
  
  'AutoCADを表示
  acadApp.Visible = True
  
  'AutoCADドキュメントを新規作成、または取得する。
  On Error Resume Next
  Set acadDoc = acadApp.ActiveDocument
  If acadDoc Is Nothing Then
    Set acadDoc = acadApp.Documents.Add
  End If
  On Error GoTo 0 
  
  'スプラインの頂点の数を設定
  pointNum = 5
  ReDim points((pointNum -1) * 3 + 2)  'points()配列の大きさを頂点の数に合わせる
  
  'スプラインの頂点座標を設定（座標、Y座標、Z座標、次の点のX座標、Y座標、、の順で設定） 
  points(0) = 0 : points(1) = 5 : points(2) = 0
  points(3) = -3 : points(4) = -4 : points(5) = 0
  points(6) = 4.75 : points(7) = 1.5 : points(8) = 0
  points(9) = -4.75 : points(10) = 1.5 : points(11) = 0
  points(12) = 3 : points(13) = -4 : points(14) = 0
  
  'スプラインの始点終点のベクトルの指定。今回は指定せずフリーとする。
  startVector(0) = 0
  startVector(1) = 0
  startVector(2) = 0
  endVector(0) = 0
  endVector(1) = 0
  endVector(2) = 0
  
  'スプラインを作成
  Set spline = acadDoc.ModelSpace.AddSpline(points, startVector, endVector)
  
  'スプラインのハンドルを取得
  handle = spline.Handle
  
  'メッセージボックスを表示
  MsgBox "スプラインを作成しました。スプラインのハンドル: " & handle
  
  'AutoCADを表示
  acadApp.Visible = True
End Sub