[原创]：又一个对话框输入文字的程序。

zhynt

要配合我给的字体噢。

2. 
   
3. dcl_settings : default_dcl_settings { audit_level = 3; }
   
4. unnamed : dialog {
   
5. label = "对话框文字输入";
   
6.    : row {
   
7.       : popup_list {
   
8.          list = "上标开始\n下标开始\n上标结束\n下标结束\n上下标开始\n上下标分隔\n上下标结束" ;
   
9.          key = "gs" ;
   
10.          label = "排版格式" ;
    
11.       }
    
12.       : popup_list {
    
13.          list = "一级钢\n二级钢\n三级钢\n四级钢\n相前一个字符画圈\n相前二个字符画圈\n相前三个字符画圈" ;
    
14.          key = "zyfh" ;
    
15.          label = "专用符号" ;
    
16.       }
    
17.       : popup_list {
    
18.          list = "罗马数字一\n罗马数字二\n罗马数字三\n罗马数字四\n罗马数字五\n罗马数字六\n罗马数字七\n罗马数字八\n罗马数字九\n罗马数字十\n罗马数字十一\n罗马数字十二" ;
    
19.          key = "lm" ;
    
20.          label = "罗马数字" ;
    
21.       }
    
22.    }
    
23.    : boxed_row {
    
24.       label = "特定符号" ;
    
25.       : button {
    
26.          key = "pingf" ;
    
27.          label = "平方" ;
    
28.       }
    
29.       : button {
    
30.          key = "lif" ;
    
31.          label = "立方" ;
    
32.       }
    
33.       : button {
    
34.          key = "zhengf" ;
    
35.          label = "正负号" ;
    
36.       }
    
37.       : button {
    
38.          key = "du" ;
    
39.          label = "度符号" ;
    
40.       }
    
41.       : button {
    
42.          key = "yuanzhij" ;
    
43.          label = "圆直径号" ;
    
44.       }
    
45.    }
    
46.    : boxed_row {
    
47.    label = "字符高度";
    
48.    : edit_box {
    
49.    key = "txth1";
    
50.    label = "输入高度";
    
51.    }
    
52.    : button {
    
53.    key = "txth2";
    
54.    label = "屏幕选取";
    
55.    }
    
56.    }
    
57.    : edit_box {
    
58.       key = "txt" ;
    
59.       label = "文字：" ;
    
60.       fixed_width = true ;
    
61.       width = 80 ;
    
62.    }
    
63.    : row {
    
64.       ok_cancel ;
    
65.    : button {
    
66.       key = "text" ;
    
67.       label = "格式说明<" ;
    
68.    }
    
69. }
    
70. }
    
71. shuoming : dialog {
    
72.       label= "字符格式说明：";
    
73.         fixed_height = true;
    
74.         : text_part {
    
75.            label = "字符编码                        说明";}
    
76.            : text_part {
    
77.            label = "%%130                                Ⅰ级钢筋";}
    
78.            : text_part {
    
79.            label = "%%131                                Ⅱ级钢筋";}
    
80.            : text_part {
    
81.            label = "%%132                                Ⅲ级钢筋";}
    
82.            : text_part {
    
83.            label = "%%133                                Ⅳ级钢筋";}
    
84.            : text_part {
    
85.            label = "%%134                                小于等于≤";}
    
86.            : text_part {       
    
87.            label = "%%135                                大于等于≥";}
    
88.            : text_part {
    
89.            label = "%%138                                罗马数字Ⅺ";}
    
90.            : text_part {
    
91.            label = "%%139                                罗马数字Ⅻ";}
    
92.            : text_part {
    
93.            label = "%%140                                使后面字串增大1/3";}
    
94.            : text_part {
    
95.            label = "%%141                                使后面字串缩小1/2";}
    
96.            : text_part {
    
97.            label = "%%142                                使后面字串增大1/2";}
    
98.            : text_part {
    
99.            label = "%%143                                使后面字串升高1/2";}
    
100.            : text_part {
     
101.            label = "%%144                                使后面字串降低1/2";}
     
102.            : text_part {
     
103.            label = "%%145                                使后面字串升高缩小1/2";}
     
104.            : text_part {
     
105.            label = "%%146                                使后面字串降低增大1/2";}
     
106.            : text_part {
     
107.            label = "%%147                                对前一字符画圈";}
     
108.            : text_part {
     
109.            label = "%%148                                对前两字符画圈";}
     
110.            : text_part {
     
111.            label = "%%149                                对前三字符画圈";}
     
112.            : text_part {
     
113.            label = "%%150                                使后面字串缩小1/3";}
     
114.            : text_part {
     
115.            label = "%%151                                罗马数字Ⅰ";}
     
116.            : text_part {
     
117.            label = "%%152                                罗马数字Ⅱ";}                     
     
118.            : text_part {
     
119.            label = "%%153                                罗马数字Ⅲ";}
     
120.            : text_part {       
     
121.            label = "%%154                                罗马数字Ⅳ";}
     
122.            : text_part {
     
123.            label = "%%155                                罗马数字Ⅴ";}
     
124.            : text_part {
     
125.            label = "%%156                                罗马数字Ⅵ";}
     
126.            : text_part {
     
127.            label = "%%157                                罗马数字Ⅶ";}
     
128.            : text_part {
     
129.            label = "%%158                                罗马数字Ⅷ";}
     
130.            : text_part {
     
131.            label = "%%159                                罗马数字Ⅸ";}
     
132.            : text_part {
     
133.            label = "%%160                                罗马数字Ⅹ";}
     
134.            : text_part {
     
135.            label = "%%161                                上下标开始";}
     
136.            : text_part {
     
137.            label = "%%162                                上下标分隔";}
     
138.            : text_part {
     
139.            label = "%%163                                上下标结束";}
     
140.       ok_only;
     
141. }
     

