返回点表的中心点

marting

1. (defun AT:MidOfPoints (lst / l)
   
2.   ;; Middle point of list of points
   
3.   ;; lst - list of points
   
4.   ;; Alan J. Thompson, 03.23.11
   
5.   (if (>= (setq l (length lst)) 2)
   
6.     (mapcar (function (lambda (i) (/ i l))) (apply (function mapcar) (cons (function +) lst)))
   
7.   )
   
8. )
   

(defun AT:MidOfPoints (lst / l)<br />   ;; Middle point of list of points<br />   ;; lst - list of points<br />   ;; Alan J. Thompson, 03.23.11<br />   (if (>= (setq l (length lst)) 2)<br />     (mapcar (function (lambda (i) (/ i l))) (apply (function mapcar) (cons (function +) lst)))<br />   )<br /> )<br />

Command: (at:midofpoints '( (1. 1. 1.) (2. 2. 2.) (3. 3. 3.)(5. 5. 5.)))
(2.75 2.75 2.75)

HLCAD

这个程序非常经典，谢谢楼主分享！

liunian0524

感谢楼主分享