如何从坐标点列表PtList中找到与点PT最近的点，并返回该点坐标？

wzh · 发表于 2004-7-1 23:22:00

如何从坐标点列表PtList中找到与点PT最近的点，并返回该点坐标？
(setq PT '(10 0))
(setq Pt1 '(12 10)
Pt2 '(30 100)
Pt3 '(10 33)
Pt4 '(45 56)
)
(setq PtList (list Pt1 Pt2 Pt3 Pt4))

ashan · 发表于 2004-7-1 23:37:00

用distance函数：
(setq d1 0) (setq i 0) (foreach ptn PtList (setq dt (distance PT ptn)) (if (> dt d1) (setq m i d1 dt) ) (setq i (1+ i)) ) 出来后m中保存的就是距离PT最远的点在表中的位置值，在你的例子中是点PT2，故m＝1（从0开始算）

wzh · 发表于 2004-7-2 00:22:00

谢谢楼上！我终于想到了解决的方法，这样可能更好些。 (setq Ptlist (vl-sort Ptlist
(function (lambda (x1 x2) (< (distance x1 Pt) (distance x2 Pt))))
))
(setq Near (car PtList))

账号		自动登录	找回密码
密码			注册