[编程申请]：如何删除表中的某个元素?

agang198

要删除选择集中的某个元素,可如下处理:
(entdel  (ssname ss i))
若要删除一个表中的第i个元素,然后返回新表,请问该如何处理.
谢谢!

lsjjm

使用ET支持的内部函数：(acet-list-remove-nth n lst) 。

agang198

谢谢楼上指教。
“ET支持的内部函数”是什么函数？自定义函数吗？
直接用LISP该如何实现？
再谢！

xyp1964

测试：
命令: (test 4 (list 44 45 46 47 48 49))
(44 45 46 48 49)
[php]
(defun test (n lst / aaa)
  (setq        aaa lst)
  (repeat (- n 1)
    (setq aaa (vl-remove (car aaa) aaa))
  )
  (setq lst (vl-remove (car aaa) lst))
  lst
)
[/php]

agang198

谢谢！
终于在书上找到：
语法

     (vl-remove  element-to-remove  list)

功能

     删除表中的元素。

说明

1）参数 element-to-remove 为要删除的元素的值。可以为任意 LISP 数据类型。

2）list 为任意表。

返回值：

list，包括删除了与 element-to-remove 相等的元素后的所有元素。

样例：

_$ (vl-remove 0 (list pi 0 "123"))

(3.14159  "123")

lsjjm

[QUOTE]最初由 agang198 发布
[B]谢谢楼上指教。
“ET支持的内部函数”是什么函数？。。。.[/B]/QUOTE]
只要安装了ET工具，便可直接调用。
例如4楼的例子，健入：
(acet-list-remove-nth 4 (list 44 45 46 47 48 49))
返回：(44 45 46 47 49)
注意; 和(nth n lst)函数一样, N=0 表示第一个元素，N=4 为第五个元素。

silen618

4楼主的程序，有一点小bug。请测试：
(test 2 '(2 2 2 5 8 3))
(2 2 2 8 3)
(test 1 '(2 2  5 8 3))
(5 8 3)

xyp1964

[php]
;;删除表中的某个元素
(defun test (n lst / b n1 n2 a)
  (setq        b  '()
        n1 (length lst)
        n2 0
  )
  (while (< n2 n1)
    (if        (/= n2 (- n 1))
      (progn
        (setq a (nth n2 lst))
        (setq b (append b (list a)))
      )
    )
    (setq n2 (+ 1 n2))
  )
  b
)
[/php]
测试：
命令: (test 3 '(2 3 3 3 4 5 6 78))
(2 3 3 4 5 6 78)
命令: (test 2 '(2 2 2 5 8 3))
(2 2 5 8 3)
满足要求！

zk_hisen

楼上的程序很不错啊！

f5612140

最初由 agang198 发布
[B]谢谢！
终于在书上找到：
语法

     (vl-remove  element-to-remove  list)

功能

     删除表中的元素。

说明

1）参数 element-to-remove 为要删除的元素的值。可以为任意 LISP 数据类型。

2）l... [/B]

你的題目是問"第幾個",現在你說找到答案,結果是說"那一個"?