[求助]：edit_box问题

winabcd

在用EDIT_BOX时，如果要接收的是一个数字，如字体高度，
但在实际输入时，EDIT_BOX接收的是字符，虽然可以把字符串转换成数字，但是在输入时，如果向EDIT_BOX中输入字母，如ABC等，EDIT_BOX并不会拒绝，而是一样接收，这样一来，界面就不友好，而且容易出错，
有没有办法让EDIT_BOX只接收数字字符，输入字母时，EDIT_BOX不接收，
请指教。

qjcpj

将mode_tile属性设为2。

以下是我程序中的一个子程序，供参考：

...
(defun SZ_A        ()
        (if        (= (get_tile "guige_A") "")
                (progn
                        (mode_tile "guige_A" 2)
                        (alert "尺寸A必须赋值！")
                        (vs)
                )
        )
)
...

winabcd

楼上的是讲在结束EDIT_BOX输入后检查输入值，防止没有输入值，不知是不是这个意思。
我想问的是，如果在EDIT_BOX中，我想输入的值是“123”，可不小心输入了“12w3”，转换成数值后成了“12”，而不是我想输入的“123”，此时，程序运行正常，但结果不是我要的结果。
我想请教有没有办法，当我输入“12w3”时，在EDIT_BOX中没有“w”，而只有“123”

qjcpj

将mode_tile属性设为2，并且在lsp程序中设置判断条件，可以实现当光标离开编辑框(鼠标点对话框中除EDIT_BOX外的任意位置)，如果EDIT_BOX中有“w”之类的字符串时，光标将定位在EDIT_BOX中，只有EDIT_BOX中的字符串符合形如“12342”时才能离开。