EXCEL VBAを使ってAutoCADにポリラインを描く方法

Sub CreatePolylineInAutoCAD()
  Dim acadApp As Object
  Dim acadDoc As Object
  Dim polyline As Object
  
  Dim pointNum As Long 'ポリラインの頂点の数
  Dim points() 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) * 2 + 1)  'points()配列の大きさを頂点の数に合わせる
  
  'ポリラインの頂点座標を設定（偶数はZ座標、奇数はY座標） 
  points(0) = 0 : points(1) = 5
  points(2) = -3 : points(3) = -4
  points(4) = 4.75 : points(5) = 1.5
  points(6) = -4.75 : points(7) = 1.5
  points(8) = 3 : points(9) = -4
  
  'ポリラインを作成
  Set polyline = acadDoc.ModelSpace.AddLightWeightPolyline(points)
  
  'ポリラインを閉じる(閉じる場合はTrue, 閉じない場合はFalseにする)
  polyline.Closed = True
  
  'ポリラインのハンドルを取得
  handle = polyline.Handle
  
  'メッセージボックスを表示
  MsgBox "ポリラインを作成しました。ポリラインのハンドル: " & handle
  
  'AutoCADを表示
  acadApp.Visible = True
End Sub