请教：怎样才能让（setval "cecolor" yanse)获取yanse的值

yamjqq

(setq yanse (getreal "\n颜色设置 1红 2黄 3绿 4青 5蓝 6粉<1红>:"))
(if (= yanse nil)
(SETQ yanse 1)
)
(setval "cecolor" yanse)

Gu_xl

yanse必须是字符串！

1. (initget 7 "1 2 3 4 5 6  ")
   
2. (setq yanse (GETKWORD "\n颜色设置 [1红/2黄/3绿/4青/5蓝/6粉]<1红>:"))
   
3. (if (= yanse "")
   
4. (SETQ yanse "1")
   
5. )
   
6. (setvar "cecolor" yanse)

(initget 7 "1 2 3 4 5 6  ")<br /> (setq yanse (GETKWORD "\n颜色设置 [1红/2黄/3绿/4青/5蓝/6粉]<1红>:"))<br /> (if (= yanse "")<br /> (SETQ yanse "1")<br /> )<br /> (setvar "cecolor" yanse)