把下面这段代码复制到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

要先和CAD建立连接，确定操作的对象。

具体要怎么连接？

首先在引用中添加CAD
Dim acadapp As AcadApplication
Set acadapp = GetObject(, "AutoCAD.Application")
后面的自己研究吧