changyiran 发表于 2014-11-26 15:03:52

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

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

changyiran 发表于 2014-11-26 15:05:08

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

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

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

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

Gu_xl 发表于 2014-11-26 22:30:39

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

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

changyiran 发表于 2014-11-28 11:02:24

ZZXXQQ 发表于 2014-11-26 21:56 static/image/common/back.gif


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

changyiran 发表于 2014-11-28 11:03:42

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


谢谢G版，原来是在隐藏对话框前应该把属性获取。
页: [1]
查看完整版本: 为什么我获取不了对话框中编辑框控件的属性