急！也许是个没注意的小问题，但是不知道错在哪里？希望尽快得到大家的帮助！

jingliang

在用VB开发AutoCAD时候， 在图形区域内创建一个实体的时候，在执行程序时经常出现这样的错误，例如我要在实体空间范围内画一条直线，代码如下： Private Sub Command2_Click()“点击按钮后话一条直线。AcadApp已经定义并创建了”
Dim lineObj As AcadLine
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
startPoint(0) = 0: startPoint(1) = 0: startPoint(2) = 0
endPoint(0) = 2: endPoint(1) = 2: endPoint(2) = 0 Set lineObj = AcadApp.ActiveDocument.ModelSpace.AddLine(startPoint, endPoint)
End Sub 程序执行后 提示： 实时错误‘91’ 对象变量或with块变量未设置 能不能帮忙给看一下，急，谢谢！

yulijin608

如果你的AcadApp定义和创建没有问题的话,那你看是不是没有引用CAD类型库

jingliang

我知道问题所在了，由于我是一个编程初学者，在编程序的时候经常会犯一些最低级的错误。这个错误主要还是处在建立AcdApp对象的问题上，因为我把建立AcdApp对象的过程放在一个模块中的过程里了，但是在程序开头忘记调用那个过程了（也就是说，AcdApp对象没有在程序中被建立），所以导致了上述的错误。 谢谢这位“虾兵蟹将”的指点！