关于“Edit_box”的问题
嘿，伙计们。（action_tile“th”“（setq scl（distof$value）））
这是什么意思？
“th”是“Edit_box”的键，
我想“编辑框”只能输入数字，不能输入字符。如何做？
我想“Edit_box”可以存储，当对话框退出-->再次启动时，编辑框中的值是最后一个，而不是默认值。如何做？
谢谢你的帮助。 Distof“按模式转换包含真实显示格式的字符串”。
（setq scl$value）现在将接受alpha或0-9，但在0-9的情况下，它将是一个字符串而不是数字。
您可以传递要在DCL中使用的默认值。
没有代码发布，所以不知道如何显示示例。
Tks，但我需要一个样品。 如果
是您的对话框文件
editbox是dcl ID
“数字”是编辑框或您的“th”的键。
*内存*是全局默认值
(setq *memory* (if (and *memory* (= (type *memory*) 'STR))*memory* "0.000"))
(defun c:test (/ dcl_id dd)
(setq dcl_id (load_dialog <editbox.dcl> ) dd 1)
(while
(or (not (numberp (read *memory*)))(= dd 1))
(new_dialog "editbox" dcl_id)
(set_tile "number" *memory*)
(action_tile "accept" "(setq *memory* (get_tile \"number\"))(done_dialog 0)")
(setq dd (start_dialog))
) ;_ end of while
(unload_dialog dcl_id)
(princ)
) ;_ end of defun
非常感谢韩，我会好好学习的！
页:
[1]