在表的指定位置插入和删除元素

ljxkm

最近编程需要，写了一对表处理自定义函数，在表指定位置删除和插入元素，自己觉得代码还算简洁，使用效果不错，故贴源码供参考：
;;;;(ljx-del-member (id lst / i lst1)) 删除表中指定位置元素，
;;;;id--要删除的元素的序号，从零开始，id超出表体长度时附于表后返回
;;;;lst--表
;;;;示例：(ljx-del-member 5  '(0 1 2 3 4  "d" "f"))-->(0 1 2 3 4 "f")
;;;;函数作者:        jixiangluo
;;;;最后修改日期2019.8.10

;;;;(ljx-insert-member (id eml lst / i lst1)) 在表中指定位置插入一个元素
;;;;id--要插入元素的位置序号，从零开始，id超出表体长度时原表返回
;;;;eml--要插入的元素
;;;;lst--表
;;;;示例：(ljx-insert-member 5 '("d" "e" "f") '(0 1 2 3 4  "d" "f"))-->(0 1 2 3 4  ("d" "e" "f") "d" "f")
;;;;函数作者:        jixiangluo
;;;;最后修改日期2019.8.10

ljxkm

再增加一个删除表内重复元素：
;;;;(ljx-del-duplicated (lst / lst1)) 删除表内重复元素，保留第一个
;;;;lst--要删除重复元素的表格
;;;;示例：;;;;(ljx-del-duplicated '( 1 2 3 4 5 6 7 8 "a" 9 1 2 "a" "b"))-->(1 2 3 4 5 6 7 8 "a" 9 "b")                             
;;;;函数作者:        jixiangluo
;;;;最后修改日期2019.8.11
(defun ljx-del-duplicated (lst / lst1)
  (setq lst1 '())
  (while lst
    (setq lst1 (cons (car lst) lst1)
          lst (vl-remove (car lst) lst)
    )
  )
  (setq lst1 (reverse lst1))
)

ljxkm

直接贴出来更方便啊
;;;;示例：(ljx-del-member 5  '(0 1 2 3 4  "d" "f"))-->(0 1 2 3 4 "f")
;;;;函数作者:        jixiangluo
;;;;最后修改日期2019.8.10
(defun ljx-del-member (id lst / i lst1)
  (cond
    ((and (>= id 0) (<= id (1- (length lst))))
     (setq i -1 lst1 '())
     (foreach me lst (progn (setq i (1+ i) lst1 (if (/= i id) (cons me lst1) lst1))))
     (setq lst1 (reverse lst1))
    )
    (T
     (setq lst1 lst)
    )
  );;;;cond
  lst1
)
;;;;(ljx-insert-member (id eml lst / i lst1)) 在表中指定位置插入一个元素
;;;;id--要插入元素的位置序号，从零开始，id超出表体长度时原表返回
;;;;eml--要插入的元素
;;;;lst--表
;;;;示例：(ljx-insert-member 5 '("d" "e" "f") '(0 1 2 3 4  "d" "f"))-->(0 1 2 3 4  ("d" "e" "f") "d" "f")
;;;;函数作者:        jixiangluo
;;;;最后修改日期2019.8.10
(defun ljx-insert-member (id eml lst / i lst1)
  (cond
    ((and (>= id 0) (<= id (1- (length lst))))
     (setq i -1 lst1 '())
     (foreach me lst (progn (setq i (1+ i) lst1 (if (= i id) (cons me (cons eml lst1)) (cons me lst1)))))
     (setq lst1 (reverse lst1))
    )
    (T
     (setq lst1 lst)
    )
  );;;;cond
  lst1
)
                                     

烟盒迷唇

谢谢分享啊

czb203

发一个视频看一下，怎么操作

ljxkm

czb203 发表于 2019-8-14 20:19
发一个视频看一下，怎么操作

先在命令行输入三个函数定义部分
  1、在cad命令行输入：(ljx-del-member 5  '(0 1 2 3 4  "d" "f"))
结果-->(0 1 2 3 4 "f")，就删除了第五个元素"d"了。
  2、在cad命令行输入：(ljx-insert-member 5 '("d" "e" "f") '(0 1 2 3 4  "d" "f"))
结果-->(0 1 2 3 4  ("d" "e" "f") "d" "f")，在第五的位置插入了元素("d" "e" "f")
  3、在cad命令行输入：(ljx-del-duplicated '( 1 2 3 4 5 6 7 8 "a" 9 1 2 "a" "b"))
结果-->(1 2 3 4 5 6 7 8 "a" 9 "b")，重复的元素保留第一个外，其余删除。
  函数就这样使用了，做视频也做不出什么来，能否用着，看你的程序和你的意愿了

ketxu

Thanks for sharing

言戲無軍

正需要，楼主就发布了，不错

ljxkm

使用中发现在指定位置插入元素最后一个，即插入位置超出表长时，还是直接附于表后比较方便，故修改一下：
;;;;(ljx-insert-member (id eml lst / i lst1)) 在表中指定位置插入一个元素
;;;;id--要插入元素的位置序号，从零开始，id超出表体长度时附于表后返回
;;;;eml--要插入的元素
;;;;lst--表
;;;;示例：(ljx-insert-member 5 '("d" "e" "f") '(0 1 2 3 4  "d" "f"))-->(0 1 2 3 4  ("d" "e" "f") "d" "f");;;;;;       (ljx-insert-member 7 '("d" "e" "f") '(0 1 2 3 4  "d" "f"))-->(0 1 2 3 4   "d" "f" ("d" "e" "f"))
;;;;函数作者:        jixiangluo
;;;;最后修改日期2019.8.10
(defun ljx-insert-member (id eml lst / i lst1)
  (cond
    ((and (>= id 0) (<= id (1- (length lst))))
     (setq i -1 lst1 '())
     (foreach me lst (progn (setq i (1+ i) lst1 (if (= i id) (cons me (cons eml lst1)) (cons me lst1)))))
     (setq lst1 (reverse lst1))
    )
   ((>= id (length lst))
    (setq lst1 (append lst (list eml)))
   )
    (T
     (setq lst1 lst)
    )
  );;;;cond
  lst1
)