将特定对话框加载到内存中
前面已经指出,单个 DCL 文件可能包含多个对话框定义。使用对话框的下一步是指定要显示的对话框定义。下面的代码演示了这一点: (if (and dialogLoaded (not (new_dialog "gp_mainDialog" dcl_id)) ) ;_ end of and (progn ;; There's a problem... (princ "\nCannot show dialog gp_mainDialog") (setq dialogShow nil) ) ;_ end of progn ) ;_ end of if 请注意如何使用该函数来测试对话框是否已加载以及调用是否成功。如果在函数调用中计算了多个表达式,则后续表达式的计算将终止于第一个计算结果为 的表达式。在这种情况下,如果标志为 (表示上一节中的加载函数失败),则 Visual LISP 不会尝试执行该函数。andnew_dialog and nildialogLoadednilnew_dialog 请注意,该代码还考虑了某些内容可能无法正常处理 DCL 文件的可能性,并将变量设置为如果是这种情况。dialogShownil 该函数只是将对话框加载到内存中,而不显示它。该函数显示对话框。所有对话框初始化(如设置磁贴值、为列表框创建图像或列表以及将操作与特定磁贴关联)都必须在调用之后和调用之前进行。new_dialogstart_dialognew_dialogstart_dialog |
|Archiver|CAD开发者社区
( 苏ICP备2022047690号-1 苏公网安备32011402011833)
GMT+8, 2025-3-14 08:09
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.