定制输入函数

st788796 · 发表于 2014-4-8 11:34:05

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 st788796 于 2014-4-8 11:35 编辑

对话框效果不错，写起来也麻烦

(defun _getinput (msg low up mmax sym / i)
(while
(and
(setq
i (getint
(if (eval sym)
(strcat "\n"
msg
"<"
(vl-princ-to-string (vl-symbol-value sym))
">: "
)
(strcat "\n" msg ": ")
)
)
)
(progn (if mmax
(if (> i mmax)
(progn
(princ "\n超出最大值 ")
(princ mmax)
(princ " , 重新输入!")
t
)
)
)
(if (< i low)
(progn
(princ "\n小于最小值 ")
(princ low)
(princ " , 重新输入!")
t
)
t
)
(if mmax
(not (<= low i mmax))
(not (<= low i up))
)
)
)
)
(if i
(set sym i)
(setq i (vl-symbol-value sym))
)
i
)

(defun _getinput (msg low up mmax sym / i) 
  (while 
    (and 
      (setq 
        i (getint 
            (if        (eval sym) 
              (strcat "\n" 
                      msg 
                      "<" 
                      (vl-princ-to-string (vl-symbol-value sym)) 
                      ">: " 
              ) 
              (strcat "\n" msg ": ") 
            ) 
          ) 
      ) 
      (progn (if mmax 
               (if (> i mmax) 
                 (progn 
                   (princ "\n超出最大值 ") 
                   (princ mmax) 
                   (princ " , 重新输入!") 
                   t 
                 ) 
               ) 
             ) 
             (if (
               (progn 
                 (princ "\n小于最小值 ") 
                 (princ low) 
                 (princ " , 重新输入!") 
                 t 
               ) 
               t 
             ) 
             (if mmax 
               (not (<= low i mmax)) 
               (not (<= low i up)) 
             ) 
      ) 
    ) 
  ) 
  (if i 
    (set sym i) 
    (setq i (vl-symbol-value sym)) 
  ) 
  i 
)

命令: (_getinput "高度(1-100)" 1 100 150 '**Height**)

高度(1-100)<100>: -1

小于最小值 1 , 重新输入!
高度(1-100)<100>: 200

超出最大值 150 , 重新输入!
高度(1-100)<100>: 30
30

ysq101 · 发表于 2014-4-8 12:32:30

本帖最后由 ysq101 于 2014-4-8 12:33 编辑

简单的看了一下你的代码。。。
我又学会了一招：
原来IF是可以用来模仿DOS系统中的BAT（批处理文件）的GOTO
汗。。。评分选错了。。应该是主题奖

liuyj · 发表于 2014-4-8 20:30:07

哪有对话框？

xvjiex · 发表于 2021-6-9 00:06:12

感谢分享定制输入函数！

janshyl · 发表于 2021-6-9 07:55:39

感謝樓主分享

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

[每日一码] 定制输入函数

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分