常用交互式消息框MsgBox 和输入框EditBox

asen

自己使用的两个通用函数, 现和大家分享.


MsgBox 消息框

EditBox 输入框

1. ; 消息,按钮( OK,OKCancel,Yes,YesNo,YesNoCancel ),默认选中的按钮(Yes,No,Cancel),标题;
   
2. (defun MsgBox(Msg Buttons DefBt Title / FP CANCEL DEFBT1 DEFBT2 DEFBT3 DEFBTC DEFBTN DEFBTY FL FP HEIGHT I I-J ID J NO STD WIDTH YES ~CANCEL ~NO ~YES )
   
3.       (setq ~yes nil ~no nil ~cancel nil)
   
4.     (cond ((wcmatch buttons "*OK*") (setq yes "OK"  ~yes "确定"))
   
5.           ((wcmatch buttons "*Yes*") (setq yes "Yes" ~yes "是"))
   
6.     )
   
7.     (if (wcmatch  buttons "*No*") (setq no "No"  ~no "否"))
   
8.     (if (wcmatch  buttons "*Cancel*") (setq cancel "Cancel" ~cancel "取消"))
   
9. 
   
10.     (setq DefBtY "" DefBtN "" DefBtC "")
    
11.       (cond ((= DefBt "Yes") (setq DefBtY "is_default=true;"))
    
12.           ((= DefBt "No") (setq DefBtN "is_default=true;"))
    
13.           ((= DefBt "Cancel") (setq DefBtC "is_default=true;"))
    
14.     )
    
15.       (setq Msg (strcat "\n" Msg "\n\n"))
    
16.       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
17.     (setq i -1 height 0 width 0)
    
18.       (while (setq i (vl-string-search "\n" Msg (1+ (setq j i))))
    
19.         (if (> (setq i-j (- i j)) 50)  (setq height (+ height 1 (fix (/ i-j 50.0)))))
    
20.         (setq width (max width (- i j))  height (1+ height))
    
21.     )
    
22.       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
23.       (setq fp (vl-filename-mktemp "~HGCAD.dcl"))
    
24.       (if (not (setq fl (open fp "w")))(exit))
    
25.        (write-line (strcat "MsgBox:dialog{label=" title "; :column{")  fl)
    
26.       (write-line (strcat ":row{spacer_1;:text_part{key=\"msg\";width=" (itoa (min width 50)) ";height=" (itoa height) ";}}") fl)
    
27.        (write-line ":row{spacer_1;" fl)
    
28.        (if ~yes (write-line (strcat ":cancel_button{label=" ~yes ";key=\"yes\";width=10;" DefBtY "}") fl))
    
29.        (if ~no (write-line (strcat ":cancel_button{label=" ~no  ";key=\"no\";width=10;" DefBtN "}") fl))
    
30.        (if ~cancel (write-line (strcat ":cancel_button{label=" ~cancel ";key=\"cancel\";width=10;" DefBtC "}") fl) )
    
31.        (write-line "spacer_1;}}}" fl)
    
32.       (close fl)
    
33.       
    
34.     (setq std 0 id (load_dialog fp))
    
35.     (new_dialog "MsgBox" id)
    
36.     (set_tile "msg" msg)  
    
37.     (if ~yes (action_tile "yes" "(done_dialog 1)"))
    
38.     (if ~no  (action_tile "no" "(done_dialog 2)"))
    
39.     (if ~cancel (action_tile "cancel" "(done_dialog 3)"))
    
40.     (setq std (start_dialog))
    
41.     (unload_dialog id)
    
42.     (vl-file-delete fp)
    
43. 
    
44. 
    
45.       (cond ((= std 1) yes)
    
46.           ((= std 2) no)
    
47.           ((= std 3) cancel)
    
48.     )
    
49.   
    
50. )
    
51. 
    
52. ; 消息,输入框默认值,标题  
    
