如何删除坐标点相同的表元素，保留第一次出现的那个元素

南国浪子

(
((10 301.618 399.453 0.0) <图元名: 7b9c24d0>)
((10 301.618 399.453 0.0) <图元名: 7b9c24d8>)
((10 216.618 399.453 0.0) <图元名: 7b9c24e0>)
((10 216.618 399.453 0.0) <图元名: 7b9c24e8>)
((10 216.618 494.453 0.0) <图元名: 7b9c24f0>)
((10 216.618 494.453 0.0) <图元名: 7b9c24f8>)
((10 131.618 399.453 0.0) <图元名: 7b9c2500>)
((10 131.618 399.453 0.0) <图元名: 7b9c2508>)
((10 131.618 494.453 0.0) <图元名: 7b9c2510>)
((10 131.618 494.453 0.0) <图元名: 7b9c2518>)
((10 166.618 494.453 0.0) <图元名: 7b9c2520>)
((10 266.618 399.453 0.0) <图元名: 7b9c2530>)
)
如以上自定义表，现在需要将坐标点相同的表元素删除，只保留第一次出现的那个,如上表最终的结果为
(
((10 301.618 399.453 0.0) <图元名: 7b9c24d0>)
((10 216.618 399.453 0.0) <图元名: 7b9c24e0>)
((10 216.618 494.453 0.0) <图元名: 7b9c24f0>)
((10 131.618 399.453 0.0) <图元名: 7b9c2500>)
((10 131.618 494.453 0.0) <图元名: 7b9c2510>)
((10 166.618 494.453 0.0) <图元名: 7b9c2520>)
((10 266.618 399.453 0.0) <图元名: 7b9c2530>)
)
拜求各路高手不吝赐教！

xyp1964

2. (defun aaa (lst / lst1 lst2 a b)
   
3.   (setq        lst1 '()
   
4.         lst2 '()
   
5.   )
   
6.   (foreach a lst
   
7.     (setq b (car a))
   
8.     (if        (not (member b lst1))
   
9.       (setq lst2 (cons a lst2)
   
10.             lst1 (cons b lst2)
    
11.       )
    
12.     )
    
13.   )
    
14.   lst2
    
15. )

(defun aaa (lst / lst1 lst2 a b)<br />   (setq        lst1 '()<br />         lst2 '()<br />   )<br />   (foreach a lst<br />     (setq b (car a))<br />     (if        (not (member b lst1))<br />       (setq lst2 (cons a lst2)<br />             lst1 (cons b lst2)<br />       )<br />     )<br />   )<br />   lst2<br /> )

南国浪子

xyp1964 发表于 2014-10-18 11:43

多谢大侠赐教。。

llsheng_73

1. (defun delsame(lst n / a b);;lst嵌套表,n为子表第几项
   
2.   (while(setq a(cons(car lst)a)b(nth n(car a))lst(vl-remove-if'(lambda(x)(equal(nth n x)b))(cdr lst))))
   
3.   (reverse a))

(defun delsame(lst n / a b);;lst嵌套表,n为子表第几项<br />   (while(setq a(cons(car lst)a)b(nth n(car a))lst(vl-remove-if'(lambda(x)(equal(nth n x)b))(cdr lst))))<br />   (reverse a))

(delsame '(((10 301.618 399.453 0.0) <图元名: 7b9c24d0>)
((10 301.618 399.453 0.0) <图元名: 7b9c24d8>)
((10 216.618 399.453 0.0) <图元名: 7b9c24e0>)
((10 216.618 399.453 0.0) <图元名: 7b9c24e8>)
((10 216.618 494.453 0.0) <图元名: 7b9c24f0>)
((10 216.618 494.453 0.0) <图元名: 7b9c24f8>)
((10 131.618 399.453 0.0) <图元名: 7b9c2500>)
((10 131.618 399.453 0.0) <图元名: 7b9c2508>)
((10 131.618 494.453 0.0) <图元名: 7b9c2510>)
((10 131.618 494.453 0.0) <图元名: 7b9c2518>)
((10 166.618 494.453 0.0) <图元名: 7b9c2520>)
((10 266.618 399.453 0.0) <图元名: 7b9c2530>)) 0)