关于“Edit_box”的问题

cadfan · 发表于 2022-7-5 19:57:03

嘿，伙计们。

（action_tile“th”“（setq scl（distof$value）））
这是什么意思？
“th”是“Edit_box”的键，

我想“编辑框”只能输入数字，不能输入字符。如何做？

我想“Edit_box”可以存储，当对话框退出-->再次启动时，编辑框中的值是最后一个，而不是默认值。如何做？

谢谢你的帮助。

BIGAL · 发表于 2022-7-5 20:18:39

Distof“按模式转换包含真实显示格式的字符串”。

（setq scl$value）现在将接受alpha或0-9，但在0-9的情况下，它将是一个字符串而不是数字。

您可以传递要在DCL中使用的默认值。

没有代码发布，所以不知道如何显示示例。

cadfan · 发表于 2022-7-5 20:27:20

Tks，但我需要一个样品。

hanhphuc · 发表于 2022-7-5 20:42:45

如果
是您的对话框文件
editbox是dcl ID
“数字”是编辑框或您的“th”的键。
*内存*是全局默认值

copy


(setq *memory* (if (and *memory* (= (type *memory*) 'STR))  *memory* "[b]0.000[/b]"))
(defun c:test (/ dcl_id dd)
 
 (setq dcl_id (load_dialog [b][color="red"]<editbox.dcl>[/color][/b] ) dd 1)
 (while
   (or (not (numberp (read *memory*)))(= dd 1))
   (new_dialog "[color="red"]editbox[/color]" dcl_id)
   (set_tile "[color="red"]number"[/color] *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

cadfan · 发表于 2022-7-5 21:08:39

非常感谢韩，我会好好学习的！

[编程交流] 关于“Edit_box”的问题

发表回复

精选推荐