[求助]：初学VBA，遇到个小问题，请帮忙看看源程序的错误。

bigcat9898

Sub line2()
'通过用户输入的两点来绘制直线
'练习用的程序

'错误在哪里呢？

Dim VarRet As Variant
Dim newline As Object
Dim pt1(0 To 2) As Double
Dim pt2(0 To 2) As Double

VarRet = Utility.GetPoint(pt1, "start point:")
pt1(0) = VarRet(0)
pt1(1) = VarRet(1)
pt1(2) = VarRet(2)

VarRet = Utility.GetPoint(pt2, "end point:")
pt2(0) = VarRet(0)
pt2(1) = VarRet(1)
pt2(2) = VarRet(2)

Set newline = ModelSpace.AddLine(pt1, pt2)

End Sub

不胜感激！

雪山飞狐(lzh)

dim p1,p2
p1=ThisDrawing.Utility.GetPoint(, "start point:")
p2=ThisDrawing.Utility.GetPoint(p1, "end point:")
Set newline = ThisDrawing.ModelSpace.AddLine(p1, p2)

wtkc

仔细看说明，是双精度的变体数组，而不是双精度数组

bigcat9898

VarRet = Utility.GetPoint(pt1, "start point:")
pt1(0) = VarRet(0)
pt1(1) = VarRet(1)
pt1(2) = VarRet(2)

VarRet = Utility.GetPoint(pt2, "end point:")
pt2(0) = VarRet(0)
pt2(1) = VarRet(1)
pt2(2) = VarRet(2)

Set newline = ModelSpace.AddLine(pt1, pt2)

改为：

VarRet = ThisDrawing.Utility.GetPoint(, "start point:")
pt1(0) = VarRet(0)
pt1(1) = VarRet(1)
pt1(2) = VarRet(2)

VarRet = ThisDrawing.Utility.GetPoint(pt1, "end point:")
pt2(0) = VarRet(0)
pt2(1) = VarRet(1)
pt2(2) = VarRet(2)

Set newline = ThisDrawing.ModelSpace.AddLine(pt1, pt2)

调试就通过了。

为什么一定要加 Thisdrawing.  呢？
可不可以不加？需要怎么设置？

非常感谢热心的斑竹和wtke的提醒！

雪山飞狐(lzh)

Thisdrawing表示当前文档
VBA里只有两个AutoCAD外露对象：Applicatin和ThisDrawing，所有对当前应用程序或当前文档的操作都需要调用这两个对象之一完成