[求助]：有在表的指定位置替换元素的函数吗

走过小桥

如下表 ，我想把表num1的第4个元素5.0替换为3.2，该用什么方法
(setq list1 (list 5.0 78.0 62.1 5.0 22.0))
我用SUBST函数
(subst 3.2 (nth 3 list1) list1)
得到的结果是
'(3.2 78.0 62.1 3.2 22.0)
不是我想要的表 '(5.0 78.0 62.1 3.2 22.0)
还有就是怎么在list1的第2元素78.0和第3个元素62.1之间插入一个元素5.8

舟自横

(defun hy_ijlist(lst i J / APLIST);;;取得列表從i開始以后j數量的片段表如果j為nil則取出i以后的列表從0開始
  (setq aplist '())
  (if (= j nil)
      (repeat (+ i 1)
      (setq lst (cdr lst))
      (setq aplist lst))
      (progn
      (repeat j
      (setq aplist (cons (nth i lst) aplist))
        (setq i (1+ i))
        )
      (setq aplist (reverse aplist))
      )
    )
  aplist
  )
假设你要替换LIST1第N项,新项为ITEM;;N从1开始计算
(SETQ LIST1 (append (hy_ijlist LIST1 0 (- n 2)) (list item) (hy_ijlist LIST1 n nil)))
就可以拉
如果你是要在第N和第N+1项中插一项item,
(setq list1 (append (hy_ijlist LIST1 0 (- n 1)) (list item)(hy_ijlist LIST1 n nil)))
其实如果你有AP-AI函数库的话里面有一个AP-SET-NTH
函数可以替换列表中的子项(AP-SET-NTH N LISTT ITEM)
N为需要替换的项,ITEM为新项,LISTT为需要操作的列表