[求助]请教：删除表内重复项？

tyxdd

请问高手们有没有什么函数或方法把一个表内的相同项都删除，只剩下其中之一？

比如：'((1 . "abc") (2 . "123") (1 . "abc") (3 . "dfe") (1 . "abc"))

要得到：'((1 . "abc") (2 . "123") (3 . "dfe")) （先后排列顺序不限）

请大家赐教，先谢了！

xshrimp

;;;删除表中重复图元.不支持表中表的重复图元.
;;; (gps->lst-delsame '(1 2 1 2 (1 1) (1 2 1 2 1) 1 2 (1 1) (1 2)))
;;;  -->(1 2 (1 1) (1 2 1 2 1) (1 2))
(defun gps->lst-delsame (lst / lstitem lstnew)
   (foreach lstitem lst
     (if (not (member lstitem lstnew))
       (setq lstnew (append lstnew (list lstitem)))
     )
   )
   lstnew
)

tyxdd

谢谢xshrimp大侠出手相助！试了一下您的程序，很好用，基本就是要这个效果，多谢！

在明经的感觉很好，提出的问题很快就能得到热心的解答，有满意的答案，每来一次都会有新的收获，学到新的东西。在有些CAD网站就不一样了，人气好像很热闹，可是看热闹的多，解决问题的少。个人认为还是明经的实干家多，有水平的多。支持明经！

kry

不过这里的斑竹就非常小气了，要帖子达到多少才能看

pslstar

cabinsummer

1. (defun delsame (l) (if l (cons (car l) (delsame (vl-remove (car l) l)))))

(defun delsame (l) (if l (cons (car l) (delsame (vl-remove (car l) l)))))

这是顾版的函数，高效实用。不敢独享

yjr111

此函数对一般的字符串类等确定型的可以，对需要设置容差的交点类是不行的。。。

zdqwy19

最好是选择前先清理一下重复的图元，比处理表重复项更实在

wanghangshun

cabinsummer 发表于 2012-2-18 17:59
这是顾版的函数，高效实用。不敢独享

顾版函数实在太强悍了！