[求助]dcl对话框

lht

第一次已在对话框中填了多项数据,第二次使用对话框时所有的编辑栏都是空白,但第一次填的数据大部分可重复利用,为省事,用什么方法可让第一次填入的数据在第二次调用对话框时在编辑栏内全部显示并可用,只对不同的数据进行修改即可?
已编的函数如下:
(defun c:cp()
       (setvar"cmdecho" 0) 
       (setq dcl_id (load_dialog "cp"))
       (new_dialog "cp" dcl_id)
       (ACTION_TILE "accept" "(cxh) (DONE_DIALOG)")
       (START_DIALOG)
       (command "_pline" (list x1 y1) (list x2 y2) "")
)

(defun cxh()
       (setq k (get_tile "k"))
       (setq x1 (atof (get_tile "x1")))
       (setq y1 (atof (get_tile "y1")))
       (setq x2 (atof (get_tile "x2")))
       (setq y2 (atof (get_tile "y2")))
)

cp:dialog{
       :row{
           :boxed_column{
             :row{
                  :edit_box{label="位置";key="K" ; edit_width=13;
                 }}
           }}
       :row{
           :boxed_column{
            :text{
                  label="            X   Y";
                  alignment=centered;
                 }
             :row{
                  :edit_box{label="坐  标 1   ";key="x1" ; edit_width=5;
                           }
                  :edit_box{label="";key="y1" ; edit_width=4;
                           }
                 }
             :row{
                  :edit_box{label="坐  标 2   ";key="x2" ; edit_width=5;
                           }
                  :edit_box{label="";key="y2" ; edit_width=4;
                           }
                 }}
           }
                 spacer_1;
                 ok_cancel;
       }

王咣生

改动了一下lsp部分程序:用一个全局变量rt记录填写的值.

2. (defun c:cp()
3.        (setvar"cmdecho" 0)  
4.        (setq dcl_id (load_dialog "cp"))
5.        (new_dialog "cp" dcl_id)
6.   (if (and rt (= (length rt) 5) (not (member nil rt)))
7.     (progn
8.       (set_tile "K" (nth 0 rt))
9.       (set_tile "x1" (nth 1 rt))
10.       (set_tile "y1" (nth 2 rt))
11.       (set_tile "x2" (nth 3 rt))
12.       (set_tile "y2" (nth 4 rt))
13.     )
14.   )
15.        (ACTION_TILE "accept" "(setq rt (cxh)) (DONE_DIALOG)")
16.        (START_DIALOG)
17.        (command "_pline" (list x1 y1) (list x2 y2) "")
18. )
20. (defun cxh()
21.        (setq k (get_tile "K"))
22.        (setq x1 (atof (get_tile "x1")))
23.        (setq y1 (atof (get_tile "y1")))
24.        (setq x2 (atof (get_tile "x2")))
25.        (setq y2 (atof (get_tile "y2")))
26.   (list (get_tile "K")
27. (get_tile "x1")
28. (get_tile "y1")
29. (get_tile "x2")
30. (get_tile "y2")
31. )
32. )

(defun c:cp()        (setvar"cmdecho" 0)          (setq dcl_id (load_dialog "cp"))        (new_dialog "cp" dcl_id)   (if (and rt (= (length rt) 5) (not (member nil rt)))     (progn       (set_tile "K" (nth 0 rt))       (set_tile "x1" (nth 1 rt))       (set_tile "y1" (nth 2 rt))       (set_tile "x2" (nth 3 rt))       (set_tile "y2" (nth 4 rt))     )   )        (ACTION_TILE "accept" "(setq rt (cxh)) (DONE_DIALOG)")        (START_DIALOG)        (command "_pline" (list x1 y1) (list x2 y2) "") ) (defun cxh()        (setq k (get_tile "K"))        (setq x1 (atof (get_tile "x1")))        (setq y1 (atof (get_tile "y1")))        (setq x2 (atof (get_tile "x2")))        (setq y2 (atof (get_tile "y2")))   (list (get_tile "K") (get_tile "x1") (get_tile "y1") (get_tile "x2") (get_tile "y2") ) )