[求助]运行时错误'424',要求对象!

vocabulary

各位大侠:

      我在form窗体下面其中的一个按钮里编写了如下一段代码,想在AutoCAD里画一条线条,但如果用下面"语句2"来画是完全没有问题的,但用"语句1"来画却出现错误:运行时错误'424',要求对象.但是在网络上有好多文章都是用语句1来画线的,能不能给讲讲是什么问题,还有这两个语句有什么区别,先谢谢了!

Private Sub CommandButton5_Click()
 Dim NewLine As Object
 Dim PT1(0 To 2) As Double
 Dim PT2(0 To 2) As Double
 T1(0) = 0#
 T1(1) = 0#
 T1(2) = 0#
 T2(0) = 50#
 T2(1) = 50#
 T2(2) = 0#
 Set NewLine = ModelSpace.AddLine(PT1, PT2)      '语句1
 Call ThisDrawing.ModelSpace.AddLine(PT1, PT2)  '语句2
End Sub

zxj_76

VB还是VBA？

vocabulary

是VBA.

翔羽

缺少程序运行所需要的drawing对象

应将Set NewLine = ModelSpace.AddLine(PT1, PT2)

改为:

Set NewLine = ThisDrawing.ModelSpace.AddLine(PT1, PT2)