带缺省值的输入

greatlmy

(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

这个功能还是有用的