自定义缺省值处理函数

ygrzz

;;; 自定义缺省值处理函数varstr
(defun varstr (str)
    (if (null strf)
        (setq strf str)
    )
    (setq var (getreal (strcat "默认< " (rtos strf) " >:")))
    (if (null var)
        (setq var strf)                ; 用缺省值作为默认输入
    )
    (setq strf var)
)
;;; 第一次调用按(princ "请输入...")(varstr 0.5)
;;; 命令行提示为：请输入...默认< 0.5 >:  若输入0.8
;;; 再次调用提示为：请输入...默认< 0.8 >:

【KAIXIN】

  这个不错，顶你一个

cabinsummer

我一般把需要保存的缺省值放在文件或注册表里