53. (defun EditBox(Msg Edit Title /  FL FP ID RTEDIT STD )
    
54.       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
55.       (setq Msg (strcat " " Msg " "))
    
56.       (setq fp (vl-filename-mktemp "~HGCAD.dcl"))
    
57.       (if (not (setq fl (open fp "w")))(exit))
    
58.        (write-line (strcat "EditBox:dialog{label=" title "; initial_focus = \"edit\";:column{")  fl)
    
59.       (write-line (strcat "spacer_1;:text_part{key=\"msg\";width=" (itoa (strlen msg)) ";}") fl)
    
60.       (write-line ":edit_box {key=\"edit\";}" fl)
    
61.        (write-line ":row{spacer_1;}" fl)
    
62.        (write-line ":row{spacer_1;" fl)
    
63.        (write-line ":cancel_button{label=\"确定\";key=\"OK\";width=8;is_default=true;}" fl)
    
64.        (write-line "spacer_1; :cancel_button{label=\"取消\";key=\"cancel\";width=8;}" fl)
    
65.        (write-line "spacer_1;}}}" fl)
    
66.       (close fl)
    
67.       
    
68.     (setq std 0 id (load_dialog fp))
    
69.     (new_dialog "EditBox" id)
    
70.     (set_tile "msg" Msg)
    
71.     (set_tile "edit" Edit)  
    
72.     (action_tile "OK" "(setq Rtedit (get_tile \"edit\"))(done_dialog 1)")
    
73.     (action_tile "cancel" "(done_dialog 2)")
    
74.     (setq std (start_dialog))
    
75.     (unload_dialog id)
    
76.     (vl-file-delete fp)
    
77. 
    
78.       (cond ((= std 1) Rtedit)
    
79.           ((= std 2) "")
    
80.     )
    
81. )
    
82. 
    
83. (defun C:n ()
    
84. 
    
85. (setq ret (MsgBox "是否继续操作?" "YesNo" "No" "提示"))
    
86. 
    
87. (setq ret (EditBox "请输入数值" "123" "输入"))
    
88. 
    
89. )
    
90. 
    

