asdfxx 发表于 2009-8-4 10:24:00

kry 发表于 2009-8-4 11:09:00

(defun DC-Get-NearestPt&nbsp;($PT $LST / $LST1)<br/>&nbsp;&nbsp; (setq<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $LST1 (vl-sort $LST<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (function (lambda (x y)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (&lt; (distance x $PT)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (distance y $PT)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp; )<br/>&nbsp;&nbsp; (list (car $LST1) (last $LST1))<br/>)
页: [1]
查看完整版本: 求一点离表点集合最近的点