yang686526

如何将字符与变量互换，例如 "a3" → a3 → "a3"
www.dimcax.com

(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
d