greatlmy 发表于 2013-6-11 07:38:17

带缺省值的输入

(defun getd (s d) ; 带缺省值的输入

;       S---提示字符串

;       D---缺省值

        (mapcar 'princ (list s "<" d ">: "))

        (setq k (if (eq (type d) 'int) (getint) (getreal)))

        (if k k d)

)

例：
键入：(getd "A=" 10)
提示：A=<10>:
如回车则返回10
如输入其他数则返回其他数



ynhh 发表于 2014-3-6 16:19:38

这个功能还是有用的
页: [1]
查看完整版本: 带缺省值的输入