[求助]：椭圆DXF41/42码如何用数学方法求？

taner

如题。
也就是说，已知椭圆上任意两点，如何ENTMAKE椭圆弧？也就是说，如何求两点所代表的弧度？谢谢！

fools

[php]
;;求椭圆曲线参数
(defun pt->param (pt cen axis ratio / ang param)
  (setq ang (- (angle cen pt) (angle '(0. 0. 0.) axis)))
  (cond        ((= (cos ang) 0.0)                ;防止分母cos为零出错
         (if (> (sin ang) 0.0)
           (setq param (* 0.5 PI))
           (setq param (* 1.5 PI))
         )
        )
        ((= (sin ang) 0.0)
         (if (> (cos ang) 0.0)
           (setq param 0.0)
           (setq param PI)
         )
        )
        (T
         (setq param (atan (/ (sin ang) (* (cos ang) ratio))))
         (if (< (cos ang) 0.0)
           (setq param (+ pi param))
         )
        )
  )
  param
)
[/php]
下面是上个函数对应的参数，再根据point分别求出dxf41,dxf42
[php]
       ;;椭圆圆心
       (setq objcen (cdr (assoc 10 objlst)))
       ;;相对于中心的长轴矢量
       (setq objaxis (cdr (assoc 11 objlst)))
       ;;短轴与长轴的比例
       (setq objratio (cdr (assoc 40 objlst)))
[/php]

taner

谢谢！先copy下来研究，暂时还没看懂！

carrot1983

椭圆没有用过....
下面不知道有没有帮上.

2. 
   
3. vla-get-StartParameter 函数
   
4. 
   
5. 功能
   
6. 
   
7.      取得弧、线、或椭圆的起始点。
   
8. 
   
9. 语法及参数
   
10. 
    
11. (vla-get-StartParameter Object )
    
12. Object Ellipse
    
13.   这个属性适用的对象
    
14. StartParameter 双精度；读/写
    
15.   有效范围从0到2*PI
    
16. 
    
17. 说明
    
18. 
    
19.     椭圆的起始与结束参数是依据下列等式来计算：
    
20.     P(Theta) = A * cos(Theta) + B * sin(Theta)
    
21.     其中A与B分别是半长轴与半短轴
    
22.     例如，如果您的起始角度是Theta1，则对应的起始参数是P（Theta1）并依上述公式计算，同样地，如果结束角度是Theta2，则对应的结束参数是P（Theta2），以前面的公式计算。
    
23.     可以使用角度或参数来建立椭圆。
    
24. 
    
25. 范例
    
26. 
    
27. (defun Example_StartParameter ()
    
28. 
    
29. ;;;这个范例建立一个椭圆接着输入起始及结束
    
30. 
    
31. ;;;参数来建立椭圆弧
    
32. 
    
33.   (VL-LOAD-COM)
    
34. 
    
35.   (setq    AcadObject   (vlax-get-acad-object)
    
36. 
    
37.        AcadDocument (vla-get-ActiveDocument Acadobject)
    
38. 
    
39.        mSpace        (vla-get-ModelSpace Acaddocument)
    
40. 
    
41.   )
    
42. 
    
43. 
    
44. 
    
45. ;;;在模型空间中建立椭圆
    
46. 
    
47.   (setq center (vlax-3d-point (list 50 50 0)))
    
48. 
    
49.   (setq majAxis (vlax-3d-point (list 100 200 0)))
    
50. 
    
51.   (setq radRatio 0.3)
    
52. 
    
53. 
    
54. 
    
55.   (setq EllipseObj (vla-AddEllipse mSpace center majAxis radRatio))
    
56. 
    
57. ;;; 输入开始参数1.57以及结束参数6.28
    
58. 
    
59.   (vla-put-StartParameter EllipseObj 1.57)
    
60. 
    
61.   (vla-put-EndParameter EllipseObj 6.28)
    
62. 
    
63.   (vla-ZoomExtents AcadObject)
    
64. 
    
65. ;;;找出椭圆的开始与结束参数
    
66. 
    
67. 
    
68. 
    
69.   (princ (STRCAT "椭圆的起始参数是: "
    
70. 
    
71.                (RTOS (vla-get-StartParameter EllipseObj))
    
72. 
    
73.                ", 结束参数是: "
    
74. 
    
75.                (RTOS (vla-get-EndParameter EllipseObj))
    
76. 
    
77.                "    StartParameter范例 \n"
    
78. 
    
79.         )
    
80. 
    
81.   )
    
82. 
    
83.   (princ)
    
84. 
    
85. )
    
86. 
    
87. 
    

<br /> vla-get-StartParameter 函数 <br /> <br /> 功能<br /> <br />      取得弧、线、或椭圆的起始点。<br /> <br /> 语法及参数<br /> <br /> (vla-get-StartParameter Object ) <br /> Object Ellipse <br />   这个属性适用的对象 <br /> StartParameter 双精度；读/写 <br />   有效范围从0到2*PI <br /> <br /> 说明<br /> <br />     椭圆的起始与结束参数是依据下列等式来计算：<br />     P(Theta) = A * cos(Theta) + B * sin(Theta)<br />     其中A与B分别是半长轴与半短轴<br />     例如，如果您的起始角度是Theta1，则对应的起始参数是P（Theta1）并依上述公式计算，同样地，如果结束角度是Theta2，则对应的结束参数是P（Theta2），以前面的公式计算。<br />     可以使用角度或参数来建立椭圆。<br /> <br /> 范例<br /> <br /> (defun Example_StartParameter ()<br /> <br /> ;;;这个范例建立一个椭圆接着输入起始及结束<br /> <br /> ;;;参数来建立椭圆弧<br /> <br />   (VL-LOAD-COM)<br /> <br />   (setq    AcadObject   (vlax-get-acad-object)<br /> <br />        AcadDocument (vla-get-ActiveDocument Acadobject)<br /> <br />        mSpace        (vla-get-ModelSpace Acaddocument)<br /> <br />   )<br /> <br /> <br /> <br /> ;;;在模型空间中建立椭圆<br /> <br />   (setq center (vlax-3d-point (list 50 50 0)))<br /> <br />   (setq majAxis (vlax-3d-point (list 100 200 0)))<br /> <br />   (setq radRatio 0.3)<br /> <br /> <br /> <br />   (setq EllipseObj (vla-AddEllipse mSpace center majAxis radRatio))<br /> <br /> ;;; 输入开始参数1.57以及结束参数6.28<br /> <br />   (vla-put-StartParameter EllipseObj 1.57)<br /> <br />   (vla-put-EndParameter EllipseObj 6.28)<br /> <br />   (vla-ZoomExtents AcadObject)<br /> <br /> ;;;找出椭圆的开始与结束参数<br /> <br /> <br /> <br />   (princ (STRCAT "椭圆的起始参数是: "<br /> <br />                (RTOS (vla-get-StartParameter EllipseObj))<br /> <br />                ", 结束参数是: "<br /> <br />                (RTOS (vla-get-EndParameter EllipseObj))<br /> <br />                "    StartParameter范例 \n"<br /> <br />         )<br /> <br />   )<br /> <br />   (princ)<br /> <br /> )<br /> <br /> <br />

taner

最初由 fools 发布
[B][php]
;;求椭圆曲线参数
(defun pt->param (pt cen axis ratio / ang param)
  (setq ang (- (angle cen pt) (angle '(0. 0. 0.) axis)))
  (cond        ((= (cos ang) 0.0)                ;防止分母cos为零出错
         (if (> (sin ang... [/B]

2. 
   
3.   [FONT=courier new]
   
4. ;;;改一下
   
5. (defun pt2ep (pt cen axis ratio / ang param)
   
6.   (setq ang (- (angle cen pt) (angle '(0. 0. 0.) axis)))
   
7.   (setq param (atan (sin ang) (* (cos ang) ratio))
   
8.         (if (< (cos ang) 0.0)
   
9.           (setq param (+ pi param))
   
10.         )
    
11.   )
    
12.   param
    
13. )
    
14.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;改一下<br /> (defun pt2ep (pt cen axis ratio / ang param)<br />   (setq ang (- (angle cen pt) (angle '(0. 0. 0.) axis)))<br />   (setq param (atan (sin ang) (* (cos ang) ratio))<br />         (if (< (cos ang) 0.0)<br />           (setq param (+ pi param))<br />         )<br />   )<br />   param<br /> )<br />   [/FONT]<br />

taner

最初由 fools 发布
[B][php]
;;求椭圆曲线参数
(defun pt->param (pt cen axis ratio / ang param)
  (setq ang (- (angle cen pt) (angle '(0. 0. 0.) axis)))
  (cond        ((= (cos ang) 0.0)                ;防止分母cos为零出错
         (if (> (sin ang... [/B]

2. 
   
3.   [FONT=courier new]
   
4. ;;;改一下
   
5. (defun pt2ep (pt cen axis ratio / ang param)
   
6.   (setq ang (- (angle cen pt) (angle '(0. 0. 0.) axis)))
   
7.   (setq param (atan (sin ang) (* (cos ang) ratio))
   
8.         (if (< (cos ang) 0.0)
   
9.           (setq param (+ pi param))
   
10.         )
    
11.   )
    
12.   param
    
13. )
    
14.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;改一下<br /> (defun pt2ep (pt cen axis ratio / ang param)<br />   (setq ang (- (angle cen pt) (angle '(0. 0. 0.) axis)))<br />   (setq param (atan (sin ang) (* (cos ang) ratio))<br />         (if (< (cos ang) 0.0)<br />           (setq param (+ pi param))<br />         )<br />   )<br />   param<br /> )<br />   [/FONT]<br />