求大神帮忙看看！！！

a836840

我需要设计一个对话框，修改字高。然后现在可以驱动dcl文件，但是没法修改。请大神帮帮忙
主程序：
(defun c:replace(/ return_value)
(if (> (setq return_value (load_dialog "replace.dcl")) 0)
    (progn
      (if (new_dialog "replace" return_value)
        (progn
          (action_tile "key_h1" "(setq h1 $value)")
          (action_tile "accept" "(done_dialog 1)" )
          (start_dialog)
        )
     (princ "\n 不能打开对话框")
      )
      (unload_dialog return_value)
    )
    (princ "\n 不能打开对话框")
  (cond (C:tes))
  )
(defun C:tes (/ &k1 &kw1 &ob1 h1)
(if (null vlax-dump-object) (vl-load-com) )
(if
  (> h1 0)
  (princ "\n请选择文字")
  (setq &kw1 (ssget '((0 . "TEXT"))))
     )
  (progn
   (while (setq &k1 (ssname &kw1 0))
    (setq &kw1 (ssdel &k1 &kw1))
    (setq &ob1 (vlax-ename->vla-object &k1))
    (vla-put-Height &ob1 h1)
  )
)
(princ)
)
  )

dcl文件：
replace:dialog
{
  label="调整字高";
  :edit_box
  {
    label="输入字高";
    key="key_h1";
    is_default=true;
  }

  ok_cancel;
}