第一次学习写对话框，有些问题需要帮助！

yfywk

初次学习写DCL对话框，学写一个符号插入工具，遇到了几个问题：
1、索引页码和索引图号第一次打开对话框赋值后，下来每次打开怎样保持先一次的值？
2、比例那里能不能只输入数字，输入其他值弹出非法对话框并继续返回当前对话框进行修改；
以下为源码：
lmfh.DCL

2. lmfh : dialog {
   
3.      label = "立面符号插入工具——by  凯 凯";
   
4.        : row {   
   
5.        : boxed_column {
   
6.         : edit_box {
   
7.               label = "索引页码：";
   
8.               key = "syym_sc";
   
9.               edit_width = 15;
   
10.               edit_limit =15;
    
11.               fixed_width = true;
    
12.             }
    
13.         : edit_box {
    
14.               label = "索引图号：";
    
15.               key = "syh_sc";
    
16.               edit_width = 15;
    
17.               edit_limit =15;
    
18.               fixed_width = true;
    
19.             }
    
20.         : edit_box {
    
21.               label = "当前比例：";
    
22.               key = "bl_sc";
    
23.               edit_width = 15;
    
24.               edit_limit =15;
    
25.               fixed_width = true;
    
26.             }
    
27.           }
    
28.      : boxed_column {
    
29.          :image {
    
30.               key = "lmimage";
    
31.               width = 15;
    
32.               height = 7;
    
33.               fixed_width = true;
    
34.               fixed_height = true;
    
35.               color = -2;
    
36.              allow_accept=true;
    
37.               }
    
38.          }
    
39.       }
    
40.     : row {
    
41.       alignment=centered;
    
42.       fixed_width=true;
    
43.       : button {
    
44.                       label = "确定";
    
45.                       key = "ins_ok";
    
46.                       width = 8;
    
47.        }
    
48.        : spacer { width =2;}
    
49.         cancel_button;
    
50.     }
    
51. }

lmfh : dialog {<br />      label = "立面符号插入工具——by  凯 凯";<br />        : row {    <br />        : boxed_column {<br />         : edit_box {<br />               label = "索引页码：";<br />               key = "syym_sc";<br />               edit_width = 15;<br />               edit_limit =15;<br />               fixed_width = true;<br />             }<br />         : edit_box {<br />               label = "索引图号：";<br />               key = "syh_sc";<br />               edit_width = 15;<br />               edit_limit =15;<br />               fixed_width = true;<br />             }<br />         : edit_box {<br />               label = "当前比例：";<br />               key = "bl_sc";<br />               edit_width = 15;<br />               edit_limit =15;<br />               fixed_width = true;<br />             }<br />           }<br />      : boxed_column {<br />          :image {<br />               key = "lmimage";<br />               width = 15;<br />               height = 7;<br />               fixed_width = true;<br />               fixed_height = true;<br />               color = -2;<br />              allow_accept=true;<br />               }<br />          }<br />       }<br />     : row {<br />       alignment=centered;<br />       fixed_width=true;<br />       : button {<br />                       label = "确定";<br />                       key = "ins_ok";<br />                       width = 8;<br />        }<br />        : spacer { width =2;}<br />         cancel_button;<br />     }<br /> }

lisp文件

2. ;;;立面符号插入命令，作者：凯凯
   
3. (defun c:s1q (/ lst ptt1 pt1 n1 n2 n8 n2 keyk keyp fh_layer)
   
4. (command "undo" "be")
   
5. (command  "ATTDIA" 0)
   
6. (dcl_lmfh)
   
7. (command "undo" "e")
   
8. (princ)
   
9. )
   
10. 
    
11. (defun dcl_lmfh ()
    
12. (setq dcl_id (load_dialog "lmfh"))
    
13. (new_dialog "lmfh" dcl_id)
    
14. (setq zs_err 1)
    
15. (set_tile "bl_sc" (rtos (getvar "DIMSCALE")))
    
16. (set_tile "syym_sc" "索引页码");;;设置引页码为-
    
17. (set_tile "syh_sc" "索引号") ;;;设置索引号1
    
18. (setq key "lmimage")
    
19. (setq px (dimx_tile key))
    
20. (setq py (dimy_tile key))
    
21. (start_image key)
    
22. (fill_image 0 0 px py -2)
    
23. (slide_image 0 0 px py "lmfh")
    
24. (action_tile "ins_ok" "(ok_lmfh) (done_dialog 1) ")
    
25. (setq dd (start_dialog)) (UNLOAD_DIALOG dcl_id)
    
26. (if (= dd 1)
    
27.             (progn
    
28.            (setq pt1 (getpoint "\n指定立面符号插入点:"))
    
29.            (if (= pt1 nil)
    
30.                (setq pt1 (getpoint "\n*错误*，请指定立面符号插入点或按ESC键结束命令:"))
    
31.             )
    
32.           (if (not (tblsearch "block" "立面图号")) ;;判断是否存在"立面图号"图块，无则创建。
    
33.                (command "INSERT" "klimianp" "0.0" 1 1 0)
    
34.            )
    
35.           (command "layer" "s" fh_layer "")
    
36.         (if (= err 1)
    
37.               (princ "立面图号未插入")
    
38.           (command "INSERT" "立面图号" pt1 n1 n1 "" keyk keyp))
    
39.          )
    
40.      )
    
41. )
    
