[LISP程序]：条件语句

yintao

我想写一个判断语句，先让用户输入字符串x(a1或a2或b1或b2)，如果x=a1，y=”aaa”；如果x=a2，y=”bbb”；如果x=b1，y=”ccc”；如果x=b2，y=”ddd”。请问该如何写这个判断语句？

zhynt

例一：

2. 
   
3. (setq x (getstring T ))
   
4.            (cond
   
5.         ((= x "a1")(setq y bbb))
   
6.         ((= x "b1")(setq y ccc))
   
7.         ((= x "b2")(setq y ddd))
   
8.            )
   

<br /> (setq x (getstring T ))<br />            (cond<br />         ((= x "a1")(setq y bbb))<br />         ((= x "b1")(setq y ccc))<br />         ((= x "b2")(setq y ddd))<br />            )<br />

例二：

2. 
   
3. (setq x (getstring))
   
4.    (if (= x "a1")(setq y bbb))
   
5.    (if (= x "b1")(setq y ccc))
   
6.    (if (= x "b2")(setq y ddd))
   

<br /> (setq x (getstring))<br />    (if (= x "a1")(setq y bbb))<br />    (if (= x "b1")(setq y ccc))<br />    (if (= x "b2")(setq y ddd))<br />

yintao

谢谢！
另外，有字符串系列如：123333、25321.1、40654.025878……，他们长度不等，想在左侧第三个字符处添加符号“~”，变成12~3333、25~321.1、40~654.025878……，该怎么实现。

ll_j

例：
(setq aaa "1234.56")
(strcat (substr aaa 1 2) "~" (substr aaa 3))

返回："12~34.56"。注意输入的必须是字符串，如果是数字，必须用函数rtos转换。

yintao

谢谢！
请问如何显示正确的字符位数？
如以下语句运行结果是：
Command: (substr (rtos 12280) 3)
"280.0000"
Command: (substr (rtos 12280.556) 3)
"280.5560"
Command: (substr (rtos 12280.66698) 3)
"280.6670"
而我想要得结果是："280 "、"280.556"、"280.66698"。
该如何实现？

ll_j

看看帮助文件，可以到明经通道下载汉化的。