求助，请问论坛的各位大神，坐标点如何按y坐标分组！

onlooker

((0.0 0.0 0.0) (15.0 0.0 0.0) (0.0 0.0 0.0) (15.0 15.0 0.0) (15.0218 15.0
0.0) (0.0 20.8341 0.0) (30.0 30.0 0.0) (40.0 30.0 0.0) (60.0 55.0 0.0) (90.0
80.0 0.0) (80.0 80.0 0.0) (90.0 90.0 0.0) (100.0 90.0 0.0) (100.0 100.0 0.0)
(79.5591 100.0 0.0))

Andyhon

Ref:
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=18825
http://www.mjtd.com/home.php?mod ... ;do=wall&page=2

xyp1964

1. (defun c:tt ()
   
2.   (setq        ptn  '((0.0 0.0 0.0)
   
3.                (15.0 0.0 0.0)
   
4.                (0.0 0.0 0.0)
   
5.                (15.0 15.0 0.0)
   
6.                (15.0218 15.0 0.0)
   
7.                (0.0 20.8341 0.0)
   
8.                (30.0 30.0 0.0)
   
9.                (40.0 30.0 0.0)
   
10.                (60.0 55.0 0.0)
    
11.                (90.0 80.0 0.0)
    
12.                (80.0 80.0 0.0)
    
13.                (90.0 90.0 0.0)
    
14.                (100.0 90.0 0.0)
    
15.                (100.0 100.0 0.0)
    
16.                (79.5591 100.0 0.0)
    
17.               )
    
18.         ptn  (vl-sort ptn '(lambda (x y) (< (cadr x) (cadr y))))
    
19.         tmp '()
    
20.   )
    
21.   (while ptn
    
22.     (setq z    (cadar ptn)
    
23.           ptn1 (vl-remove-if '(lambda (x) (/= (cadr x) z)) ptn)
    
24.           tmp (cons ptn1 tmp)
    
25.           ptn  (vl-remove-if '(lambda (x) (= (cadr x) z)) ptn)
    
26.     )
    
27.   )
    
28.   (reverse tmp)
    
29. )

(defun c:tt ()<br />   (setq        ptn  '((0.0 0.0 0.0)<br />                (15.0 0.0 0.0)<br />                (0.0 0.0 0.0)<br />                (15.0 15.0 0.0)<br />                (15.0218 15.0 0.0)<br />                (0.0 20.8341 0.0)<br />                (30.0 30.0 0.0)<br />                (40.0 30.0 0.0)<br />                (60.0 55.0 0.0)<br />                (90.0 80.0 0.0)<br />                (80.0 80.0 0.0)<br />                (90.0 90.0 0.0)<br />                (100.0 90.0 0.0)<br />                (100.0 100.0 0.0)<br />                (79.5591 100.0 0.0)<br />               )<br />         ptn  (vl-sort ptn '(lambda (x y) (< (cadr x) (cadr y))))<br />         tmp '()<br />   )<br />   (while ptn<br />     (setq z    (cadar ptn)<br />           ptn1 (vl-remove-if '(lambda (x) (/= (cadr x) z)) ptn)<br />           tmp (cons ptn1 tmp)<br />           ptn  (vl-remove-if '(lambda (x) (= (cadr x) z)) ptn)<br />     )<br />   )<br />   (reverse tmp)<br /> )