getint使用基础问题

tempasdf · 发表于 2024-10-23 22:48:32

各位

      (setq Size (getint "字高:"))
      (if (null Size)(setq Size 5))
      以上两行可以在输入字高时按空格或回车将5 赋值给  intTxtSize 有没有办法在输入过程中回车或空格无效,必须让用户输入数字?getkword的办法暂时不考虑因为输入的范围不想限制.

Andyhon · 发表于 2024-10-23 23:07:25

(while (not (setq Size (getint "字高:"))))

aws · 发表于 2024-10-24 09:25:50

又是个强奸用户的需求。。。用户不输入就直接强制退出呗。。。

嘒彼小星 · 发表于 2024-10-24 10:10:11

(if(setq Size (getint "字高:"))(progn))

xyp1964 · 发表于 2024-10-24 12:45:14

(or th(setq th 5.))
(setq th (Ureal 7 "" "字高" th))

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

[提问] getint使用基础问题