Question

使用excel vba在cad里面画一条直线的问题

在excel里面使用VBA，调用cad，然后在cad里面画一条直线
代码如下：
Public Sub a()
Dim cad As Object
Dim Docs As Object
Dim ThisDrawing As Object
Set cad = GetObject(, "autocad.application")
Set ThisDrawing = cad.ActiveDocument

Dim pt1 , pt2
pt1 = ThisDrawing.utility.getpoint(, "pt1")
pt2 = ThisDrawing.utility.getCorner(pt1, "pt2")
Dim line As AcadLine
line = ThisDrawing.modelspace.AddLine(pt1, pt2)

End Sub

问题如下：
倒数第三行的Dim line As AcadLine这一句的时候显示“用户定义未定义”。报错，我该怎么办呢？

Answer 1

这是没有引入相关的定义，一般这样就可以了：
Dim line

追问

但是我不太想引用啊，因为我是做给一个同事的，他不懂vba，比如他换电脑了，excel和cad版本不同，那就意味着不能用了。