以多边形顶点坐标计算面积

sageman

之前看到过有利用多边形顶点坐标计算面积的代码？具体做法忘记了，请求高手指点一下，非常感谢！

Gu_xl

1. ;; 返回由表 L1 构成的多边形面积. 点逆时针为正，顺时针为负
   
2. (defun getplarea (l1 / s x1 y1 x2 y2 p1)
   
3.   (setq s 0.
   
4.     p1 (last l1)
   
5.     x1 (car p1)
   
6.     y1 (cadr p1)
   
7.   )
   
8.   (foreach p1 l1
   
9.     (setq x2 (car p1)
   
10.       y2 (cadr p1)
    
11.       s (- (+ s (* x1 y2)) (* x2 y1))
    
12.       x1 x2
    
13.       y1 y2
    
14.     )
    
15.   )
    
16.   (* 0.5 s )
    
17. )
    
18. ;;简洁写法
    
19. (defun getplarea (l)
    
20.   (* 0.5
    
21.      (apply '+
    
22.             (mapcar '(lambda (a b)
    
23.                        (- (* (car a) (cadr b)) (* (car b) (cadr a)))
    
24.                        )
    
25.                     l
    
26.                     (append (cdr l) (list (car l)))
    
27.                     )
    
28.             )
    
29.      )
    
30.   )
    

;; 返回由表 L1 构成的多边形面积. 点逆时针为正，顺时针为负<br /> (defun getplarea (l1 / s x1 y1 x2 y2 p1) <br />   (setq s 0. <br />     p1 (last l1) <br />     x1 (car p1) <br />     y1 (cadr p1) <br />   ) <br />   (foreach p1 l1 <br />     (setq x2 (car p1) <br />       y2 (cadr p1) <br />       s (- (+ s (* x1 y2)) (* x2 y1)) <br />       x1 x2 <br />       y1 y2 <br />     ) <br />   ) <br />   (* 0.5 s )<br /> ) <br /> ;;简洁写法<br /> (defun getplarea (l)<br />   (* 0.5<br />      (apply '+<br />             (mapcar '(lambda (a b)<br />                        (- (* (car a) (cadr b)) (* (car b) (cadr a)))<br />                        )<br />                     l<br />                     (append (cdr l) (list (car l)))<br />                     )<br />             )<br />      )<br />   )<br />

xyp1964

ptn  → pline → vla-get-area

sageman

谢谢！好像还有另处一种方法，如有点: (x1,y1) (x2,y2)（x3,y3）....则面积等于(x1*y2-y1*x2)+....，不知道这个依据是什么，我验证过，貌似正确

chbddzx12

顶~~~~~~~~~~~~~~~~~~~~~~~~~

fzhemail

好，学习了

skg123

sageman 发表于 2013-3-21 20:41
谢谢！好像还有另处一种方法，如有点: (x1,y1) (x2,y2)（x3,y3）....则面积等于(x1*y2-y1*x2)+....，不知道 ...

测量书本上有计算多边形（不规则）图形的面积计算公式

guankuiwu

学习了。。刚好有个地方用到