大家遇到过这个问题吗?

/db_自贡黄明儒_

在循环中,第一次调用(vla-getboundingbox e 'bp 'up)失败，显示信息如：
(*ERROR* "Automation Error. Null extents") LAP+7
(_call-err-hook #<USUBR @092eba14 *ERROR*> "Automation Error. Null
extents")
第二次循环时，又成功了,以前没有碰到过，到底是怎么回事？
程序如下:

(setq e (entlast))
然后画一个圆
(setq e (entnext e))
(cond ((equal (type e) 'ENAME) (setq e (vlax-ename->vla-object e))))
(vla-getboundingbox e 'bp 'up)

/db_自贡黄明儒_

山人自有妙计，土办法解决了。

newer

/db_自贡黄明儒_ 发表于 2014-11-26 11:14
山人自有妙计，土办法解决了。

咋解决的？

st788796

j重启cad.  

/db_自贡黄明儒_

st788796 发表于 2014-11-26 14:30
j重启cad.

刚启动cad,就执行我那段代码，不行的。你不信试试

/db_自贡黄明儒_

newer 发表于 2014-11-26 14:24
咋解决的？

在上面那条代码前，后画一条线
执行完上面那段代码，然后删除线{:soso_e113:}

st788796

e 是 nil ，entnext还是nil

/db_自贡黄明儒_

st788796 发表于 2014-11-26 14:51
e 是 nil ，entnext还是nil

首先有e ,然后我画了一个圆，(entnext e)不为nil。但仍有问题的。

newer

/db_自贡黄明儒_ 发表于 2014-11-26 15:20
首先有e ,然后我画了一个圆，(entnext e)不为nil。但仍有问题的。

e都entlast了，你又entnetxt, 想做什么呢？

/db_自贡黄明儒_

newer 发表于 2014-11-26 15:26
e都entlast了，你又entnetxt, 想做什么呢？

后来又画了一个圆（就是生成一个实体) ,然后求这个实体的包围盒

st788796

/db_自贡黄明儒_ 发表于 2014-11-26 15:48
后来又画了一个圆（就是生成一个实体) ,然后求这个实体的包围盒

后来的还是 entlast. 何必 entnext

/db_自贡黄明儒_

st788796 发表于 2014-11-27 07:21
后来的还是 entlast. 何必 entnext

尽管你这样做可以避免上述问题，但还是没有说明上面的代码为什么不行?

st788796

图中没有实体时
(setq e (entlast)) ===> nil
然后画一个圆
(setq e (entnext e)) ===> nil

后面当然出错，第二次运行时 entlast 就有值了，所以不出错，你应该先判断
(if (setq e (entlast)) ....

/db_自贡黄明儒_

st788796 发表于 2014-11-28 09:42
图中没有实体时
(setq e (entlast)) ===> nil
然后画一个圆

我是图中有实体,一打开cad就执行上面的代码有错的。同你说的这情况有区别

st788796

/db_自贡黄明儒_ 发表于 2014-11-28 09:49
我是图中有实体,一打开cad就执行上面的代码有错的。同你说的这情况有区别

你打印下 e 不就知道是不是 nil 了！
另外画完的图元用entlast获取不更简单