[求助]请问CAD的椭圆面积是用怎样的公式计算的呢?

vken7az2p

 

椭圆面绩正常的公式: pi*sqrt(2*(a^2+b^2))
但用这样算为何与cad算的不一样呢?
是否有不一样的公式.
另外,椭圆如果有缺角又是怎样计算的呢?
烦请各位高手们解答一下
谢谢

highflybir

你错了，椭圆的面积公式是： Pi*a*b，如果有缺角的话，应该按照椭圆的起始角度和终止角度来计算面积。

但现在不清楚你说的缺角的面积是指的哪部分，你最好用图表示一下，别人就知道了。

AMTONNY

呵呵，先把椭圆面域，再用Massprop命令就可以得出了呀

vken7az2p

谢谢"highflybir"版主的回答
另外附上有缺角的椭圆图样,请教该怎样计算面积.

另外,再请教些问题
1.cad计算椭圆周长,是用哪种公式求出的呢?
2.Pi*a*b是椭圆面积公式,但我遇到各问题就是抓取图形后,
取出的a与b的长短轴长度,该怎样由向量的xyz转换为长度呢?

烦请各位高手们解答一下
谢谢

lenlenq

 直接可以求出的
(vlax-curve-getarea en)
en-为图元名

lenlenq

或者用
(vla-get-area ob)
ob-为对象，图元必须转为对象(vlax-ename->vla-object en)en-为图元名

highflybir

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=82654&star=2
参见这篇帖子

另外附上有缺角的椭圆图样,请教该怎样计算面积.
1.cad计算椭圆周长,是用哪种公式求出的呢?
2.Pi*a*b是椭圆面积公式,但我遇到各问题就是抓取图形后,
取出的a与b的长短轴长度,该怎样由向量的xyz转换为长度呢?

其实下面的代码可以求出椭圆弧的面积，不过后面的用数值计算的方法，我是匆匆写了几行，不过证明可以用另外的一种方法求出面积的。

3. (vl-load-com)
4. (defun c:test (/ A AN1 AN2 AR AREA B DXF ENT JS OBJ)
5.   (setq ent (car (entsel "\n请选择椭圆对象:")))
6.   (setq dxf (entget ent))
7.   (setq a (distance '(0 0 0) (cdr (assoc 11 dxf))))
8.   (setq b (* a (cdr (assoc 40 dxf))))
9.   (setq area (* pi a b))
10.   (princ "\n长轴是:")
11.   (princ a)
12.   (princ ", 短轴是:")
13.   (princ b)
14.   (princ ", 总面积是:")
15.   (princ area)
16.   (setq an1 (cdr (assoc 41 dxf)))
17.   (setq an2 (cdr (assoc 42 dxf)))
18.   (setq an2 (rem an2 pi))
19.   (setq obj (vlax-ename->vla-object ent))
20.   (princ ", 弧面积是:")
21.   (setq ar (vla-get-area obj))
22.   (princ ar)
23.   (princ ", 面积是:")
24.   (setq js (* a b 0.25 (- (sin (+ an2 an2)) an2 an2)))
25.   (setq js (- (abs js) (* b (sin an2) (- a (* a (cos an2))) 0.5)))
26.   (princ js)
27.   (princ)
28. )

(vl-load-com) (defun c:test (/ A AN1 AN2 AR AREA B DXF ENT JS OBJ)   (setq ent (car (entsel "\n请选择椭圆对象:")))   (setq dxf (entget ent))   (setq a (distance '(0 0 0) (cdr (assoc 11 dxf))))   (setq b (* a (cdr (assoc 40 dxf))))   (setq area (* pi a b))   (princ "\n长轴是:")   (princ a)   (princ ", 短轴是:")   (princ b)   (princ ", 总面积是:")   (princ area)   (setq an1 (cdr (assoc 41 dxf)))   (setq an2 (cdr (assoc 42 dxf)))   (setq an2 (rem an2 pi))   (setq obj (vlax-ename->vla-object ent))   (princ ", 弧面积是:")   (setq ar (vla-get-area obj))   (princ ar)   (princ ", 面积是:")   (setq js (* a b 0.25 (- (sin (+ an2 an2)) an2 an2)))   (setq js (- (abs js) (* b (sin an2) (- a (* a (cos an2))) 0.5)))   (princ js)   (princ) )

vken7az2p

谢谢"highflybir"版主的回答
里面的程序,若能选取图元后,自动计算长短轴就更方便了.
而在 cad 中的 vla-get-MajorAxis ;长轴 与 vla-get-MinorAxis ;短轴
经过这样计算就可以求出长短轴的距离
(sqrt (+ (expt (nth 0 MajorAxis) 2)
  (expt (nth 1 MajorAxis) 2)
  (expt (nth 2 MajorAxis) 2)
  ))
(sqrt (+ (expt (nth 0 MinorAxis) 2)
  (expt (nth 1 MinorAxis) 2)
  (expt (nth 2 MinorAxis) 2)
  ))
但我不确定是不是这样,请各位确认.

另外,前次附图中缺角的椭圆
该怎样计算他的面积与周长呢?

烦请各位高手们解答一下
谢谢

blueyxq

学习下。