如何得到点到点表中距离最短的点？

tm20038175

例如有个点pt，有个点表lst，求点表中的一个点 pt1，使得点表中的点到pt的距离中，pt1到pt的距离最小。。。

xshrimp

(min(mapcar '(lambda(x)(distance x pt)) lst))

tm20038175

xshrimp 发表于 2012-4-23 20:51
(min(mapcar '(lambda(x)(distance x pt)) lst))

谢谢啦，好人，明天去试试。。。

Gu_xl

1. (defun tt (pt pl)
   
2. (car (vl-sort pl '(lambda (a b) (< (distance a pt) (distance b pt))) ))
   
3. )
   

(defun tt (pt pl) <br /> (car (vl-sort pl '(lambda (a b) (< (distance a pt) (distance b pt))) ))<br /> )<br />

tm20038175

Gu_xl 发表于 2012-4-23 21:01

谢谢都很精炼，精华呀。。。。

tm20038175

因为程序有可能碰到海量点阵，不知道哪种效率更高些………

pxt2001

收藏了，热心高手的好程序。

fdb2007

学习一下，看看高手是如何做的