[VBA程序]：从excel到cad的坐标表注

wjkzhjt

我刚学vb，各位大虾请帮忙，错在哪了！！！！！！！
代码：
Public Sub 坐标标注()
  Dim acadApp As AcadApplication
  Dim i As Integer
  Dim pt(0 To 3) As Double
  Dim actext As AcadText
  Dim acpoint As AcadPoint
  
  Dim text As String
  
  On Error Resume Next

  Set acadApp = GetObject(, "AutoCAD.Application")
  If Err Then
    Err.Clear
    Set acadApp = CreateObject("AutoCAD.Application")
    If Err Then
      MsgBox Err.Description
      Exit Sub
    End If
    acadApp.Visible = True
  End If
  
  ' ÔËÐб¾¹ý³ÌÇ°£¬ÇëÏÈÑ¡¶¨ÐèÒª´¦ÀíµÄ×ø±êÊý¾Ý
  With ActiveWindow.RangeSelection
    For i = 1 To .Rows.Count
      pt(0) = .Cells(i, 1)
      pt(1) = .Cells(i, 2)
      pt(2) = 0
      text = pt(0) & "," & pt(1) & "," & pt(2)
  
     ' Set actext = acadApp.ActiveDocument.ModelSpace.Addtext(text, pt, 2)
    Set acpoint = acadApp.ActiveDocument.ModelSpace.AddPoint(pt, 5)
   
    Next
  End With
End Sub