子过程或函数未定义

chenye07130

最近我在使用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

zzyong00

代码没打全

chenye07130

zzyong00 发表于 2014-7-28 22:48
代码没打全

代码哪里没打全，求详细解释~(变量我都已经定义过了，是前面的内容，我没有在这里写出来。。)

机械工程师

缺少  AddTableLine 的代码

wwswwswws

AddTableLine 这是一个自定义函数，这个函数的代码没有，当然会出现函数未定义错误了