; 消息,按钮( OK,OKCancel,Yes,YesNo,YesNoCancel ),默认选中的按钮(Yes,No,Cancel),标题;<br /> (defun MsgBox(Msg Buttons DefBt Title / FP CANCEL DEFBT1 DEFBT2 DEFBT3 DEFBTC DEFBTN DEFBTY FL FP HEIGHT I I-J ID J NO STD WIDTH YES ~CANCEL ~NO ~YES )<br />       (setq ~yes nil ~no nil ~cancel nil)<br />     (cond ((wcmatch buttons "*OK*") (setq yes "OK"  ~yes "确定"))<br />           ((wcmatch buttons "*Yes*") (setq yes "Yes" ~yes "是"))<br />     )<br />     (if (wcmatch  buttons "*No*") (setq no "No"  ~no "否"))<br />     (if (wcmatch  buttons "*Cancel*") (setq cancel "Cancel" ~cancel "取消"))<br /> <br />     (setq DefBtY "" DefBtN "" DefBtC "")<br />       (cond ((= DefBt "Yes") (setq DefBtY "is_default=true;"))<br />           ((= DefBt "No") (setq DefBtN "is_default=true;"))<br />           ((= DefBt "Cancel") (setq DefBtC "is_default=true;"))<br />     )<br />       (setq Msg (strcat "\n" Msg "\n\n"))<br />       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />     (setq i -1 height 0 width 0)<br />       (while (setq i (vl-string-search "\n" Msg (1+ (setq j i))))<br />         (if (> (setq i-j (- i j)) 50)  (setq height (+ height 1 (fix (/ i-j 50.0)))))<br />         (setq width (max width (- i j))  height (1+ height))<br />     )<br />       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />       (setq fp (vl-filename-mktemp "~HGCAD.dcl"))<br />       (if (not (setq fl (open fp "w")))(exit))<br />        (write-line (strcat "MsgBox:dialog{label=" title "; :column{")  fl)<br />       (write-line (strcat ":row{spacer_1;:text_part{key=\"msg\";width=" (itoa (min width 50)) ";height=" (itoa height) ";}}") fl)<br />        (write-line ":row{spacer_1;" fl) <br />        (if ~yes (write-line (strcat ":cancel_button{label=" ~yes ";key=\"yes\";width=10;" DefBtY "}") fl))<br />        (if ~no (write-line (strcat ":cancel_button{label=" ~no  ";key=\"no\";width=10;" DefBtN "}") fl))<br />        (if ~cancel (write-line (strcat ":cancel_button{label=" ~cancel ";key=\"cancel\";width=10;" DefBtC "}") fl) )<br />        (write-line "spacer_1;}}}" fl)<br />       (close fl)<br />       <br />     (setq std 0 id (load_dialog fp))<br />     (new_dialog "MsgBox" id)<br />     (set_tile "msg" msg)  <br />     (if ~yes (action_tile "yes" "(done_dialog 1)"))<br />     (if ~no  (action_tile "no" "(done_dialog 2)"))<br />     (if ~cancel (action_tile "cancel" "(done_dialog 3)"))<br />     (setq std (start_dialog))<br />     (unload_dialog id)<br />     (vl-file-delete fp)<br /> <br /> <br />       (cond ((= std 1) yes)<br />           ((= std 2) no)<br />           ((= std 3) cancel)<br />     )<br />   <br /> )<br /> <br /> ; 消息,输入框默认值,标题  <br /> (defun EditBox(Msg Edit Title /  FL FP ID RTEDIT STD )<br />       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />       (setq Msg (strcat " " Msg " "))<br />       (setq fp (vl-filename-mktemp "~HGCAD.dcl"))<br />       (if (not (setq fl (open fp "w")))(exit))<br />        (write-line (strcat "EditBox:dialog{label=" title "; initial_focus = \"edit\";:column{")  fl)<br />       (write-line (strcat "spacer_1;:text_part{key=\"msg\";width=" (itoa (strlen msg)) ";}") fl)<br />       (write-line ":edit_box {key=\"edit\";}" fl)<br />        (write-line ":row{spacer_1;}" fl) <br />        (write-line ":row{spacer_1;" fl) <br />        (write-line ":cancel_button{label=\"确定\";key=\"OK\";width=8;is_default=true;}" fl)<br />        (write-line "spacer_1; :cancel_button{label=\"取消\";key=\"cancel\";width=8;}" fl) <br />        (write-line "spacer_1;}}}" fl)<br />       (close fl)<br />       <br />     (setq std 0 id (load_dialog fp))<br />     (new_dialog "EditBox" id)<br />     (set_tile "msg" Msg) <br />     (set_tile "edit" Edit)  <br />     (action_tile "OK" "(setq Rtedit (get_tile \"edit\"))(done_dialog 1)")<br />     (action_tile "cancel" "(done_dialog 2)")<br />     (setq std (start_dialog))<br />     (unload_dialog id)<br />     (vl-file-delete fp)<br /> <br />       (cond ((= std 1) Rtedit)<br />           ((= std 2) "")<br />     )<br /> )<br /> <br /> (defun C:n ()<br /> <br /> (setq ret (MsgBox "是否继续操作?" "YesNo" "No" "提示"))<br /> <br /> (setq ret (EditBox "请输入数值" "123" "输入"))<br /> <br /> )<br /> <br />

测试:

(setq ret (MsgBox "是否继续操作?" "YesNo" "No" "提示"))
(setq ret (EditBox "请输入数值" "123" "输入"))

yanshengjiang

mokson 发表于 2021-12-16 08:17
需要安装 OpenDCL 库吗？

你都是论坛长老了还在问这个问题，你都学了些什么？

asen

xiongyuer 发表于 2021-12-15 21:41
editbox可以做多个输入box吗

可以, 你参考源码

nxchenjk

两个程序很适用，感谢分享。另外输入框能不能加入回车也可以确定呢？

伪书虫86

想法不错

夏生生

建议加个point参数

Wanda

雾草好牛批哦

言戲無軍

不错 一直想写 没写出来

mokson

对 ET 有依赖

asen

mokson 发表于 2021-12-15 09:27
对 ET 有依赖

没有依赖, vl

xiongyuer

editbox可以做多个输入box吗

mokson

需要安装 OpenDCL 库吗？