因为在 cad作图时，往往要输入一些说明文字(文字是固定的类型)，为了快捷，将他们分别用一个字母来代替。
例如： 即在敲入s ,输出的却是“水泥地”，敲入 W，输出的是“围墙”，等等。

(if hz
()
(setq hz "")
)

(SETQ nhz (GETSTRING (strcat "\n类型：S:水泥地 W:围墙 F:房角 H:花圃 <" lx "> :>" )))

(cond
((= (strcase nhz nil) "S") (SETQ LX "水泥地"))
((= (strcase nhz nil) "W") (SETQ LX "围墙"))
((= (strcase nhz nil) "H") (SETQ LX "花圃"))
(T (SETQ LX nhz))
)

（ setq hz lx)
然而输出的仍然是字母。
请问，这样的语句要如何写才能实现？
请高手指点，或者帮我完善。
在此先谢了。
已解决

[ 本帖最后由 lin_461045462 于 2010-10-11 06:29 编辑 ]