请教如何用LSP写字符串的缺省值

泥水匠乐悠悠 · 发表于 2015-1-21 22:33:28

1,如何用LSP写字符串的缺省值,例如:
(setq zh (getstring "\n请入柱编号<默认值:KZ1>:"))
(if (not "KZ1") (setq zh "KZ1"))
2，当回车或按空格后，默认值:KZ1没能赋值给zh，请教怎样处理？谢谢。

wzg356 · 发表于 2015-1-21 23:08:06

(if (not (setq zh (getstring "\n请入柱编号<默认值:KZ1>:"))) (setq zh "KZ1"))

琴剑江山_10184 · 发表于 2015-1-22 15:42:03

(setq zh (getstring "\n请入柱编号<默认值:KZ1>:"))
(if (= zh "") (setq zh "KZ1"))

香田里浪人 · 发表于 2015-1-22 18:31:09

(setq zh (getdist "\n请输入请入柱编号:(默认kz1)"))
(if (= zh nil) (setq zh"KZ1"))

泥水匠乐悠悠 · 发表于 2015-1-22 23:11:03

琴剑江山_10184 发表于 2015-1-22 15:42
(setq zh (getstring "\n请入柱编号:"))
(if (= zh "") (setq zh "KZ1"))

试了，琴剑江山_10184的写法有效，谢谢各位的帮助。

谢谢
ZZXXQQ

账号		自动登录	找回密码
密码			注册

[已解答] 请教如何用LSP写字符串的缺省值