[求助]：尺寸标注出错：“对象已被删除！”

mlr_nj

恳请，高手指点：
Sub Example_AddDimAligned()
    Dim ExcelApp As New Excel.Application
    Dim dimObj As AcadDimAligned
    Dim fenkua(500, 2) As Double
    Dim pt1(2) As Double
    Dim pt2(2) As Double
    Dim pt3(3) As Double
    Dim text As String
    Dim dunshu As Double
    Dim bili As Integer
    ExcelApp.Workbooks.Open "e:\bz\out.xls", , ReadOnly
    Dim i As Integer
    bili = 2
    i = 5
    With ExcelApp.ActiveWorkbook.Worksheets("sheet2")
      Do While .Range("a" & i) <> ""
        fenkua(i - 4, 0) = .Range("c" & i)
        fenkua(i - 4, 1) = .Range("B" & i)
        fenkua(i - 4, 2) = 0
        i = i + 1
        dunshu = i - 5
      Loop
    End With
    ExcelApp.Workbooks.Close
    ExcelApp.Quit
      For i = 1 To dunshu - 1
          pt1(0) = fenkua(i, 0)
          pt1(1) = fenkua(i, 1)
          pt1(2) = 0
          pt2(0) = fenkua(i + 1, 0)
          pt2(1) = fenkua(i + 1, 1)
          pt2(2) = 0
          pt3(0) = (fenkua(i, 0) + fenkua(i + 1, 0)) / 2 + 2.5 * 2 * bili
          pt3(1) = (fenkua(i, 1) + fenkua(i + 1, 1)) / 2 + 2.5 * 2 * bili
          pt3(2) = 0
          text = 30
          Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, pt3)
          dimObj.TextOverride = text
       Next i
     ZoomAll
End Sub
数据文件已经有了。
运行后，出错，错误提示对象已被删除
找不到错误在哪儿，急啊～！

雪山飞狐(lzh)

贴一个Excel文件的例子上来，要不然怎么调试！

mlr_nj

感谢lzh741206  老师再次帮忙。
对象没有错误，数组定义错了