vb链接autocad 2007问题

Question

以下程序，在引用上，将autocad 2004 Libray 打勾程序通过
Dim Xls As New XlsMdbTxtData
Private Sub Form_Load()
  Dim ojbLine As AcadLine
  Dim pp(0 To 2) As Double, ppp(0 To 2) As Double
  For jj = 0 To 1
    pp(jj) = jj
    ppp(jj) = jj * 5
  Next jj
  Set objline = objModelSpace.AddLine(pp, ppp)
  Dim xlSheet1 As Worksheet
  Set xlSheet1 = Xls.ReturnxlSheet("Sheet1")
  For ii = 1 To 10
    xlSheet1.Cells(ii, 2) = ii
  Next ii
End SubFunction objModelSpace() As AcadModelSpace
  Dim appAutoCad As AutoCAD.AcadApplication
  On Error Resume Next
  Set appAutoCad = GetObject(, "AutoCAD.Application")
  If Err Then
    Err.Clear
    Set appAutoCad = CreateObject("AutoCAD.Application")
    
  End If
  appAutoCad.Visible = True
  Dim AcadDoc As AcadDocument
  Set AcadDoc = appAutoCad.ActiveDocument
  'Dim objModelSpace As AcadModelSpace
  Set objModelSpace = AcadDoc.ModelSpaceEnd Function
可是在引用上，将autocad 2007 Libray 打勾,上述程序不通过,问这是为什么？？？

Answer 1

这个要看autocad的vba是否做了什么更新,在autocad的vba帮助里查询出错语句里的事件/方法之类是否作了修改.