表处理求助

amwkto2011

lijiao 发表于 2014-12-23 09:17

http://xdcad.net/forum/thread-678562-1-1.html
源码公布了，帮忙优化下，谢谢
这个求助的目的就是要过滤同心
谢谢哦

lijiao

2. (setq lst '((1709.15 746.687 0.0)
   
3.             (1068.08 547.421 0.0)
   
4.             (675.815 583.244 0.0)
   
5.             (1068.08 547.421 0.0)
   
6.             (675.815 583.244 0.0)
   
7.            )
   
8. )
   
9. 
   
10. 
    
11. (vl-remove nil
    
12.            (mapcar '(lambda (x)
    
13.                       (if (member x (cdr (member x lst)))
    
14.                         x
    
15.                       )
    
16.                     )
    
17.                    lst
    
18.            )
    
19. )

(setq lst '((1709.15 746.687 0.0)<br />             (1068.08 547.421 0.0)<br />             (675.815 583.244 0.0)<br />             (1068.08 547.421 0.0)<br />             (675.815 583.244 0.0)<br />            )<br /> )<br /> <br /> <br /> (vl-remove nil<br />            (mapcar '(lambda (x)<br />                       (if (member x (cdr (member x lst)))<br />                         x<br />                       )<br />                     )<br />                    lst<br />            )<br /> )

amwkto2011

lijiao 发表于 2014-12-23 09:30

{:soso_e179:}