从数字输入中退出
您好，我可以知道如何获得输入值并继续使用其他功能。它关闭对话框并在下面的lisp中打印值。我需要存储值并继续用于其他功能。谢谢
（defun C：演示（/dcl\U id v）
（setq dcl\u id（load\u对话框“demorerrortest.dcl”））
（如果（不是（新建对话框“ErrorTest”dcl\U id））
（退出）
)
（mode_tile“Number1”2）
（action_tile“accept”“（setq v（validate））”）
（action\u tile“cancel”“（done\u对话框0）”）
（start_对话框）
（unload\u对话框dcl\u id）
（印刷v）（普林斯）
)
（defun验证（/VAL stp）
（if（not（vl every）（λ（v））
（if（numberp（setq val（read（get\u tile v）））
（setq val（cons val val））
（setq stp v x nil）））
'（“Number1”“Number2”“Number3”））
（程序
（set_tile“error”（strcat“仅接受数值”））
（模式2）
（progn（完成对话框1）（反向VAL））
)
) 您已经将该值存储在变量“v”中，然后可以在程序的其他地方使用该变量。
(mapcar 'get_tile '("Number1" "Number2" "Number3"))
存储在列表中的值易于操作
要继续循环，可以在
请阅读代码发布指南，并编辑代码以包含在代码标签中。
Your Code Here将如下所示
Your Code Here
页:
[1]