为什么我获取不了对话框中编辑框控件的属性

changyiran

2. tt:dialog{label="试验";
   
3.     :edit_box{key="bjk";
   
4.        }
   
5.     :button{label="确定";
   
6.         key="accept";
   
7.         is_default=true;
   
8.        }
   
9.          }
   
10. (defun c:tt()
    
11.   (setq bzf(load_dialog"试验"))
    
12.   (new_dialog "tt"bzf)
    
13.   (start_dialog)
    
14.   (setq nr(get_tile"bjk1"))
    
15.   (princ)
    
16. )

tt:dialog{label="试验";<br />     :edit_box{key="bjk";<br />        }<br />     :button{label="确定";<br />         key="accept";<br />         is_default=true;<br />        }<br />          }<br /> (defun c:tt()<br />   (setq bzf(load_dialog"试验"))<br />   (new_dialog "tt"bzf)<br />   (start_dialog)<br />   (setq nr(get_tile"bjk1"))<br />   (princ)<br /> )

changyiran

我调试时为什么(get_tile"bjk1")返回值为nil呢？

ZZXXQQ

changyiran 发表于 2014-11-26 15:05
我调试时为什么(get_tile"bjk1")返回值为nil呢？

2. ;要在未退出对话框时读取数据
   
3. (defun c:tt()
   
4.   (setq bzf(load_dialog "试验"))
   
5.   (new_dialog "tt" bzf)
   
6.   (action_tile "accept" "(setq nr (get_tile "bjk"))")
   
7.   (start_dialog)
   
8.   (unload_dialog bzf)
   
9.   (princ)
   
10. )
    

;要在未退出对话框时读取数据<br /> (defun c:tt()<br />   (setq bzf(load_dialog "试验"))<br />   (new_dialog "tt" bzf)<br />   (action_tile "accept" "(setq nr (get_tile "bjk"))")<br />   (start_dialog)<br />   (unload_dialog bzf)<br />   (princ)<br /> )<br />

Gu_xl

changyiran 发表于 2014-11-26 15:05
我调试时为什么(get_tile"bjk1")返回值为nil呢？

  (new_dialog "tt"bzf) ；对话框开始
.
.
.
  (start_dialog)；对话框结束

changyiran

ZZXXQQ 发表于 2014-11-26 21:56

谢谢版主，不过我把代码改成(action_tile "accept" "(setq nr (get_tile \"bjk\"))(vl-registry-write \"HKEY_CURRENT_USER\\bjk1\"\"bjk1\"nr)")，再运行时为什么会出现  错误: 注册键根未知: "HKEY_CURRENT_USERbjk"，请版主指点！

changyiran

Gu_xl 发表于 2014-11-26 22:30
(new_dialog "tt"bzf) ；对话框开始
.
.

谢谢G版，原来是在隐藏对话框前应该把属性获取。