删除表中元素

奋斗的研究生 · 发表于 2015-11-4 20:23:06

（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 · 发表于 2015-11-5 08:25:29

本帖最后由 USER2128 于 2015-11-5 08:44 编辑

(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)
))
;;; 对点表进行X、Y、Z排序（此略）.
(setq tmp (mapcar '(lambda(x y) (if (equal x y) nil y))
points (cdr points)))
(setq tmp (vl-remove 'nil tmp))
(setq tmp (cons (car points) tmp))

奋斗的研究生 · 发表于 2015-11-5 10:18:27

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

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

USER2128 · 发表于 2015-11-5 10:36:16

你从基本功抓起吧，如你不用'，就用
(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)
            ))
也行的。

奋斗的研究生 · 发表于 2015-11-5 11:04:37

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

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

账号		自动登录	找回密码
密码			注册

[讨论] 删除表中元素

相关帖子