求一点离表点集合最近的点

kry

(defun DC-Get-NearestPt ($PT $LST / $LST1)
   (setq
      $LST1 (vl-sort $LST
       (function (lambda (x y)
      (< (distance x $PT)
         (distance y $PT)
      )
          )
       )
     )
   )
   (list (car $LST1) (last $LST1))
)