画椭圆的函数出现问题请指教

flysnow

(defun vlellipse(cenpt majoraxis radiusratio / acadobj docobj mspace vlcenpt vlmajoraxis elobj)
  (vl-load-com)
  (setq acadobj (vlax-get-acad-object))
  (setq docobj (vla-get-activedocument acadobj))
  (setq mspace (vla-get-modelspace docobj))
  (setq vlcenpt (vlax-3d-point cenpt))
  (setq vlmajoraxis (vlax-3d-point majoraxis))
  (setq elobj (vla-addellipse mspace vlcenpt vlmajoraxis radiusratio))  
)

上边是画椭圆的函数，本以为很简单，结果发现只有椭圆圆心在0,0点时，画的椭圆才是自己要的，在其他地方的画，椭圆就画的很乱了。请大师解决一下。
例如(setq cenpt (list 0 0) majoraxis (list 20 0) radiusratio 0.6);画的就是正常的
     (setq cenpt (list 50 0) majoraxis (list 70 0) radiusratio 0.6)；画的就不对了（按本意此处画的椭圆和上边的是一样的，只是圆心不同，但实际画出来的实在相差太大）
请大师解决，我哪里错了。


坐标是世界坐标系，捕捉关闭试验过了，也不行

highflybird

首先检查一下捕捉是否关闭了，其次检查一下是否是UCS.