求教对话框问题

lxqun · 发表于 2004-3-20 22:52:00

编辑框控件,它的值,我是说编辑框的内容.是要到cad绘图屏幕上去拾取的,如何在拾取后,就把所拾取的值显示在编辑框内啊
比如:    (action_tile "zjd_x" "(do_zjdx)")
   (set_tile "zjd_x" zjd_x)
   (defun do_zjdx ()
   (setq zjd_x (get_tile "zjd_x"))
)
这样的话,第二句话总是会出错,好像 zjd_x 没定义过一样
为什么啊?

meflying · 发表于 2004-3-21 08:40:00

不是好象,从你以上的语句中,zjd_x就是没有赋值,是空的,所以出错

lxqun · 发表于 2004-3-21 13:03:00

在(setq zjd_x (get_tile "zjd_x"))中不是就已经赋值了吗,
那到底应该怎么做啊,教教我啊?

meflying · 发表于 2004-3-21 13:36:00

这是在动作函数中才赋值,而你(set_tile "zjd_x" zjd_x)的时候,根本就没有触发动作函数
而且你是将控件"zjd_x"中的值取出来,又赋给它,这样做有什么意义?

lxqun · 发表于 2004-3-21 14:41:00

我明白你的意思了,但到底要怎样才能把我在屏幕上拾取的数据显示在编辑框里啊???

meflying · 发表于 2004-3-21 15:28:00

程序部分:
(defun c:test( / dcl_id what_next txt ent)
   (setq dcl_id (load_dialog "tmp.dcl"))
   (setq what_next 2)
   (while (>= what_next 2)
   (new_dialog "Enter" dcl_id)
   (if txt (set_tile "zjd_x" txt))
   (action_tile "pick" "(done_dialog 2)")
   (setq what_next (start_dialog))
   (if (= what_next 2)
   (progn
(setq ent (entsel))
(if ent (setq txt (cdr (assoc 1 (entget (car ent))))))
   )
   )
   )
   (unload_dialog dcl_id)
   (princ)
)

对话框部分
Enter:dialog{
:column{
:edit_box { label = "输入:"; key = "zjd_x";}
:button { label = "拾取文字"; key = "pick";}
}
ok_cancel;
}

lxqun · 发表于 2004-3-21 15:59:00

唉,高手就是高手.原来我只要加个(if ..)就可以了,我怎么就想不到呢?
get_tile得到的是控件的值,那假如编辑框的内容在术语上应该是叫什么?
还有在顺便问一下关于done_dialog的问题,你上面的程序done_dialog后跟的是2,我用的是4,这有区别吗,done-dialog后面的参数是固定的吗?都有些什么参数啊?