<br /> dcl_settings : default_dcl_settings { audit_level = 3; }<br /> unnamed : dialog {<br /> label = "对话框文字输入";<br />    : row {<br />       : popup_list {<br />          list = "上标开始\n下标开始\n上标结束\n下标结束\n上下标开始\n上下标分隔\n上下标结束" ;<br />          key = "gs" ;<br />          label = "排版格式" ;<br />       }<br />       : popup_list {<br />          list = "一级钢\n二级钢\n三级钢\n四级钢\n相前一个字符画圈\n相前二个字符画圈\n相前三个字符画圈" ;<br />          key = "zyfh" ;<br />          label = "专用符号" ;<br />       }<br />       : popup_list {<br />          list = "罗马数字一\n罗马数字二\n罗马数字三\n罗马数字四\n罗马数字五\n罗马数字六\n罗马数字七\n罗马数字八\n罗马数字九\n罗马数字十\n罗马数字十一\n罗马数字十二" ;<br />          key = "lm" ;<br />          label = "罗马数字" ;<br />       }<br />    }<br />    : boxed_row {<br />       label = "特定符号" ;<br />       : button {<br />          key = "pingf" ;<br />          label = "平方" ;<br />       }<br />       : button {<br />          key = "lif" ;<br />          label = "立方" ;<br />       }<br />       : button {<br />          key = "zhengf" ;<br />          label = "正负号" ;<br />       }<br />       : button {<br />          key = "du" ;<br />          label = "度符号" ;<br />       }<br />       : button {<br />          key = "yuanzhij" ;<br />          label = "圆直径号" ;<br />       }<br />    }<br />    : boxed_row {<br />    label = "字符高度";<br />    : edit_box {<br />    key = "txth1";<br />    label = "输入高度";<br />    }<br />    : button {<br />    key = "txth2";<br />    label = "屏幕选取";<br />    }<br />    }<br />    : edit_box {<br />       key = "txt" ;<br />       label = "文字：" ;<br />       fixed_width = true ;<br />       width = 80 ;<br />    }<br />    : row {<br />       ok_cancel ;<br />    : button {<br />       key = "text" ;<br />       label = "格式说明<" ;<br />    }<br /> }<br /> }<br /> shuoming : dialog {<br />       label= "字符格式说明：";<br />         fixed_height = true;<br />         : text_part {<br />            label = "字符编码                        说明";}<br />            : text_part {<br />            label = "%%130                                Ⅰ级钢筋";}<br />            : text_part {<br />            label = "%%131                                Ⅱ级钢筋";}<br />            : text_part {<br />            label = "%%132                                Ⅲ级钢筋";}<br />            : text_part {<br />            label = "%%133                                Ⅳ级钢筋";}<br />            : text_part {<br />            label = "%%134                                小于等于≤";}<br />            : text_part {        <br />            label = "%%135                                大于等于≥";}<br />            : text_part {<br />            label = "%%138                                罗马数字Ⅺ";}<br />            : text_part {<br />            label = "%%139                                罗马数字Ⅻ";}<br />            : text_part {<br />            label = "%%140                                使后面字串增大1/3";}<br />            : text_part {<br />            label = "%%141                                使后面字串缩小1/2";}<br />            : text_part {<br />            label = "%%142                                使后面字串增大1/2";}<br />            : text_part {<br />            label = "%%143                                使后面字串升高1/2";}<br />            : text_part {<br />            label = "%%144                                使后面字串降低1/2";}<br />            : text_part {<br />            label = "%%145                                使后面字串升高缩小1/2";}<br />            : text_part {<br />            label = "%%146                                使后面字串降低增大1/2";}<br />            : text_part {<br />            label = "%%147                                对前一字符画圈";}<br />            : text_part {<br />            label = "%%148                                对前两字符画圈";} <br />            : text_part {<br />            label = "%%149                                对前三字符画圈";}<br />            : text_part {<br />            label = "%%150                                使后面字串缩小1/3";}<br />            : text_part {<br />            label = "%%151                                罗马数字Ⅰ";}<br />            : text_part {<br />            label = "%%152                                罗马数字Ⅱ";}                     <br />            : text_part {<br />            label = "%%153                                罗马数字Ⅲ";}<br />            : text_part {        <br />            label = "%%154                                罗马数字Ⅳ";}<br />            : text_part {<br />            label = "%%155                                罗马数字Ⅴ";}<br />            : text_part {<br />            label = "%%156                                罗马数字Ⅵ";}<br />            : text_part {<br />            label = "%%157                                罗马数字Ⅶ";}<br />            : text_part {<br />            label = "%%158                                罗马数字Ⅷ";}<br />            : text_part {<br />            label = "%%159                                罗马数字Ⅸ";}<br />            : text_part {<br />            label = "%%160                                罗马数字Ⅹ";}<br />            : text_part {<br />            label = "%%161                                上下标开始";}<br />            : text_part {<br />            label = "%%162                                上下标分隔";}<br />            : text_part {<br />            label = "%%163                                上下标结束";}<br />       ok_only;<br /> }<br />

