[寻找]：有无精简的代码可以在一个坐标点表中找出距离最远或最近的两个点?

hnfsf

2. (defun &maxdis (lst / dis n p1 p2)
   
3.   (setq dis 0.0)
   
4.   (repeat (- (length lst) 1)
   
5.     (setq p1 (car lst) lst (cdr lst) n -1)
   
6.     (repeat (length lst)
   
7.       (setq p2 (nth (setq n (1+ n)) lst ))
   
8.       (if (and p1 p2 (> (distance p1 p2) dis))
   
9.         (setq dis (distance p1 p2))
   
10.       )
    
11.     )
    
12.   )
    
13.   dis
    
14. )

(defun &maxdis (lst / dis n p1 p2)<br />   (setq dis 0.0)<br />   (repeat (- (length lst) 1)<br />     (setq p1 (car lst) lst (cdr lst) n -1)<br />     (repeat (length lst)<br />       (setq p2 (nth (setq n (1+ n)) lst ))<br />       (if (and p1 p2 (> (distance p1 p2) dis))<br />         (setq dis (distance p1 p2))<br />       )<br />     )<br />   )<br />   dis<br /> )

841594

楼上：要找的是两个点，而不是最远的距离。