[LISP程序]：条件语句

yintao

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

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

lt_zzy

(if x
      (cond
        ((= x "a1")
          (setq y "aaa")
        )
        ((= x "a2")
          (setq y "bbb")
        )
        ((= x "b1")
          (setq y "ccc")
        )
        ((= x "b2")
          (setq y "ddd")
        )
   )
)


另外，你的字符串是CAD上的文本处理，还是内部函数处理？

yintao

谢谢！
是文本处理。
我的具体问题请看：“请问如何显示正确的字符位数？”