2. 
   
3. (defun c:ddt (/ whet_next dia_id txt txt3 txth txth2)
   
4.   (defun strcat_txt (txt3)
   
5.     (setq txt1 (set_tile "txt" (strcat (get_tile "txt") txt3)))
   
6.   )
   
7.   (defun list_gs ()
   
8.     (setq listgs (get_tile "gs"))
   
9.     (cond ((= listgs "0") (strcat_txt "%%145"))
   
10.           ((= listgs "1") (strcat_txt "%%141"))
    
11.           ((= listgs "2") (strcat_txt "%%146"))
    
12.           ((= listgs "3") (strcat_txt "%%142"))
    
13.           ((= listgs "4") (strcat_txt "%%161"))
    
14.           ((= listgs "5") (strcat_txt "%%162"))
    
15.           ((= listgs "6") (strcat_txt "%%163"))
    
16.     )
    
17.   )
    
18.   (defun list_zyfh ()
    
19.     (setq listzy (get_tile "zyfh"))
    
20.     (cond ((= listzy "0") (strcat_txt "%%130"))
    
21.           ((= listzy "1") (strcat_txt "%%131"))
    
22.           ((= listzy "2") (strcat_txt "%%132"))
    
23.           ((= listzy "3") (strcat_txt "%%133"))
    
24.           ((= listzy "4") (strcat_txt "%%148"))
    
25.           ((= listzy "5") (strcat_txt "%%149"))
    
26.           ((= listzy "6") (strcat_txt "%%150"))
    
27.     )
    
28.   )
    
29.   (defun list_lm ()
    
30.     (setq listlm (get_tile "lm"))
    
31.     (cond ((= listlm "0") (strcat_txt "%%151"))
    
32.           ((= listlm "1") (strcat_txt "%%152"))
    
33.           ((= listlm "2") (strcat_txt "%%153"))
    
34.           ((= listlm "3") (strcat_txt "%%154"))
    
35.           ((= listlm "4") (strcat_txt "%%155"))
    
36.           ((= listlm "5") (strcat_txt "%%156"))
    
37.           ((= listlm "6") (strcat_txt "%%157"))
    
38.           ((= listlm "7") (strcat_txt "%%158"))
    
39.           ((= listlm "8") (strcat_txt "%%159"))
    
40.           ((= listlm "9") (strcat_txt "%%160"))
    
41.           ((= listlm "10") (strcat_txt "%%138"))
    
42.           ((= listlm "11") (strcat_txt "%%139"))
    
43.     )
    
44.   )
    
45.   (defun td_pingf (/ txt)
    
46.     (setq txt1 (set_tile "txt" (strcat (get_tile "txt") "%%1452%%146")))
    
47.   )
    
48.   (defun td_lif        (/ txt)
    
49.     (setq txt1 (set_tile "txt" (strcat (get_tile "txt") "%%1453%%146")))
    
50.   )
    
51.   (defun td_zhengf (/ txt)
    
52.     (setq txt1 (set_tile "txt" (strcat (get_tile "txt") "%%129")))
    
53.   )
    
54.   (defun td_du (/ txt)
    
55.     (setq txt1 (set_tile "txt" (strcat (get_tile "txt") "%%128")))
    
56.   )
    
57.   (defun td_yuanzhij (/ txt)
    
58.     (setq txt1 (set_tile "txt" (strcat (get_tile "txt") "%%127")))
    
59.   )
    
60.   (defun shuo ()
    
61.     (if        (not (new_dialog "shuoming" dia_id))
    
62.       (exit)
    
63.     )
    
64.     (action_tile "accept" "(done_dialog 6)")
    
65.     (start_dialog)
    
66.   )
    
67.   (setq whet_next 6)
    
68.   (while (< 2 whet_next)
    
69.     (if        (and (not dia_id) (< (setq dia_id (load_dialog "ddtxt")) 0))
    
70.       (exit)
    
71.     )
    
72.     (if        (not (new_dialog "unnamed" dia_id))
    
73.       (exit)
    
74.     )
    
75.     (if        (/= txth nil)
    
76.       (progn
    
77.         (setq txth1 (set_tile "txth1" txth))
    
78.       )
    
79.       (if (/= txth1 nil)
    
80.         (set_tile "txth1" txth1)
    
81.         (set_tile "txth1" "300")
    
82.       )
    
83.     )
    
84.     (if        (/= txt1 nil)
    
85.       (set_tile "txt" txt1)
    
86.     )
    
87.     (action_tile "gs" "(list_gs)")
    
88.     (action_tile "zyfh" "(list_zyfh)")
    
89.     (ACTION_TILE "lm" "(list_lm)")
    
90.     (action_tile "pingf" "(td_pingf)")
    
91.     (ACTION_TILE "lif" "(td_lif)")
    
92.     (ACTION_TILE "zhengf" "(td_zhengf)")
    
93.     (action_tile "du" "(td_du)")
    
94.     (action_tile "yuanzhij" "(td_yuanzhij)")
    
95.     (action_tile "txth1" "(setq txth1 $value)")
    
96.     (action_tile "txth2" "(done_dialog 4)")
    
97.     (action_tile "txt" "(setq txt1 $value)")
    
98.     (action_tile "accept" "(done_dialog 1)")
    
99.     (action_tile "cancel" "(unload_dialog dia_id)")
    
100.     (action_tile "text" "(shuo)")
     
101.     (setq whet_next (start_dialog))
     
102.     (if        (= whet_next 4)
     
103.       (setq txth (rtos (getdist "\n请指定高度")))
     
104.     )
     
105.     (if        (and (= whet_next 1) (/= txt1 nil))
     
106.       (progn
     
107.         (setq txpt (getpoint "\n文字位置："))
     
108.         (if (= txth1 nil)
     
109.           (setq txth2 300)
     
110.           (setq txth2 (atof txth1))
     
111.         )
     
112.         (command "text" txpt txth2 "" txt1 "")
     
113.       )
     
114.     )
     
115.   )
     
116. )
     

