[求助]：请教如何改变这个程序以实现隐藏对话框？

bdgxhmldzj

本人刚刚学习lisp程序，还不太会，尤其是对话框控制程序，不是很明白，刚刚编了一个程序用来实现隐藏对话框，但完成CAD窗口操作后却不能回到对话框，不知错在哪，请各位大侠给予指正。
DCL程序如下：

///设计隐藏对话框

exer : dialog {
  label = "隐 藏";
  : button {
      label = "选点<";
      key = "sel";
      width = 8;
      fixed_width = true;
  }
  ok_only;
  }

LISP程序如下：

;;;建立select函数

(defun select (j)
  (if (= j 1)
    (done_dialog 4)
  )
  (princ)
)

;;;设计隐藏对话框函数

(defun c:exer ()
  (if (> (setq index_value (load_dialog "lianxi")) 0)
    (progn
      (if (new_dialog "exer" index_value)
        (progn
          (action_tile "accept" "(done_dialog 1)")
          (setq p 5)
          (while (< 2 p)
            (action_tile "sel" "(select 1)")
            (setq p (start_dialog))
            (if        (= p 4)
              (setq point (getpoint "取点："))
            )
          )
          (start_dialog)
        )
        (alert " 不能显示对话框！ ")
      )
      (unload_dialog index_value)
    )
    (alert " 不能装入对话框！ ")
  )
  (princ)
)

xxsheng

(defun c:exer ()
(if (> (setq index_value (load_dialog "lianxi")) 0)
(progn
(setq p 5)
(while (< 2 p)
(if (new_dialog "exer" index_value)
(progn  
(action_tile "accept" "(done_dialog 1)")
(action_tile "sel" "(select 1)")
(setq p (start_dialog))
(if (= p 4)
(setq point (getpoint "取点："))
)
)
(alert " 不能显示对话框！ ")
)
)
(unload_dialog index_value))
(alert " 不能装入对话框！ ")
)
(princ)
)

bdgxhmldzj

再请教高手一下，前边那个select函数和对话框程序还有什么需要改进的地方吗？本人是个大菜鸟，水平及其有限，还望大侠多多指点。