jingliang 发表于 2005-3-2 10:58:00

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

在用VB开发AutoCAD时候，


在图形区域内创建一个实体的时候，在执行程序时经常出现这样的错误，例如我要在实体空间范围内画一条直线，代码如下：


Private Sub Command2_Click()“点击按钮后话一条直线。AcadApp已经定义并创建了”<BR>                       Dim lineObj As AcadLine<BR>                       Dim startPoint(0 To 2) As Double<BR>                       Dim endPoint(0 To 2) As Double<BR>                       startPoint(0) = 0: startPoint(1) = 0: startPoint(2) = 0<BR>                       endPoint(0) = 2: endPoint(1) = 2: endPoint(2) = 0


                       Set lineObj = AcadApp.ActiveDocument.ModelSpace.AddLine(startPoint, endPoint)<BR>End Sub


程序执行后 提示：


        实时错误‘91’


对象变量或with块变量未设置


能不能帮忙给看一下，急，谢谢！<BR>

yulijin608 发表于 2005-3-2 11:39:00

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

jingliang 发表于 2005-3-2 12:33:00

解决了，很低级的错误

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


谢谢这位“虾兵蟹将”的指点！ <BR>
页: [1]
查看完整版本: 急！也许是个没注意的小问题，但是不知道错在哪里？希望尽快得到大家的帮助！