[求助]：如何能快速的把一个表中的数值赋给不同的变量

newer

我在写一个DCL处理函数，想对DCL里面的不同的KEY赋初值。数值我都放入一个表中比如（”CIRCLE" "1000" "3000" "500".....）
怎么能把他们快速的赋值给对应的不同的变量，如：type radius height width等等。

由于量大，我不希望一个一个的用(setq abc (nth 0 mList))这样的多行代码做，有没有方便的方法？

谢谢大家。

ll_j

1. 
   
2. ....
   
3.     (mapcar
   
4.       '(lambda(x y)
   
5.          (if (not (eval x)) (eval (set x y)))
   
6.        )
   
7.       '(08[ 09[ 10[ 11[ 12[ 13[ 14[ 15[ fns[ 05[ 06[ ty[ tt:72)
   
8.       '(1   0   0   1   0   0   1   0   1    0   1   0   2)
   
9.     )
   
10. ....
    

复制代码

相当于：
(if (not 08[) (setq 08[ 1))
(if ...

XDSoft

LL-J的代码考虑了初值变量是否有值，适合提供最新默认值的功能。

如果不考虑，每次都赋值覆盖，那么下面代码就可以：

1. 
   
2. [FONT=courier new]
   
3. (mapcar 'set '(a b c) '(val1 val2 val3))
   
4. [/FONT]

复制代码

注意两个参数表的长度要相等。第一个表'(a b c)里面的是变量名符号。

MAPCAR函数非常高效率，大家好好熟悉它。

newer

谢谢LL-J和晓东，给你们加分。

lgh930

;对ZZLIST1中的操作名按ZZLIST2的顺序进行变量填充
(defun set-tile(zzlist1 zzlist2)
(mapcar '(lambda(zsyb1 zsyb2)
            (set_tile zsyb1 (cond((= (type zsyb2) 'INT)(itoa zsyb2))
                                 ((= (type zsyb2) 'REAL)(rtos zsyb2))
                                 ((= (type zsyb2) 'STR) zsyb2)
                                 (t (itoa(set (read zsyb1) 1)))
                            )
            )
          )  
   zzlist1 zzlist2)
)

雄啸

凑热闹
保存变量
(setq setlist '("mirrtext" "filletrad"))
(setq getlist (mapcar 'getvar setlist))

设置变量
(setq setlist '("mirrtext" "filletrad"))
(mapcar 'setvar setlist '(1 0))

恢复变量
(mapcar 'setvar setlist getlist)