删除表中元素

奋斗的研究生

（setq points (
                         (378499.0 43587.4 -1.65106e-056)
                         (378499.0 43587.4 -1.65106e-056)
                         (378499.0 43587.4 -1.65106e-056)
                         (378480.0 43587.4 -1.65106e-056)
                        ))

如何输出points为去除相同元素后的列表

USER2128

2. (setq points '((378499.0 43587.4 -1.65106e-056)
   
3.                (378499.0 43587.4 -1.65106e-056)
   
4.                (378499.0 43587.4 -1.65106e-056)
   
5.                (378480.0 43587.4 -1.65106e-056)
   
6.                ))
   
7. ;;; 对点表进行X、Y、Z排序（此略）.
   
8. (setq tmp (mapcar '(lambda(x y) (if (equal x y) nil y))
   
9.                   points (cdr points)))
   
10. (setq tmp (vl-remove 'nil tmp))
    
11. (setq tmp (cons (car points) tmp))

(setq points '((378499.0 43587.4 -1.65106e-056)<br />                (378499.0 43587.4 -1.65106e-056)<br />                (378499.0 43587.4 -1.65106e-056)<br />                (378480.0 43587.4 -1.65106e-056)<br />                ))<br /> ;;; 对点表进行X、Y、Z排序（此略）.<br /> (setq tmp (mapcar '(lambda(x y) (if (equal x y) nil y))<br />                   points (cdr points)))<br /> (setq tmp (vl-remove 'nil tmp))<br /> (setq tmp (cons (car points) tmp))

奋斗的研究生

USER2128 发表于 2015-11-5 08:25

points后面的列表不带标点符号’

USER2128

你从基本功抓起吧，如你不用'，就用
(setq points (List (378499.0 43587.4 -1.65106e-056)
               (378499.0 43587.4 -1.65106e-056)
               (378499.0 43587.4 -1.65106e-056)
               (378480.0 43587.4 -1.65106e-056)
               ))
也行的。

奋斗的研究生

USER2128 发表于 2015-11-5 10:36
你从基本功抓起吧，如你不用'，就用
(setq points (List (378499.0 43587.4 -1.65106e-056)
             ...

恩 好的 我在从基础学习 谢谢您了