如何在表的子表增加表项

jack093 · 发表于 2019-7-31 16:49

本帖最后由 jack093 于 2019-7-31 16:50 编辑

如何在表的子表增加表项
;;表项修改 append 添加
(defun lst-append-nth (lst n item / len ret )
(setq len (length lst)ret nil)
(while (> len 0)
      (setq len (1- len))
      (if (= n len)
         (setq ret(cons (cons item (nth len lst)) ret))
         (setq ret(cons (nth len lst)ret))
      )
)ret
)
(setq lst (lst-append-nth lst  2 4))
(nil nil (4) nil nil nil nil nil nil nil)
(setq lst (lst-append-nth lst  2 3))
(nil nil (3) nil nil nil nil nil nil nil)
上面的代码有问题，
我希望是增加，而不是替换
(nil nil (4 3) nil nil nil nil nil nil nil)

taoyi0727 · 发表于 2019-7-31 18:05

(lst-append-nth '(1 2 3 4 5 6) 2 999)---->(1 2 (999 . 3) 4 5 6)
你那个函数是这样的

taoyi0727 · 发表于 2019-7-31 18:07

(lst-append-nth '(nil nil nil nil nil) 2 999)--->(nil nil (999) nil nil)
这种才是你说的那种结果原来本来就是空值

jack093 · 发表于 2019-7-31 20:21

本帖最后由 jack093 于 2019-7-31 20:23 编辑

原来的表项或者是nil，或者是列表；
希望结果是
((1) (2) (999 3) (4) (5) (6))
(nil nil (999) nil nil)
这样的结果

fangmin723 · 发表于 2019-8-1 08:48

本帖最后由 fangmin723 于 2019-8-1 08:57 编辑

;;说明:列表更改子项
;;参数:lst:列表-list
;;参数:n:更改项索引值-int
;;参数:item:更改后的值
;;返回:当n小于列表长度时，返回更改后的列表；否则则返回传入的lst列表。
(defun lst-append-nth(lst n item)
(if (< n (length lst))
(progn
(setq i 0 mylst nil)
(foreach itm lst
(if (= i n)
(progn
(if (and (/= itm nil) (listp itm))
(setq mylst (append mylst (list (append itm (list item)))))
(if (= itm nil)
(setq mylst (append mylst (list item)))
(setq mylst (append mylst (list (list itm item))))
)
)
(setq i (+ i 1))
)
(setq mylst (append mylst (list itm)) i (+ i 1))
)
)
mylst
)
(progn
(princ "\n错误：索引值超出索引界限！")
lst
)
)
)
(setq lst '(nil nil 0 nil nil nil nil nil nil nil) j 1)
(repeat 10
(setq lst (lst-append-nth lst 2 j) j (+ j 1))
(print lst)
(princ)
)
(princ "\n============================================")
(repeat 10
(setq lst (lst-append-nth lst 5 j) j (+ j 1))
(print lst)
(princ)
)
(princ "\n============================================")
(setq lst (lst-append-nth lst 5 '(1 2 3 4 5 6)))
(print lst)
(princ)

;;说明:列表更改子项 
;;参数:lst:列表-list 
;;参数:n:更改项索引值-int 
;;参数:item:更改后的值 
;;返回:当n小于列表长度时，返回更改后的列表；否则则返回传入的lst列表。 
(defun lst-append-nth(lst n item) 
  (if  (< n (length lst)) 
    (progn 
      (setq i 0 mylst nil) 
      (foreach itm lst 
        (if  (= i n) 
          (progn 
            (if (and (/= itm nil) (listp itm)) 
              (setq mylst (append mylst (list (append itm (list item))))) 
              (if  (= itm nil) 
                (setq mylst (append mylst (list item))) 
                (setq mylst (append mylst (list (list itm item)))) 
              ) 
            ) 
            (setq i (+ i 1)) 
          ) 
          (setq mylst (append mylst (list itm)) i (+ i 1)) 
        ) 
      ) 
      mylst 
    ) 
    (progn 
      (princ "\n错误：索引值超出索引界限！") 
      lst 
    ) 
  ) 
) 
(setq lst '(nil nil 0 nil nil nil nil nil nil nil) j 1) 
(repeat 10 
  (setq lst (lst-append-nth lst 2 j) j (+ j 1)) 
  (print lst) 
  (princ) 
) 
(princ "\n============================================") 
(repeat 10 
  (setq lst (lst-append-nth lst 5 j) j (+ j 1)) 
  (print lst) 
  (princ) 
) 
(princ "\n============================================") 
(setq lst (lst-append-nth lst 5 '(1 2 3 4 5 6))) 
(print lst) 
(princ)

jack093 · 发表于 2019-8-2 10:43

fangmin723 发表于 2019-8-1 08:48

谢谢版主，问题完满解决

fangmin723 · 发表于 2019-8-2 11:36

jack093 发表于 2019-8-2 10:43
谢谢版主，问题完满解决

不客气，能帮到你就不枉费我一番辛苦了。
我不是版主，我也不是谁，我只不过是个乐于助人的路人，仅此而已

zixuan203344 · 发表于 2019-8-2 17:40

fangmin723 发表于 2019-8-2 11:36
不客气，能帮到你就不枉费我一番辛苦了。
我不是版主，我也不是谁，我只不过是个乐于助人的路人，仅此而 ...

嗯，我们都知道，你是个好人

zixuan203344 · 发表于 2019-8-2 17:41

fangmin723 发表于 2019-8-2 11:36
不客气，能帮到你就不枉费我一番辛苦了。
我不是版主，我也不是谁，我只不过是个乐于助人的路人，仅此而 ...

嗯，我们都知道，你是个好人

1291500406 · 发表于 2019-8-2 22:28

好人一生平安

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

[讨论] 如何在表的子表增加表项

本帖子中包含更多资源