子过程或函数未定义

chenye07130 · 发表于 2014-7-28 14:12:00

最近我在使用2007版CAD中的VBA编写程序，是想将EXCEL表格和CAD连接起来，但是我按照书本上的代码来打的，出现了说子过程或函数未定义(AddTableline和AddTableText )，，求帮助！！
Dim r As Object
If OptionButton1.Value = Ture Then

      For Each r In xlSheet.UsedRange

         AddTableLine ThisDrawing.Blocks("*Model_Space"), iPt, r

         AddTableText ThisDrawing.Blocks("*Model_Space"), iPt, r
      Next
      Else

         For Each r In xlApp.Selection

         AddTableLine ThisDrawing.Blocks("*Model_Space"), iPt, r

         AddTableText ThisDrawing.Blocks("*Model_Space"), iPt, r
      Next
End If