[LISP函数]：去除表中所有指定元素。

eachy · 发表于 2003-5-20 10:03:47

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;;移除表中所有相同元素
;|;
;;;drop
;;;从列表中移去指定的元素
;;;参数
;;;一个列表和要从列表中移去的元素
;;;示例
;;;(drop 10 '(6 8 10 12))
(defun drop (lst item)
(append (reverse (cdr (member item (reverse lst))))
(cdr (member item lst))
)
)
|;
;自 drop 函数
(defun mdrop (lst item / nlst)
(while lst
(if (/= (car lst) item)
(if nlst
(setq nlst (append (list (car lst)) nlst))
(setq nlst (list (car lst)))
)
)
(setq lst (cdr lst))
)
(reverse nlst)
)
;|;
(defun massoc (key alist / x nlist)
(foreach x alist
(if (eq key (car x))
(if (< (atof (getvar "acadver")) 15.0);;用于实体表时 14和2000+的表有所不同
(setq nlist (cons (append (cdr x)) nlist))
(setq nlist (cons (append (cdr x) '(0)) nlist))
)
)
)
(reverse nlist)
)
|;
;;自massoc
(defun mRemoveItem (lst item / nlst)
(foreach x lst
(if (/= x item)
(if nlst
(setq nlst (append (list x) nlst))
(setq nlst (list x))
)
)
)
(reverse nlst)
)
;;
;;;removeNth
;;;从列表中删除指定的元素。
;;;参数
;;;index:列表中所要删除的元素的索引号(由0开始)。
;;;lst:列表。
;;;返回值
;;;删除指定元素后的列表。
;;;示例
;;;(removeNth 3 '(1 2 3 3))
;|(defun removeNth (index lst / c)
(setq c -1)
(apply 'append
(mapcar '(lambda (x)
(if (/= (setq c (1+ c)) index)
(list x)
)
)
lst
)
)
)|;
;;自removeNth
(defun mRemoveItem (item lst)
(apply 'append
(mapcar '(lambda (x)
(if (/= x item)
(list x)
)
)
lst
)
)
)
;;最简单的
(defun mRemoveItem (item lst)
(vl-remove-if '(lambda (x) (= x item)) lst)
)

;;移除表中所有相同元素 
;|; 
;;;drop 
;;;从列表中移去指定的元素 
;;;参数 
;;;一个列表和要从列表中移去的元素 
;;;示例 
;;;(drop 10 '(6 8 10 12)) 
(defun drop (lst item) 
  (append (reverse (cdr (member item (reverse lst)))) 
          (cdr (member item lst)) 
  ) 
) 
|; 
;自 drop 函数 
(defun mdrop (lst item / nlst) 
  (while lst                                
    (if        (/= (car lst) item) 
      (if nlst 
        (setq nlst (append (list (car lst)) nlst)) 
        (setq nlst (list (car lst))) 
      ) 
    ) 
    (setq lst (cdr lst)) 
  ) 
  (reverse nlst) 
) 
;|; 
(defun massoc (key alist / x nlist) 
  (foreach x alist 
    (if        (eq key (car x)) 
      (if (< (atof (getvar "acadver")) 15.0);;用于实体表时 14和2000+的表有所不同 
        (setq nlist (cons (append (cdr x)) nlist)) 
        (setq nlist (cons (append (cdr x) '(0)) nlist)) 
      ) 
    ) 
  ) 
  (reverse nlist) 
) 
|; 
;;自massoc 
(defun mRemoveItem (lst item / nlst) 
  (foreach x lst 
    (if        (/= x item) 
      (if nlst 
        (setq nlst (append (list x) nlst)) 
        (setq nlst (list x)) 
      ) 
    ) 
  ) 
  (reverse nlst) 
) 
;; 
;;;removeNth 
;;;从列表中删除指定的元素。 
;;;参数 
;;;index:列表中所要删除的元素的索引号(由0开始)。 
;;;lst:列表。 
;;;返回值 
;;;删除指定元素后的列表。 
;;;示例 
;;;(removeNth 3 '(1 2 3 3)) 
;|(defun removeNth (index lst / c) 
  (setq c -1) 
  (apply 'append 
         (mapcar '(lambda (x) 
                    (if        (/= (setq c (1+ c)) index) 
                      (list x) 
                    ) 
                  ) 
                 lst 
         ) 
  ) 
)|; 
;;自removeNth 
(defun mRemoveItem (item lst) 
  (apply 'append 
         (mapcar '(lambda (x) 
                    (if        (/= x item) 
                      (list x) 
                    ) 
                  ) 
                 lst 
         ) 
  ) 
) 
;;最简单的 
(defun mRemoveItem (item lst) 
  (vl-remove-if '(lambda (x) (= x item)) lst) 
)

aeo · 发表于 2003-5-25 16:47:12

最初由 eachy 发布
[B;;最简单的
(defun mRemoveItem (item lst)
(vl-remove-if '(lambda (x) (= x item)) lst)
)[/B]

(= x item)用的不好,弄个实体名试试?

梦断江南 · 发表于 2003-5-26 00:25:05

用equal吧
试了一下,用equal也未能解决aeo提出的问题.变通一下
....
(if (= (type item) 'ENAME)
(vl-remove-if '(lambda (x) (equal (entget x) (entget item))) lst)
)

lsjjm · 发表于 2003-5-26 09:16:55

高手们的问题把我弄糊涂了...
删除表中的指定元素, 不就是数值, 字符, 实体名,子表,表达式...吗? 我用(vl-remove element list) 都可以呀? 能否把问题的来龙去脉说得清楚些, 也好让我们从中学习点什么?

eachy · 发表于 2003-5-26 18:56:18

最初由 lsjjm 发布
[B]高手们的问题把我弄糊涂了...
删除表中的指定元素, 不就是数值, 字符, 实体名,子表,表达式...吗? 我用(vl-remove element list) 都可以呀? 能否把问题的来龙去脉说得清楚些, 也好让我们从中学习点什么? [/B]

的确用 vl-remove 一个函数就可以了，我还得继续努力学习呀，谢谢指教。

梦断江南 · 发表于 2004-1-21 09:59:19

(defun drop (lst item)
  (append (reverse (cdr (member item (reverse lst))))
   (cdr (member item lst))
  )
)
对表中有重复元素出错如(10 5 31 10 2) 去掉10

另外补充一种写法
(defun removeitem (item lst)
(apply 'append (subst nil (list item) (mapcar 'list lst)))
)

lsjjm · 发表于 2004-3-6 03:28:40

消除重复元素可直接使用acet函数：
(acet-list-remove-duplicates (list "d" "s" "s" "d" "d") nil) 返回 ( "d" "s")

jx2008 · 发表于 2007-4-30 17:41:03

大家的程序都很好

jx2008 · 发表于 2009-3-30 08:45:08

如何修改，让他适用于嵌套表呢？

我最近写了一个可以适用于任何嵌套表的函数，改天贴上来！

FlyBird888 · 发表于 2013-5-1 14:00:38

这么好的函数，一定支持

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

[LISP函数]：去除表中所有指定元素。

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [LISP函数]：去除表中所有指定元素。