<br /> (defun c:ddt (/ whet_next dia_id txt txt3 txth txth2)<br />   (defun strcat_txt (txt3)<br />     (setq txt1 (set_tile "txt" (strcat (get_tile "txt") txt3)))<br />   )<br />   (defun list_gs ()<br />     (setq listgs (get_tile "gs"))<br />     (cond ((= listgs "0") (strcat_txt "%%145"))<br />           ((= listgs "1") (strcat_txt "%%141"))<br />           ((= listgs "2") (strcat_txt "%%146"))<br />           ((= listgs "3") (strcat_txt "%%142"))<br />           ((= listgs "4") (strcat_txt "%%161"))<br />           ((= listgs "5") (strcat_txt "%%162"))<br />           ((= listgs "6") (strcat_txt "%%163"))<br />     )<br />   )<br />   (defun list_zyfh ()<br />     (setq listzy (get_tile "zyfh"))<br />     (cond ((= listzy "0") (strcat_txt "%%130"))<br />           ((= listzy "1") (strcat_txt "%%131"))<br />           ((= listzy "2") (strcat_txt "%%132"))<br />           ((= listzy "3") (strcat_txt "%%133"))<br />           ((= listzy "4") (strcat_txt "%%148"))<br />           ((= listzy "5") (strcat_txt "%%149"))<br />           ((= listzy "6") (strcat_txt "%%150"))<br />     )<br />   )<br />   (defun list_lm ()<br />     (setq listlm (get_tile "lm"))<br />     (cond ((= listlm "0") (strcat_txt "%%151"))<br />           ((= listlm "1") (strcat_txt "%%152"))<br />           ((= listlm "2") (strcat_txt "%%153"))<br />           ((= listlm "3") (strcat_txt "%%154"))<br />           ((= listlm "4") (strcat_txt "%%155"))<br />           ((= listlm "5") (strcat_txt "%%156"))<br />           ((= listlm "6") (strcat_txt "%%157"))<br />           ((= listlm "7") (strcat_txt "%%158"))<br />           ((= listlm "8") (strcat_txt "%%159"))<br />           ((= listlm "9") (strcat_txt "%%160"))<br />           ((= listlm "10") (strcat_txt "%%138"))<br />           ((= listlm "11") (strcat_txt "%%139"))<br />     )<br />   )<br />   (defun td_pingf (/ txt)<br />     (setq txt1 (set_tile "txt" (strcat (get_tile "txt") "%%1452%%146")))<br />   )<br />   (defun td_lif        (/ txt)<br />     (setq txt1 (set_tile "txt" (strcat (get_tile "txt") "%%1453%%146")))<br />   )<br />   (defun td_zhengf (/ txt)<br />     (setq txt1 (set_tile "txt" (strcat (get_tile "txt") "%%129")))<br />   )<br />   (defun td_du (/ txt)<br />     (setq txt1 (set_tile "txt" (strcat (get_tile "txt") "%%128")))<br />   )<br />   (defun td_yuanzhij (/ txt)<br />     (setq txt1 (set_tile "txt" (strcat (get_tile "txt") "%%127")))<br />   )<br />   (defun shuo ()<br />     (if        (not (new_dialog "shuoming" dia_id))<br />       (exit)<br />     )<br />     (action_tile "accept" "(done_dialog 6)")<br />     (start_dialog)<br />   )<br />   (setq whet_next 6)<br />   (while (< 2 whet_next)<br />     (if        (and (not dia_id) (< (setq dia_id (load_dialog "ddtxt")) 0))<br />       (exit)<br />     )<br />     (if        (not (new_dialog "unnamed" dia_id))<br />       (exit)<br />     )<br />     (if        (/= txth nil)<br />       (progn<br />         (setq txth1 (set_tile "txth1" txth))<br />       )<br />       (if (/= txth1 nil)<br />         (set_tile "txth1" txth1)<br />         (set_tile "txth1" "300")<br />       )<br />     )<br />     (if        (/= txt1 nil)<br />       (set_tile "txt" txt1)<br />     )<br />     (action_tile "gs" "(list_gs)")<br />     (action_tile "zyfh" "(list_zyfh)")<br />     (ACTION_TILE "lm" "(list_lm)")<br />     (action_tile "pingf" "(td_pingf)")<br />     (ACTION_TILE "lif" "(td_lif)")<br />     (ACTION_TILE "zhengf" "(td_zhengf)")<br />     (action_tile "du" "(td_du)")<br />     (action_tile "yuanzhij" "(td_yuanzhij)")<br />     (action_tile "txth1" "(setq txth1 $value)")<br />     (action_tile "txth2" "(done_dialog 4)")<br />     (action_tile "txt" "(setq txt1 $value)")<br />     (action_tile "accept" "(done_dialog 1)")<br />     (action_tile "cancel" "(unload_dialog dia_id)")<br />     (action_tile "text" "(shuo)")<br />     (setq whet_next (start_dialog))<br />     (if        (= whet_next 4)<br />       (setq txth (rtos (getdist "\n请指定高度")))<br />     )<br />     (if        (and (= whet_next 1) (/= txt1 nil))<br />       (progn<br />         (setq txpt (getpoint "\n文字位置："))<br />         (if (= txth1 nil)<br />           (setq txth2 300)<br />           (setq txth2 (atof txth1))<br />         )<br />         (command "text" txpt txth2 "" txt1 "")<br />       )<br />     )<br />   )<br /> )<br />