[求助]：dcl对话框

真龙天子

第一次已在对话框中填了多项数据,第二次使用对话框时所有的编辑栏都是空白,但第一次填的数据大部分可重复利用,为省事,用什么方法可让第一次填入的数据在第二次调用对话框时在编辑栏内全部显示并可用,只对不同的数据进行修改即可?
已编的函数如下:
(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;
       }

caddog

在程序开始时用一个变更给EDIT_BOX赋值,如:
(set_title x1 #X1)
然后添加如下的语句:作用是当编辑框内的值发生变化时,将其值赋给变量#X1
(action_tile "x1" "(setq #x1 $value)")
这样在下一次启动对话框时,就可以保留您上次输入的值了.
各语句具体的用法请参见ACAD的帮助哈,里面很详细的.

fengjianwei

问个弱弱的问题
lisp和dcl程序是放在同一个目录下的吗

haibinpro

dcl文件放在cad支持搜索目录就可以了。

qiaqiadeng

将数据存入文件,然后下次再读进来不就行了?