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

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

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 static/image/common/back.gif
(setq zh (getstring "\n请入柱编号:"))
(if (= zh "") (setq zh "KZ1"))

试了，琴剑江山_10184的写法有效，谢谢各位的帮助。谢谢
ZZXXQQ
页: [1]
查看完整版本: 请教如何用LSP写字符串的缺省值