[LISP程序]：椭圆组码41、42的疑问

LADESIGNER

41代表起始角度，42终止角度，如为完整椭圆，应分别为0、2PI。实验了很多次，找不到这个
起始角度、终止角度是怎么来的。谁知道请告诉我。

xyp1964

2004版，41、42码符合要求：
选择实体 :
选择对象: ((-1 . <图元名: 7ed8a018>) (0 . ELLIPSE) (330 . <图元名: 7ed7ed18>)
(5 . 158B) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . 0) (100 .
AcDbEllipse) (10 66554.5 25817.4 0.0) (11 2265.43 0.0 0.0) (210 0.0 0.0 1.0)
(40 . 0.418033) (41 . 0.0) (42 . 6.28319))

LADESIGNER

怪我没说清楚：一个椭圆弧，如何由组码41、42找到两个端点的坐标。

xyp1964

如果只是找两个端点的坐标可以不考虑41、42码，本程序适合任意曲线：
[php]
(defun c:test (/ e pt1 pt2)
  (vl-load-com)
  (setq        e   (car (entsel "\n选择对象 : "))
        pt1 (vlax-curve-getstartPoint e)
        pt2 (vlax-curve-getEndPoint e)
  )
  ;(command "line" pt1 pt2 "")
  (grvecs (list 1 pt1 pt2))
)
[/php]

ll_j

以前在Autodesk网站下载的文档，可以参考一下。

LADESIGNER

谢谢！楼上的文件是在AUTODESK网站下载的吗？陈伯雄老师的书引用过这个范例。这个椭圆的长轴和坐标轴平行，是个特殊情况，已经解决了。对于一般情况，我还是没搞清楚。

sdwy19691229

R14 也这样。

zxq0220

41、42的弧度角是相对于点10和点11的角度，如果要用程序计算该点，要先按标准椭圆（即长轴水平放置）用41和42组码计算，再按从点10到点11的角度进行坐标变换，这样就可以求出椭圆的起始点和结束点的坐标值了。

LADESIGNER

最初由 zxq0220 发布
[B]41、42的弧度角是相对于点10和点11的角度，如果要用程序计算该点，要先按标准椭圆（即长轴水平放置）用41和42组码计算，再按从点10到点11的角度进行坐标变换，这样就可以求出椭圆的起始点和结束点的坐标值了。 [/B]

      应该是这样的。首先找到椭圆的圆心，组码10，再找到长轴端点之一，算出短轴长度，找出短轴端点之一，这样一个完整的椭圆就出来了，没有问题。我最初理解起始角度、终止角度应该是长轴绕圆心旋转出来的角度，可是你看看我第一贴里的图片，任何一个角度都不符合41、42。从椭圆方程上看，是不是这个角度只是一个参数而已，要是在图中画出来并没有图面上的意义，也就是不可以简单的旋转出来。

xyp1964

最初由 zxq0220 发布
[B]41、42的弧度角是相对于点10和点11的角度，如果要用程序计算该点，要先按标准椭圆（即长轴水平放置）用41和42组码计算，再按从点10到点11的角度进行坐标变换，这样就可以求出椭圆的起始点和结束点的坐标值了。 [/B]

太烦琐了，直接找起点和终点多简单！

zxq0220

最初由 xyp1964 发布
[B]太烦琐了，直接找起点和终点多简单！
[/B]

您的程序只能在高版本上运行，还需要考虑一下R14的用户。在这里一楼楼主主要的是想了解椭圆弧的绘制原理。

一楼楼主：看下面的图，是否能解释您的疑问。

haibinpro

最初由 xyp1964 发布
[B]2004版，41、42码符合要求：
选择实体 :
选择对象: ((-1 . <图元名: 7ed8a018>) (0 . ELLIPSE) (330 . <图元名: 7ed7ed18>)
(5 . 158B) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . 0) (100 .
AcDbEllip... [/B]

你那个组码列表是cad的哪个帮助文件啊，我找不到这个文件。

fsxm

对于低版本唯一的出路是扔掉+升级！~当纯靠在函数中迁就低版本始终不是好事~
当然如果写程序只是为了玩玩数学计算是可以考虑啦~而且大家也常这样做！