[求助]：程序哪出错了？

bdgxhmldzj

本人是菜鸟，编了个小程序，不知程序哪不对，出现如下问题：
点击“选点”按钮不能隐藏对话框，请教各位大侠指正。

DCL程序如下：
psel : dialog {
label = "选点";
: column {
    : edit_box {
        label = "X: ";
        key = "px";
        edit_width = 8;
    }
    : edit_box {
        label = "Y: ";
        key = "py";
        edit_width = 8;
    }   
}
: button {
     label = "选点<";
     key = "ins";
     width = 8;
     fixed_width = true;
   }
   ok_only;
}

LISP程序如下：
(defun c:psel ()
  (setq dcl_id (load_dialog "lianxi"))
  (if (not (new_dialog "psel" dcl_id)) (exit))
  (setq hid 5)
  (while (> hid 2)
    (action_tile "px" "(setq px1 $value)(pzb)")
    (action_tile "py" "(setq py1 $value)(pzb)")
    (action_tile "sel" "(done_dialog 3)")
    (action_tile "accept" "(done_dialog 1)")
    (setq hid (start_dialog))
    (if (= hid 3)
      (pse)
     )
   )
  (unload_dialog dcl_id)
  (princ p1)
  (princ)
)

(defun pzb ()
  (setq px (float (atof px1)))
  (setq py (float (atof py1)))
  (setq p1 (list px py))
  (princ)
)


(defun pse ()  
  (setq ps (getpoint "\n选点:"))
  (setq psx (car ps))
  (setq psy (cadr ps))
  (setq p1 (list psx psy))
  (setq psx1 (rtos psx 2 4))
  (setq psy1 (rtos psy 2 4))
  (set_tile "px" psx1)
  (set_tile "py" psy1)
  (princ)
)

另外，本程序是想要实现如下功能：
当点击对话框中的“选点”按钮后，对话框要暂时关闭，在绘图区指定一点后，对话框重新出现，并且在“X：”、“Y：”编辑框中显示该点的坐标值。不知要想实现该功能，还要做什么改动。
在这里，菜鸟先谢谢各位好心的大侠了！！！

nore

这里不好调试，也一下子说不出程序运行语句哪里有问题，我看到的问题：
1.你"选点<"按钮的关键词是"ins"，而你对话框运行中用的却是"sel"
2.你首先应该对变量(px1,py1等)进行初始化，在while语句后进行赋值，使得运行了pse程序后将新的坐标值显示出来

建议里多看看其他程序的例子，学习一下对话框操作的一些思路
还有就是学着用vl调试，象第一个问题就可以发现了