画椭圆的函数出现问题请指教
本帖最后由 flysnow 于 2016-4-12 20:20 编辑(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)；画的就不对了（按本意此处画的椭圆和上边的是一样的，只是圆心不同，但实际画出来的实在相差太大）
请大师解决，我哪里错了。
坐标是世界坐标系，捕捉关闭试验过了，也不行 首先检查一下捕捉是否关闭了，其次检查一下是否是UCS.
页:
[1]