表提重复

啵浪鼓

下表请帮忙提重复:
第一项坐标系相同，第二项图层名相同，第三项数值相同
满中以上3个要求移除此项
(
  ((-1739.11 -1629.18 0.0) "STRIP" 2.79 <图元名: 7fffef9bac0>)
  ((-1739.11 -1629.18 0.0) "STRIP" 2.79 <图元名: 7fffef9b980>)
  ((-1739.11 -1629.18 0.0) "STRIP" 2.81 <图元名: 7fffef9bxx0>)
)

得到结果
(
  ((-1739.11 -1629.18 0.0) "STRIP" 2.79 <图元名: 7fffef9bac0>)
  ((-1739.11 -1629.18 0.0) "STRIP" 2.81 <图元名: 7fffef9bxx0>)
)

fan_zh

返回的最后一项图元名还需要吗，冒失没有用
去除最后一项后，用下面函数
(defun delsame(l1 / l2);;表中去除重复元素(重复过的取第一次出现)
  (while(setq l2(cons(car l1)l2)l1(vl-remove(car l1)(cdr l1))))
  (reverse l2))

莫名其妙的点评 ，发个公开函数又怎么了？
发布些对初学者有用的东西却老受到一些人的排斥
总有些心理阴暗的人却在做着为人师表的行径

啵浪鼓

fan_zh 发表于 2016-3-18 16:38
返回的最后一项图元名还需要吗，冒失没有用
去除最后一项后，用下面函数
(defun delsame(l1 / l2);;表中 ...

就是要保留图元名，不然早完成了

得到结果
(
  ((-1739.11 -1629.18 0.0) "STRIP" 2.79 <图元名: 7fffef9bac0>)
  ((-1739.11 -1629.18 0.0) "STRIP" 2.81 <图元名: 7fffef9bxx0>)
)

fan_zh

那你保留哪个图元名呢，第一个？

啵浪鼓

fan_zh 发表于 2016-3-18 17:05
那你保留哪个图元名呢，第一个？

同坐标，同图层，同大小 这3个约束条件下，保留第一个或是随意哪个，没关系

fan_zh

我不想回复了，到时可能会有人说，autolisp也是他的版权了

xyp1964

2. (setq lst '(((-1739.11 -1629.18 0.0) "STRIP" 2.79 <图元名: 7fffef9bac0>)
   
3.             ((-1739.11 -1629.18 0.0) "STRIP" 2.79 <图元名: 7fffef9b980>)
   
4.             ((-1739.11 -1629.18 0.0) "STRIP" 2.81 <图元名: 7fffef9bxx0>)
   
5.            )
   
6. )
   
7. ;; (aaa lst)
   
8. (defun aaa (lst / lst1 lst2 a b)
   
9.   (setq lst1 '()
   
10.         lst2 '()
    
11.   )
    
12.   (foreach a lst
    
13.     (setq b (list (car a) (cadr a) (caddr a)))
    
14.     (if (not (member b lst1))
    
15.       (setq lst1 (cons b lst1)
    
16.             lst2 (cons a lst2)
    
17.       )
    
18.     )
    
19.   )
    
20.   (reverse lst2)
    
21. )

(setq lst '(((-1739.11 -1629.18 0.0) "STRIP" 2.79 <图元名: 7fffef9bac0>)<br />             ((-1739.11 -1629.18 0.0) "STRIP" 2.79 <图元名: 7fffef9b980>)<br />             ((-1739.11 -1629.18 0.0) "STRIP" 2.81 <图元名: 7fffef9bxx0>)<br />            )<br /> )<br /> ;; (aaa lst)<br /> (defun aaa (lst / lst1 lst2 a b)<br />   (setq lst1 '()<br />         lst2 '()<br />   )<br />   (foreach a lst<br />     (setq b (list (car a) (cadr a) (caddr a)))<br />     (if (not (member b lst1))<br />       (setq lst1 (cons b lst1)<br />             lst2 (cons a lst2)<br />       )<br />     )<br />   )<br />   (reverse lst2)<br /> )

llsheng_73

xyp1964 发表于 2016-3-20 15:10

1. (defun delsameat(l1 n / l2 a)
   
2.   (if n(setq l1(mapcar'(lambda(x)(cons(mapcar'(lambda(y)(nth y x))n)x))l1)))
   
3.   (while(setq a(caar l1)l2(cons(cdar l1)l2)l1(vl-remove-if'(lambda(x)(equal(car x)a))(cdr l1))))
   
4.   (reverse l2))

(defun delsameat(l1 n / l2 a)<br />   (if n(setq l1(mapcar'(lambda(x)(cons(mapcar'(lambda(y)(nth y x))n)x))l1)))<br />   (while(setq a(caar l1)l2(cons(cdar l1)l2)l1(vl-remove-if'(lambda(x)(equal(car x)a))(cdr l1))))<br />   (reverse l2))

$  (DELSAMEAT'(((-1739.11 -1629.18 0.0) "STRIP" 2.79 <图元名: 7fffef9bac0>)
                          ((-1739.11 -1629.18 0.0) "STRIP" 2.79 <图元名: 7fffef9b980>)
                          ((-1739.11 -1629.18 0.0) "STRIP" 2.81 <图元名: 7fffef9bxx0>))
                   '(0 1 2))
(((-1739.11 -1629.18 0.0) "STRIP" 2.79 <图元名: 7FFFEF9BAC0>)
((-1739.11 -1629.18 0.0) "STRIP" 2.81 <图元名: 7FFFEF9BXX0>))
_$

啵浪鼓

感谢xyp1964版主，llsheng_73大大