42. 
    
43. 
    
44. 
    
45. (defun ok_lmfh ()
    
46. (setq n1 (get_tile "bl_sc"));;;当前标注比例
    
47. (if (= n1 "")
    
48.   (setq n1 n2)
    
49.   (setq n1 n1)
    
50. )
    
51. (setq keyk (get_tile "syym_sc")) ;;;;;请输入索引页码，如D-01，D-02，D-03.
    
52. (if (= keyk "")
    
53.    (setq keyk "索引页码")
    
54. )
    
55. (setq keyp (get_tile "syh_sc")) ;;;;; 请输入索引号，如1，2，3... A，B，C...<1>:
    
56. (if (= keyp "")
    
57.    (setq keyp "索引号")
    
58. )
    
59. )

;;;立面符号插入命令，作者：凯凯<br /> (defun c:s1q (/ lst ptt1 pt1 n1 n2 n8 n2 keyk keyp fh_layer)<br /> (command "undo" "be")<br /> (command  "ATTDIA" 0)<br /> (dcl_lmfh)<br /> (command "undo" "e")<br /> (princ)<br /> )<br /> <br /> (defun dcl_lmfh ()<br /> (setq dcl_id (load_dialog "lmfh"))<br /> (new_dialog "lmfh" dcl_id)<br /> (setq zs_err 1) <br /> (set_tile "bl_sc" (rtos (getvar "DIMSCALE")))<br /> (set_tile "syym_sc" "索引页码");;;设置引页码为-<br /> (set_tile "syh_sc" "索引号") ;;;设置索引号1<br /> (setq key "lmimage")<br /> (setq px (dimx_tile key))<br /> (setq py (dimy_tile key))<br /> (start_image key)<br /> (fill_image 0 0 px py -2)<br /> (slide_image 0 0 px py "lmfh")<br /> (action_tile "ins_ok" "(ok_lmfh) (done_dialog 1) ")<br /> (setq dd (start_dialog)) (UNLOAD_DIALOG dcl_id)<br /> (if (= dd 1) <br />             (progn<br />            (setq pt1 (getpoint "\n指定立面符号插入点:"))<br />            (if (= pt1 nil) <br />                (setq pt1 (getpoint "\n*错误*，请指定立面符号插入点或按ESC键结束命令:"))<br />             )<br />           (if (not (tblsearch "block" "立面图号")) ;;判断是否存在"立面图号"图块，无则创建。<br />                (command "INSERT" "klimianp" "0.0" 1 1 0)<br />            )<br />           (command "layer" "s" fh_layer "")<br />         (if (= err 1) <br />               (princ "立面图号未插入")<br />           (command "INSERT" "立面图号" pt1 n1 n1 "" keyk keyp))<br />          )<br />      )<br /> )<br /> <br /> <br /> <br /> (defun ok_lmfh ()<br /> (setq n1 (get_tile "bl_sc"));;;当前标注比例<br /> (if (= n1 "") <br />   (setq n1 n2)<br />   (setq n1 n1)<br /> )<br /> (setq keyk (get_tile "syym_sc")) ;;;;;请输入索引页码，如D-01，D-02，D-03.<br /> (if (= keyk "") <br />    (setq keyk "索引页码")<br /> )<br /> (setq keyp (get_tile "syh_sc")) ;;;;; 请输入索引号，如1，2，3... A，B，C...<1>:<br /> (if (= keyp "") <br />    (setq keyp "索引号")<br /> )<br /> )

masterlong

使用一个全局参数记忆你的选择
也可以采用外部文件或setcfg等方式
dcl中文本控件功能比较弱
必须另加判断以及格式转换的代码

yfywk

2、比例那里能不能只输入数字，输入其他值弹出非法对话框并继续返回当前对话框进行修改；继续问

masterlong

文本控件只接受文字
并不会自动转换成你需要的格式
所以你必须进行转换
转换前必须校验输入的字符串
是否符合你的需要

并不需要在错误输入时弹出错误对话框
这会让你的程序显得不是那么友好
可以设置一个text_part控件
数值错误时显示错误提示
同时也可以临时禁止accept
直到输入正确的数值

(action_tile "bl_sc" "(比例校验 $value)")

