求助！请问论坛的各位大神，坐标点如何按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))

情迷法兰西0

2. (setq lst '((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. (defun JC-tt(lst)(mapcar'(lambda(x)(vl-remove-if-not'(lambda(y)(= x (cadr y)))lst))(vl-sort (jc-remove (mapcar'cadr lst))'<)))
    
18. (defun jc-remove(lst / X LSTX)(while (setq x(car lst))(setq lst(vl-remove x lst))(setq lstx(cons x lstx)))(reverse lstx))

(setq lst '((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 /> (defun JC-tt(lst)(mapcar'(lambda(x)(vl-remove-if-not'(lambda(y)(= x (cadr y)))lst))(vl-sort (jc-remove (mapcar'cadr lst))'<)))<br /> (defun jc-remove(lst / X LSTX)(while (setq x(car lst))(setq lst(vl-remove x lst))(setq lstx(cons x lstx)))(reverse lstx))

onlooker

情迷法兰西0 发表于 2018-4-20 13:19

谢谢你的回复