如何控制DCL中编辑框输入内容？

SWAYWOOD

如何控制DCL中编辑框输入内容，比如只能为数字？

f5612140

lsp中設定,dcl只是構架

SWAYWOOD

如何在用户输入数据错误时给予提示，我用ALERT，但点击确定后，程序就退出了，怎么让确定后，返回原对话框？

e2002

SWAYWOOD发表于2004-5-15 13:07:00如何在用户输入数据错误时给予提示，我用ALERT，但点击确定后，程序就退出了，怎么让确定后，返回原对话框？

你应该在"Exit"按钮的动作函数中先判断editbox控件的值是否是有效的,如果无效,则给出提示(通常是设置error控件的值为"Error....."),而不是退出对话框

SWAYWOOD

不太明白，能否给个例子？

SWAYWOOD

清高手帮帮忙！

alin

test1: dialog {
: edit_box {key = "input"; width = 8;}
ok_cancel;
} (defun c:test1(/ dcl_id)
(setq dcl_id (load_dialog "test1.dcl"))
(if (null (new_dialog "test1" dcl_id)) (exit))
(action_tile "accept" "(if (not (nump (setq input (get_tile \"input\"))))(alert \"不是数字！\")(done_dialog 1))")
(start_dialog)
(unload_dialog dcl_id)
(princ)
)
(defun nump(str)
(if (member (type (read str)) (list 'INT 'REAL))
t
nil
)
)

SWAYWOOD

谢谢，看看先

SWAYWOOD

为什么ALERT嵌套在action_tile中就不会退出程序，而要是在主程序中就会退出呢？

meflying

看来你对对话框的运行过程还基本不熟, 建议你多琢磨琢磨先