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

getint使用基础问题

各位

          (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))
页: [1]
查看完整版本: getint使用基础问题