问下list怎么转成变量并执行语句

yaojing38

2. (setq a (STRCAT ZXMM "_" TZZY "_" TZBH "_" TZMC))

(setq a (STRCAT ZXMM "_" TZZY "_" TZBH "_" TZMC))

a是这样一个语句，其中   ZXMM  TZZY TZBH TZMC 均为变量，当前a 赋值得到 (STRCAT ZXMM "_" TZZY "_" TZBH "_" TZMC) 当前是一个list，我是从外部txt 读取进来的，，怎么让语句运行，，a 得到运行的值呢？？还是我得换个方法，，，因为  这里的变量组合是要能更改的，，大神们是怎么操作的呢。。。。求不吝赐教，，，谢谢！

nzl1116

2. (defun rrr (Lst / ttt)
   
3.   (defun ttt (Str Lst)
   
4.     (if        (not Lst)
   
5.       Str
   
6.       (ttt (strcat Str "_" (car Lst)) (cdr Lst))
   
7.     )
   
8.   )
   
9.   (ttt (car Lst) (cdr Lst))
   
10. )

(defun rrr (Lst / ttt)<br />   (defun ttt (Str Lst)<br />     (if        (not Lst)<br />       Str<br />       (ttt (strcat Str "_" (car Lst)) (cdr Lst))<br />     )<br />   )<br />   (ttt (car Lst) (cdr Lst))<br /> )

_$ (rrr '("a" "b" "c" "d"))
"a_b_c_d"
是这个意思？

yaojing38

nzl1116 发表于 2023-6-5 20:11
_$ (rrr '("a" "b" "c" "d"))
"a_b_c_d"
是这个意思？

不是哦，，，ZXMM  TZZY TZBH TZMC 这里的这些要转成形参传值用。。。就是我要组合变量，让a不同的组合有不同的值  比如：我程序中 ZXMM  "1" TZZY "2" TZBH  "3" TZMC "4" 数字为各参数的真实值，然后a就成了“1_2_3_4”，当我改变 ZXMM  TZZY TZBH TZMC 顺序，他有时候要成为“1_3_2_4”。

飞雪神光

看不懂 你还是发源码上来吧 这么问很难解决问题

sandyvs

yaojing38 发表于 2023-6-5 21:12
不是哦，，，ZXMM  TZZY TZBH TZMC 这里的这些要转成形参传值用。。。就是我要组合变量，让a不同的组合有 ...

set函数可以不??

x_s_s_1

(setq a(eval'(...)))

liweihua-1984

(set  (read (nth i a))   "值")

yaojing38

可以了，，6#正解，，7#一个个赋值的好像也可以，方法不一样。。谢谢大佬们！！！

e2002

使用 set, read 函数解决你的问题。