错误: Automation 错误。 无数据库

wmz

请教一下：我的苹果笔记本上装双系统，在windows7系统上安装ACAD2006，当执行以下函数时
(defun endpt (e / eobj p1 p2)
   （vl-load-com)
  (setq eobj (vlax-ename->vla-object e)
         p1  (vlax-curve-getstartpoint eobj)
         p2  (vlax-curve-getendpoint eobj)
  )
)
出现： 错误: Automation 错误。 无数据库
该怎样解决？

NetBee

inter芯片， win7 64位 cad2006
没有问题

1. (defun endpt (e / eobj p1 p2)
   
2.    (vl-load-com)
   
3.   (setq eobj (vlax-ename->vla-object e)
   
4.          p1  (vlax-curve-getstartpoint eobj)
   
5.          p2  (vlax-curve-getendpoint eobj)
   
6.   )
   
7. )
   

(defun endpt (e / eobj p1 p2)<br />    (vl-load-com)<br />   (setq eobj (vlax-ename->vla-object e)<br />          p1  (vlax-curve-getstartpoint eobj)<br />          p2  (vlax-curve-getendpoint eobj)<br />   )<br /> )<br />

_$ (endpt(car(entsel)))
(104.143 38.045 0.0)

mccad

要调试哪句出错，估计去到(vl-load-com)就出错。重装CAD吧。