如何替换表中第n个元素？

tm20038175

例如一个表，
lst=(n0 n1 … nj… nn)
我想用mj替换nj得到新的表：
lst=(n0 n1 … mj… nn)
如何做到呀！

tm20038175

就是替换第j+1个元素，或者通俗的说第n个元素，一个意思。

ZZXXQQ

1. (defun repn (lst n new / nlst)
   
2. (if (> (length lst) n) (progn
   
3.   (setq i 0)
   
4.   (foreach x lst (setq nlst (append nlst (list (if (= i n) new x))) i (1+ i)))
   
5. ))
   
6. nlst
   
7. )
   

(defun repn (lst n new / nlst)<br /> (if (> (length lst) n) (progn<br />   (setq i 0)<br />   (foreach x lst (setq nlst (append nlst (list (if (= i n) new x))) i (1+ i)))<br /> ))<br /> nlst<br /> )<br />

yanguangfei

构建一个新的表，对旧表循环

yanguangfei

构建一个新的表，对旧表循环

Andyhon

Ref Link:

http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/change-only-one-element-of-list/td-p/885496/page/2
http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/change-only-one-element-of-list/td-p/885496/page/3
http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/List-Replace-a-Member-with-another/td-p/827778
http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/Removing-element-in-known-location-of-list/td-p/795694

tm20038175

谢谢大家，好多回复呀。。。。

cabinsummer

http://bbs.mjtd.com/thread-92135-1-1.html
有此函数mdfylist

chenyizhen28

ZZXXQQ 发表于 2012-4-28 20:35

这个怎么用啊？不太会用。

ZZXXQQ

chenyizhen28 发表于 2023-1-14 00:02
这个怎么用啊？不太会用。

加载后执行：
(repn lst n new)