[LISP程序-点集]：获取点集中距离指定点距离最近的点

eachy

2. 
   
3. ;;获取点集中距离指定点距离最近的点
   
4. ;;返回值(指定点 最近点1 最近点2 ... )
   
5. (defun xd-GetNearestpt (pt pts / ll p1 p2 d)
   
6.   (setq
   
7.     ll (vl-sort        (mapcar '(lambda (x) (list (distance x pt) pt x)) pts)
   
8.                 '(lambda (e1 e2) (< (car e1) (car e2)))
   
9.        )
   
10.   )
    
11.   (setq        p1 (cdar ll)
    
12.         d  (caar ll)
    
13.         ll (cdr ll)
    
14.   )
    
15.   (while (equal (car (setq p2 (car ll))) d 1e-5)
    
16.     (if        (not (vl-position (last p2) p1))
    
17.       (setq p1 (append p1 (list (last p2))))
    
18.     )
    
19.     (setq ll (cdr ll))
    
20.   )
    
21.   p1
    
22. )

<br /> ;;获取点集中距离指定点距离最近的点<br /> ;;返回值(指定点 最近点1 最近点2 ... )<br /> (defun xd-GetNearestpt (pt pts / ll p1 p2 d)<br />   (setq<br />     ll (vl-sort        (mapcar '(lambda (x) (list (distance x pt) pt x)) pts)<br />                 '(lambda (e1 e2) (< (car e1) (car e2)))<br />        )<br />   )<br />   (setq        p1 (cdar ll)<br />         d  (caar ll)<br />         ll (cdr ll)<br />   )<br />   (while (equal (car (setq p2 (car ll))) d 1e-5)<br />     (if        (not (vl-position (last p2) p1))<br />       (setq p1 (append p1 (list (last p2))))<br />     )<br />     (setq ll (cdr ll))<br />   )<br />   p1<br /> )

ynhh

请教大师您好
您这个不知能不能改成
已知点集表和一个曲线类图元
求点集表中到指定图元最近的点
谢谢