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

eachy

函数库论坛有可以求出多组的函数

fsxm

支持多个距离相同的点.(返回三层表)效果如图
暂不区别重合点.

2. (defun maxdispts (plst / dlst)
   
3.   (foreach p1 plst
   
4.     (foreach p2        (cdr (MEMBER p1 plst))
   
5.       (setq dlst (cons (list (distance p1 p2) p2 p1) dlst))
   
6.     )
   
7.   )
   
8.   (setq dlst (vl-sort dlst '(lambda (a b) (> (car a) (car b)))))
   
9.   (list (mapcar 'cdr (vl-remove-if '(lambda (a) (> (car (car dlst)) (car a))) dlst))
   
10.         (mapcar 'cdr (vl-remove-if '(lambda (a) (< (car (last dlst)) (car a))) dlst))
    
11.   )
    
12. )
    

(defun maxdispts (plst / dlst)<br />   (foreach p1 plst<br />     (foreach p2        (cdr (MEMBER p1 plst))<br />       (setq dlst (cons (list (distance p1 p2) p2 p1) dlst))<br />     )<br />   )<br />   (setq dlst (vl-sort dlst '(lambda (a b) (> (car a) (car b)))))<br />   (list (mapcar 'cdr (vl-remove-if '(lambda (a) (> (car (car dlst)) (car a))) dlst))<br />         (mapcar 'cdr (vl-remove-if '(lambda (a) (< (car (last dlst)) (car a))) dlst))<br />   )<br /> )<br />

下面为测试代码:
[php]
(defun c:test (/ opd pt ptlst)
  (setq opd (getvar "pdmode"))
  (setvar "pdmode" 3)
  (while (setq pt (getpoint "\n取点："))
    (vl-cmdf ".point" pt)
    (setq ptlst (cons pt ptlst))
  )
  (foreach cmd (maxdispts ptlst)
    (foreach l cmd (command "line" (car l) (last l) ""))
  )
  (setvar "pdmode" opd)
  (princ)
)[/php]