[求助]：老问题----坐标排序？

nuance

和以往排序要求稍有不同
当y坐标差大于某一数时，按y排序，如果其中几个坐标点的y相差小于某一数时某一数时，则忽落y，按x排序
例如(1 1)(1 6)(3 5)(2 7)(1 10)
首先按y排序后结果是(1 1)(3 5)(1 6)(2 7)(1 10)，但中间三个数的y坐标相差小于2，所以重新排中间三个数，按x，忽略y，最后结果为(1 1)(1 6)(2 7)(3 5)(1 10)
求最简洁代码和思路。

taner

请参考一下这里
http://www.xdcad.net/forum/showthread.php?s=&threadid=463109

lazybug

;其中，重新排中间三个数的那段实在是不够简洁，望高手指点一二
(defun c:zz (/ plist plist2 n sn tt p1 p2 e1 e2)
    (setq plist '((1 1)(1 6)(3 5)(2 7)(1 10)))
    (setq plist
             (vl-sort plist '(lambda (e1 e2) (< (cadr e1) (cadr e2))))
    )
    (setq n  1
          sn 1
          tt "(("
    )
    (setq p1 (nth 0 plist))
    (repeat (1- (length plist))
        (setq p2 (nth n plist))
        (if (< (- (cadr p2) (cadr p1)) 2)
            (progn
                (if (= sn 0)
                    (progn
                        (setq tt (strcat tt "("))
                        (setq sn 1)
                    )
                )
                (setq tt (strcat tt (vl-prin1-to-string p1)))
            )
            (progn
                (setq tt (strcat tt (vl-prin1-to-string p1)))
                (if (= sn 1)
                    (progn
                        (setq tt (strcat tt ")"))
                        (setq sn 0)
                    )
                )
            )
        )
        (setq p1 p2)
        (setq n (1+ n))
    )
    (if        (= sn 1)
        (setq tt (strcat tt (vl-prin1-to-string p2) "))"))
        (setq tt (strcat tt "(" (vl-prin1-to-string p2) "))"))
    )
    (setq plist (read tt))
    (setq n 0
          plist2 nil
    )
    (repeat (length plist)
        (setq plist2
                 (append
                     plist2
                     (vl-sort (nth n plist)
                              '(lambda (e1 e2) (< (car e1) (car e2)))
                     )
                 )
        )
        (setq n (1+ n))
    )
    (setq plist plist2)
)