如何将字符与变量互换，例如 "A3" → A3 → "A3"

ayunger

(defun c:css()
 (setq xRec '(("ABC" 60 50 30 20 148 80 100 24 10 50 20 22)));改为从数据文件读入的信息即可!
 (setq SYM1 '("E1" "E2" "E3" "E4" "E5" "E6" "E7" "E8" "E9" "E10" "E11" "E12"))
 (setq xList (cdr (assoc "ABC" xRec)))
 (foreach n xList
  (set (read (car SYM1)) n)
  (setq SYM1 (cdr SYM1))
 );end_foreach
 (princ (strcat "\nE1=" (rtos E1 2 3)))
 (princ (strcat "\nE2=" (rtos E2 2 3)))
 (princ (strcat "\nE3=" (rtos E3 2 3)))
 (princ (strcat "\nE4=" (rtos E4 2 3)))
 (princ (strcat "\nE5=" (rtos E5 2 3)))
 (princ (strcat "\nE6=" (rtos E6 2 3)))
 (princ (strcat "\nE7=" (rtos E7 2 3)))
 (princ (strcat "\nE8=" (rtos E8 2 3)))
 (princ (strcat "\nE9=" (rtos E9 2 3)))
 (princ (strcat "\nE10=" (rtos E10 2 3)))
 (princ (strcat "\nE11=" (rtos E11 2 3)))
 (princ (strcat "\nE12=" (rtos E12 2 3)))
 (princ)
);end_defun