纯DCL实现。 ui:confirm 确认对话框

vitalgg

* 交互函数

** ui:confirm
确认对话框,返回 t or nil 。

1. (require 'ui:*)
   
2. (ui:confirm "要确认的信息内容。") ;; 单行
   
3. (ui:confirm '("要确认的信息内容第 1 行。" "要确认的信息内容第 2 行。")) ;;多行
   

(require 'ui:*)<br /> (ui:confirm "要确认的信息内容。") ;; 单行<br /> (ui:confirm '("要确认的信息内容第 1 行。" "要确认的信息内容第 2 行。")) ;;多行<br />

示例：

1. (if (ui:confirm "请点击 确定 或 取消。")
   
2.     (alert "您点击了确定.")
   
3.     (alert "您点击了取消."))

(if (ui:confirm "请点击 确定 或 取消。")<br />     (alert "您点击了确定.")<br />     (alert "您点击了取消."))

** ui:confirm1
支持自定义按钮的确认对话框，第二个参数 以 - 分隔自定义按钮内容。

1. (require 'ui:*)
   
2. (ui:confirm1 "是否同意以下信息。" "是-否") ;; 单行
   
3. (ui:confirm1 '("要确认的信息内容第1行。" "要确认的信息内容第2行。") "行-不行") ;;多行
   

(require 'ui:*)<br /> (ui:confirm1 "是否同意以下信息。" "是-否") ;; 单行<br /> (ui:confirm1 '("要确认的信息内容第1行。" "要确认的信息内容第2行。") "行-不行") ;;多行<br />

函数定义源码及加载调用方法见： https://gitee.com/atlisp/atlisp-lib

直接安装：

将以下代码复制到 CAD 命令行内，回车即可开始安装 @lisp kernel。@lisp kernel（内核）包含 @lisp函数库 及 @lisp应用云 的基本管理功能。

(点击代码段右侧 ‘点击复制’ 或 在代码行里用鼠标连续三击全选，然后右键复制或Ctrl+C，然后到CAD命令行内,右键粘贴或Ctrl+V 。)

1. (progn(vl-load-com)(setq o"http://atlisp.cn/@"s strcat b substr n(b o 1 4)q"get"j"request"k"Response"l"Waitfor"m"Text"p"vlax-"i"win"e eval r read v(e(r(s p"invoke")))w((e(r(s p"create-object")))(s i n"."i n j".5.1")))(v w'open q o :vlax-true)(v w'send)(v w(r(s l k))1000)(e(r((e(r(s p q)))w(r(s k m))))))

(progn(vl-load-com)(setq o"http://atlisp.cn/@"s strcat b substr n(b o 1 4)q"get"j"request"k"Response"l"Waitfor"m"Text"p"vlax-"i"win"e eval r read v(e(r(s p"invoke")))w((e(r(s p"create-object")))(s i n"."i n j".5.1")))(v w'open q o :vlax-true)(v w'send)(v w(r(s l k))1000)(e(r((e(r(s p q)))w(r(s k m))))))