社区 › 源码共享 › 数字列表删除重复数字（带容差）

CAD智能@未来 发表于 2024-10-31 15:49:37

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

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

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

LXH 发表于 2024-10-31 15:52:10

谢谢好兄弟拿走了

magicheno 发表于 2024-11-1 10:57:54

感谢大佬分享

w379106181 发表于 2024-11-2 08:13:13

感谢大佬分享

查看完整版本: 数字列表删除重复数字（带容差）