对话框问题

another2121

        做了一个可以输入字符的对话框， 第一次运行lisp程序的时候，里面的文本框内容是空的；第二次运行lisp程序的时候，要怎么样才能显示第一次运行时输入的字符呢？
      大概情况如下 ：
            1. 第一次运行的时候的状态：
          -----------------------------------------------------------------------------------
          ｜                                                                                                   ｜
          ｜             请输入你的信息：                                                          ｜
           -----------------------------------------------------------------------------------

          2. 第一次运行的时候输入内容：   飞龙在天
          -----------------------------------------------------------------------------------
          ｜                                                                                                   ｜
          ｜             请输入你的信息：   飞龙在天                                         ｜
           -----------------------------------------------------------------------------------
           3. 第二次运行的时候的状态：   
          -----------------------------------------------------------------------------------
          ｜                                                                                                   ｜
          ｜             请输入你的信息：   飞龙在天                                         ｜
           -----------------------------------------------------------------------------------
          4. 第二次运行的时候输入内容：   一二三四五六   
          -----------------------------------------------------------------------------------
          ｜                                                                                                   ｜
          ｜             请输入你的信息：   一二三四五六                                  ｜
           -----------------------------------------------------------------------------------

xshrimp

2. 
   
3. (defun c:test ()
   
4. (setq dclname
   
5. (cond  
   
6. ((setq tempname (vl-filename-mktemp "gps-dcl-tmp.dcl") filen (open tempname "w"))
   
7. (foreach stream  
   
8. '(  
   
9. "test:dialog{:edit_box{key="edit";label="请输入文字:";}ok_cancel;}\n"
   
10. )
    
11. (princ stream filen)
    
12. )
    
13. (close filen)
    
14. tempname
    
15. )))
    
16. (setq dclid (load_dialog dclname))
    
17. (if (not (new_dialog "test" dclid)) (progn (alert "dcl对话框加载失败.")(exit)))
    
18. 
    
19. (if #editvalue# (set_tile "edit" #editvalue#))
    
20. (mode_tile "edit" 2)
    
21. (action_tile "edit" "(setq #editvalue# $value)")
    
22. (start_dialog)
    
23. (unload_dialog dclid)
    
24. (vl-file-delete dclname)
    
25. )

<br /> (defun c:test ()<br /> (setq dclname <br /> (cond  <br /> ((setq tempname (vl-filename-mktemp "gps-dcl-tmp.dcl") filen (open tempname "w")) <br /> (foreach stream  <br /> '(  <br /> "test:dialog{:edit_box{key="edit";label="请输入文字:";}ok_cancel;}\n"<br /> )<br /> (princ stream filen)<br /> ) <br /> (close filen)<br /> tempname<br /> )))<br /> (setq dclid (load_dialog dclname))<br /> (if (not (new_dialog "test" dclid)) (progn (alert "dcl对话框加载失败.")(exit)))<br /> <br /> (if #editvalue# (set_tile "edit" #editvalue#))<br /> (mode_tile "edit" 2)<br /> (action_tile "edit" "(setq #editvalue# $value)")<br /> (start_dialog)<br /> (unload_dialog dclid)<br /> (vl-file-delete dclname) <br /> )

another2121

非常感谢。。。我要的正是这个效果。。。
      另外，可不可以用VLISP编个出来呢？我是新手，还没有学习这个vl-xxxxx-xxxxxx的lisp编 程 。。。。

another2121

好的。。。谢谢。。。

zwqgdhl

顶，好东东，先下载了再研究

hehoubin

很好，能问下。(mode_tile "edit" 2)
这句是什么意思

illcyt

xshrimp 发表于 2010-11-30 10:06

非常好的代码，留作学习了，谢谢