计算凸多边形面积（不封闭也行）

kkq0305

2. (defun c:ar ()
   
3.   (setq en (car (entsel)))
   
4.   (setq
   
5.     ptl  (mapcar
   
6.     'cdr
   
7.     (vl-remove-if-not '(lambda (x) (= 10 (car x))) (entget en))
   
8.   )
   
9.   )
   
10.   (setq ptl (mapcar 'list ptl (append (cdr ptl) (list (car ptl)))))
    
11.   (apply '+
    
12.    (mapcar
    
13.      '(lambda (x)
    
14.         (expt (* (car x)
    
15.            (- (car x) (cadr x))
    
16.            (- (car x) (caddr x))
    
17.            (- (car x) (last x))
    
18.         )
    
19.         0.5
    
20.         )
    
21.       )
    
22.      (mapcar '(lambda (y) (cons (* 0.5 (apply '+ y)) y))
    
23.        (mapcar '(lambda (z)
    
24.             (list (distance (car z) (cadr z))
    
25.             (distance (cadr z) (last z))
    
26.             (distance (car z) (last z))
    
27.             )
    
28.           )
    
29.          (mapcar '(lambda (m) (cons (caar ptl) m)) ptl)
    
30.        )
    
31.      )
    
32.    )
    
33.   )
    
34. )

(defun c:ar ()<br />   (setq en (car (entsel)))<br />   (setq<br />     ptl  (mapcar<br />     'cdr<br />     (vl-remove-if-not '(lambda (x) (= 10 (car x))) (entget en))<br />   )<br />   )<br />   (setq ptl (mapcar 'list ptl (append (cdr ptl) (list (car ptl)))))<br />   (apply '+<br />    (mapcar<br />      '(lambda (x)<br />         (expt (* (car x)<br />            (- (car x) (cadr x))<br />            (- (car x) (caddr x))<br />            (- (car x) (last x))<br />         )<br />         0.5<br />         )<br />       )<br />      (mapcar '(lambda (y) (cons (* 0.5 (apply '+ y)) y))<br />        (mapcar '(lambda (z)<br />             (list (distance (car z) (cadr z))<br />             (distance (cadr z) (last z))<br />             (distance (car z) (last z))<br />             )<br />           )<br />          (mapcar '(lambda (m) (cons (caar ptl) m)) ptl)<br />        )<br />      )<br />    )<br />   )<br /> )

kkq0305

cghdy 发表于 2019-11-16 15:51
谢谢分享，好贴

这个只是为了练习表函数，不过用vla-get-area更好。

kkq0305

利用海伦公式

cghdy

谢谢分享，好贴

wzxcad

好方法，谢谢分享

852456

谁能讲解讲解 看都看不懂

QQ873240166

NNWS神速神速