数字列表删除重复数字（带容差）

CAD智能@未来

;数字列表删除重复数字（带容差）

；(setq lst (list 10.1 10.5 11 23 15 11 12 12.1 10.2 11.2 11.5 12.3 14))
；(Csy:RemoveDup ptss 0.2)
；return  (10.1 10.5 11 11.5 12 12.3 14 15 23)

2. ;数字列表删除重复数字（带容差）   
   
3. (defun Csy:RemoveDup(lst val / x lst2 y)
   
4.   (setq lst(vl-sort (mapcar '(lambda (x)  x)  lst) '<))  
   
5.   (while (setq x(car lst))  
   
6.     (setq lst2(cons x lst2))
   
7.     (setq lst(vl-remove x lst))
   
8.     (mapcar  
   
9.       '(lambda (y)
   
10.         (if (equal x y val)
    
11.           (setq lst(vl-remove y lst))
    
12.         )
    
13.       )
    
14.       lst
    
15.     )
    
16.   )
    
17.   (reverse lst2)
    
18. )

;数字列表删除重复数字（带容差）    <br /> (defun Csy:RemoveDup(lst val / x lst2 y)<br />   (setq lst(vl-sort (mapcar '(lambda (x)  x)  lst) '<))  <br />   (while (setq x(car lst))  <br />     (setq lst2(cons x lst2))<br />     (setq lst(vl-remove x lst))<br />     (mapcar  <br />       '(lambda (y) <br />         (if (equal x y val)<br />           (setq lst(vl-remove y lst))<br />         )<br />       ) <br />       lst<br />     )<br />   )<br />   (reverse lst2)<br /> )

LXH

谢谢  好兄弟  拿走了

magicheno

感谢大佬分享

w379106181

感谢大佬分享