不输数字，也可作出两种选择

zwqgdhl · 发表于 2011-9-28 09:43:53

程序中经常会遇到两种选择，以前，我一般是输入数字，作出两种选择，缺点是找键盘有时不太方便（例如
(setq x-n (getreal "\n<1.输入数字 2.点击数字>"))
(if (= x-n nil)
(setq x-n 1)
(setq x-n 2)
)

昨天，突然发现利用鼠标左右键，也可以作出两种选择，省去了输数字找键盘的烦恼（例如
(setq x-n (getpoint "\n<输入数字∨点选数字>"));;;利用鼠标左键取消或点击右键可以不用输入任何数字而轻松实现二种选择
(if (= x-n nil)
(setq x-n 1)
(setq x-n 2)
)

哈哈，也算是一个小小的发现吧，确实简便多了

该贴已经同步到 zwqgdhl的微博

ruirui999 · 发表于 2011-9-28 10:03:54

也对，呵呵

yjr111 · 发表于 2011-9-29 01:59:22

有理走遍天下，佩服

yjr111 · 发表于 2011-9-30 02:53:22

一个小程用得上，谢谢了

another2121 · 发表于 2011-9-30 10:11:23

很好很强大。。。很有创意。。。。。

zoubo604 · 发表于 2011-9-30 10:54:22

我也来支持一下.

yshf · 发表于 2011-9-30 11:08:07

不错，有创意！

yjr111 · 发表于 2011-10-3 01:43:31

哈哈，我也有一个新发现。。。且看：
(setq key (getstring "\n Yes No>"))
(if (= key nil)
(setq key "Yes")
(setq key "No")
)
运行OK！

mokson · 发表于 2011-10-5 00:35:16

我早就知道了。

669423907 · 发表于 2012-3-17 11:46:02

这个好，多谢各位分享！

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