(defun 比例校验(v)
    ;1.是否数字字符串
    ;2.是否正整数
    ;3.是否....
   (.........)
   (if ok
      (progn
          (mode_title "accept" 0)
          (set_tile "警告" "")
          (setq n1 v)
      )
      (progn
          (mode_title "accept" 1)
          (set_tile "警告" "输入错误，必须为正整数")
          (setq n1 nil)
      )
)

ZZXXQQ

2. lmfh:dialog{
   
3. label="立面符号插入工具——by 凯 凯";
   
4. :row{  
   
5.   :boxed_column{
   
6.    :edit_box{
   
7.     label="索引页码：";
   
8.     key="syym_sc";
   
9.     edit_width=15;
   
10.     edit_limit=15;
    
11.     fixed_width=true;
    
12.    }
    
13.    :edit_box{
    
14.     label="索引图号：";
    
15.     key="syh_sc";
    
16.     edit_width=15;
    
17.     edit_limit=15;
    
18.     fixed_width=true;
    
19.    }
    
20.    :edit_box{
    
21.     label="当前比例：";
    
22.     key="bl_sc";
    
23.     edit_width=15;
    
24.     edit_limit=15;
    
25.     fixed_width=true;
    
26.    }
    
27.   }
    
28.   :boxed_column{
    
29.    :image{
    
30.     key="lmimage";
    
31.     width=15;
    
32.     height=7;
    
33.     fixed_width=true;
    
34.     fixed_height=true;
    
35.     color=-2;
    
36.     allow_accept=true;
    
37.    }
    
38.   }
    
39. }
    
40. ok_cancel;
    
41. }
    

lmfh:dialog{<br /> label="立面符号插入工具——by 凯 凯";<br /> :row{  <br />   :boxed_column{<br />    :edit_box{<br />     label="索引页码：";<br />     key="syym_sc";<br />     edit_width=15;<br />     edit_limit=15;<br />     fixed_width=true;<br />    }<br />    :edit_box{<br />     label="索引图号：";<br />     key="syh_sc";<br />     edit_width=15;<br />     edit_limit=15;<br />     fixed_width=true;<br />    }<br />    :edit_box{<br />     label="当前比例：";<br />     key="bl_sc";<br />     edit_width=15;<br />     edit_limit=15;<br />     fixed_width=true;<br />    }<br />   }<br />   :boxed_column{<br />    :image{<br />     key="lmimage";<br />     width=15;<br />     height=7;<br />     fixed_width=true;<br />     fixed_height=true;<br />     color=-2;<br />     allow_accept=true;<br />    }<br />   }<br /> }<br /> ok_cancel;<br /> }<br />

2. ;;;立面符号插入命令，作者：凯凯
   
3. (defun c:s1q (/ lst ptt1 pt1 n1 n2 n8 n2 keyk keyp fh_layer)
   
4. (command "undo" "be")
   
5. (command  "ATTDIA" 0)
   
6. (dcl_lmfh)
   
7. (command "undo" "e")
   
8. (princ)
   
9. )
   
10. (defun dcl_lmfh ()
    
11. (if (> (setq dcl_id (load_dialog "lmfh")) 0) (progn
    
12.   (if (new_dialog "lmfh" dcl_id) (progn
    
13.    (setq key "lmimage")
    
14.    (setq px (dimx_tile key))
    
15.    (setq py (dimy_tile key))
    
16.    (start_image key)
    
17.    (fill_image 0 0 px py -2)
    
18.    (slide_image 0 0 px py "lmfh")
    
19.    (end_image)
    
20.    (setq zs_err 1)
    
21.    (set_tile "bl_sc" (rtos (getvar "DIMSCALE")))
    
22.    (if (and (= (type keyk) 'STR) (> (strlen keyk) 0))
    
23.     (set_tile "syym_sc" keyk)
    
24.     (set_tile "syym_sc" "索引页码") ;;;设置索引页码1
    
25.    )
    
26.    (if (and (= (type keyp) 'STR) (> (strlen keyp) 0))
    
27.     (set_tile "syh_sc" keyp)
    
28.     (set_tile "syh_sc" "索引号") ;;;设置索引号1
    
29.    )
    
30.    (action_tile "bl_sc" "(testbl)")
    
31.    (action_tile "cancel" "(done_dialog 0)")
    
32.    (action_tile "accept" "(ok_lmfh) (done_dialog 1)")
    
33.    (setq dd (start_dialog))
    
34.   )
    
35.    (princ "\n无法显示对话框！")
    
36.   )
    
37.   (unload_dialog dcl_id)
    
38. )
    
39.   (princ "\n无法加载对话框！")
    
40. )
    
41. (if (= dd 1) (progn
    
42.   (while (= (setq pt1 (getpoint "\n指定立面符号插入点:")) nil)
    
43.    (princ "\n*错误*，请指定立面符号插入点或按ESC键结束命令:")
    
44.   )
    
45.   (if (not (tblsearch "block" "立面图号")) ;;判断是否存在"立面图号"图块，无则创建。
    
46.    (command "INSERT" "klimianp" "0.0" 1 1 0)
    
47.   )
    
48.   (command "layer" "s" fh_layer "")
    
49.   (if (= err 1)
    
50.    (princ "立面图号未插入")
    
51.    (command "INSERT" "立面图号" pt1 n1 n1 "" keyk keyp)
    
52.   )
    
53. ))
    
54. )
    
55. (defun testbl ()
    
56. (setq n1 (get_tile "bl_sc"))
    
57. (if (= (rtos n1 2) 0) (set_tile "bl_sc" (rtos (getvar "DIMSCALE") 2)))
    
58. )
    
59. (defun ok_lmfh ()
    
60. (setq n1 (get_tile "bl_sc"));;;当前标注比例
    
61. (if (= n1 "") (setq n1 n2))
    
62. (setq keyk (get_tile "syym_sc")) ;;;;;请输入索引页码，如D-01，D-02，D-03.
    
63. (if (= keyk "") (setq keyk "索引页码"))
    
64. (setq keyp (get_tile "syh_sc")) ;;;;; 请输入索引号，如1，2，3... A，B，C...<1>:
    
65. (if (= keyp "") (setq keyp "索引号"))
    
66. )
    

;;;立面符号插入命令，作者：凯凯<br /> (defun c:s1q (/ lst ptt1 pt1 n1 n2 n8 n2 keyk keyp fh_layer)<br /> (command "undo" "be")<br /> (command  "ATTDIA" 0)<br /> (dcl_lmfh)<br /> (command "undo" "e")<br /> (princ)<br /> )<br /> (defun dcl_lmfh ()<br /> (if (> (setq dcl_id (load_dialog "lmfh")) 0) (progn<br />   (if (new_dialog "lmfh" dcl_id) (progn<br />    (setq key "lmimage")<br />    (setq px (dimx_tile key))<br />    (setq py (dimy_tile key))<br />    (start_image key)<br />    (fill_image 0 0 px py -2)<br />    (slide_image 0 0 px py "lmfh")<br />    (end_image)<br />    (setq zs_err 1) <br />    (set_tile "bl_sc" (rtos (getvar "DIMSCALE")))<br />    (if (and (= (type keyk) 'STR) (> (strlen keyk) 0))<br />     (set_tile "syym_sc" keyk)<br />     (set_tile "syym_sc" "索引页码") ;;;设置索引页码1<br />    )<br />    (if (and (= (type keyp) 'STR) (> (strlen keyp) 0))<br />     (set_tile "syh_sc" keyp)<br />     (set_tile "syh_sc" "索引号") ;;;设置索引号1<br />    )<br />    (action_tile "bl_sc" "(testbl)")<br />    (action_tile "cancel" "(done_dialog 0)")<br />    (action_tile "accept" "(ok_lmfh) (done_dialog 1)")<br />    (setq dd (start_dialog))<br />   )<br />    (princ "\n无法显示对话框！")<br />   )<br />   (unload_dialog dcl_id)<br /> )<br />   (princ "\n无法加载对话框！")<br /> )<br /> (if (= dd 1) (progn<br />   (while (= (setq pt1 (getpoint "\n指定立面符号插入点:")) nil) <br />    (princ "\n*错误*，请指定立面符号插入点或按ESC键结束命令:")<br />   )<br />   (if (not (tblsearch "block" "立面图号")) ;;判断是否存在"立面图号"图块，无则创建。<br />    (command "INSERT" "klimianp" "0.0" 1 1 0)<br />   )<br />   (command "layer" "s" fh_layer "")<br />   (if (= err 1)<br />    (princ "立面图号未插入")<br />    (command "INSERT" "立面图号" pt1 n1 n1 "" keyk keyp)<br />   )<br /> ))<br /> )<br /> (defun testbl ()<br /> (setq n1 (get_tile "bl_sc"))<br /> (if (= (rtos n1 2) 0) (set_tile "bl_sc" (rtos (getvar "DIMSCALE") 2)))<br /> )<br /> (defun ok_lmfh ()<br /> (setq n1 (get_tile "bl_sc"));;;当前标注比例<br /> (if (= n1 "") (setq n1 n2))<br /> (setq keyk (get_tile "syym_sc")) ;;;;;请输入索引页码，如D-01，D-02，D-03.<br /> (if (= keyk "") (setq keyk "索引页码"))<br /> (setq keyp (get_tile "syh_sc")) ;;;;; 请输入索引号，如1，2，3... A，B，C...<1>:<br /> (if (= keyp "") (setq keyp "索引号"))<br /> )<br />

yfywk

谢谢！问题已经解决！