通用函数- 提醒警告对话框

fl202

通用函数 - 提醒警告对话框
我们编程中经常会用到提醒文字： 比如对话框文件的使用帮助，程序的使用方法，计算中的注意事项及技巧，版本说明，联系方式，更新历史说明等等。如果该文字txt1较长，
    使用(alert  txt1) 没有层次感，是段落式的，看起来很费劲。
    使用(print  txt1) 占用命令行较多，可能看不完（我的命令行留了3行）  
因此想到了这个程序。分享出来，不知道对大家有用没有？
使用方法：
(load    "alert1“ )
(alert1   '("warn 1" "warn 2" "warn 3"  "warn 4"   "warn 5"   ) ）

2. (princ "提醒对话框使用方法：(alert1  '("提醒文字1" "提醒文字2" "提醒文字3" ))")
   
3. (defun alert1 (b1 / dd  dcl_id  i txt1)
   
4. ; (alert1  '("提醒文字1" "提醒文字2" "提醒文字3"   "提醒文字4"  "注意事项1"  "注意事项2"))
   
5.    (if (null tempname)   
   
6.    (setq tempname (vl-filename-mktemp "tx11.dcl") )
   
7.    )
   
8.    (setq ff1 (open tempname "w") )
   
9.    (write-line "tix11:dialog { label="飞龙在天,注意事项";"  ff1 )
   
10.    (setq i 11)
    
11.    (repeat (length b1)
    
12.    (setq txt1 (strcat "  :text { label = "帮助提示内容";  key="t" (itoa i) ""; alignment =left;  }" ) )
    
13.    (write-line txt1  ff1)
    
14.    (setq i (+ i 1))
    
15.    )
    
16.    (write-line "      :edit_box{label = ":";key="ed11";edit_width=120;alignment = right;}"  ff1 )
    
17.    (write-line "     ok_cancel; "  ff1 )
    
18.    (write-line "    }"  ff1 )
    
19.    (close ff1)   
    
20. (if (> (setq dcl_id (load_dialog tempname )) 0);加载对话框
    
21.    (progn
    
22.       (new_dialog "tix11" dcl_id)
    
23.       (setq i 0)
    
24.          (repeat (length b1)
    
25.          (setq txt1 (strcat "t" (itoa (+ 11 i))) )
    
26.          (set_tile txt1 (strcat (itoa i) ":" (nth i b1)))
    
27.          (setq i (1+ i))
    
28.          )     
    
29.       (action_tile "ok" "(done_dialog 1)");帮助提示内容      
    
30.       (action_tile "cancel" "(done_dialog 0)");cancel        
    
31.       (setq dd (start_dialog));返回特定回调对话框的数值
    
32. 
    
33.      (UNLOAD_DIALOG DCL_ID)
    
34.    )
    
35.   (princ "\n Unable to load dialog box!");显示对话框失败
    
36. )        
    
37. )

(princ "提醒对话框使用方法：(alert1  '("提醒文字1" "提醒文字2" "提醒文字3" ))")<br /> (defun alert1 (b1 / dd  dcl_id  i txt1)<br /> ; (alert1  '("提醒文字1" "提醒文字2" "提醒文字3"   "提醒文字4"  "注意事项1"  "注意事项2"))<br />    (if (null tempname)   <br />    (setq tempname (vl-filename-mktemp "tx11.dcl") )<br />    )<br />    (setq ff1 (open tempname "w") )<br />    (write-line "tix11:dialog { label="飞龙在天,注意事项";"  ff1 )<br />    (setq i 11)<br />    (repeat (length b1)<br />    (setq txt1 (strcat "  :text { label = "帮助提示内容";  key="t" (itoa i) ""; alignment =left;  }" ) )<br />    (write-line txt1  ff1)<br />    (setq i (+ i 1))<br />    )<br />    (write-line "      :edit_box{label = ":";key="ed11";edit_width=120;alignment = right;}"  ff1 )<br />    (write-line "     ok_cancel; "  ff1 )<br />    (write-line "    }"  ff1 )<br />    (close ff1)   <br /> (if (> (setq dcl_id (load_dialog tempname )) 0);加载对话框<br />    (progn<br />       (new_dialog "tix11" dcl_id)<br />       (setq i 0)<br />          (repeat (length b1) <br />          (setq txt1 (strcat "t" (itoa (+ 11 i))) )<br />          (set_tile txt1 (strcat (itoa i) ":" (nth i b1)))<br />          (setq i (1+ i))<br />          )     <br />       (action_tile "ok" "(done_dialog 1)");帮助提示内容       <br />       (action_tile "cancel" "(done_dialog 0)");cancel        <br />       (setq dd (start_dialog));返回特定回调对话框的数值<br /> <br />      (UNLOAD_DIALOG DCL_ID)<br />    )<br />   (princ "\n Unable to load dialog box!");显示对话框失败<br /> )        <br /> )

自贡黄明儒

(alert  "txt1\ntext2\ntext3")
(alert  "txt1\rtext2\ntext3")
(alert  "txt1\t text2\ntext3")

sicky111

自贡黄明儒 发表于 2015-3-13 16:22
(alert  "txt1\ntext2\ntext3")
(alert  "txt1\rtext2\ntext3")
(alert  "txt1\t text2\ntext3")

我也是这样写的。

lifuq1979

无法打开文件TX1101A.DCL是什么鬼