把下面这段代码复制到CAD中可以运行画线，但是代码在excel 中就指挥不动CAD，要怎么写？本人业余的菜鸟，哪位大神帮忙指导下该怎么写？
 Dim pt1(0 To 2) As Double
    Dim pt2(0 To 2) As Double
   
    pt1(0) = 0
    pt1(1) = 0
    pt1(2) = 0
    pt2(0) = 1000: pt2(1) = 1000: pt2(2) = 0

   ThisDrawing.ModelSpace.AddLine pt1, pt2

具体要怎么连接？