求大神帮忙看看！！！
我需要设计一个对话框，修改字高。然后现在可以驱动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;
}
页:
[1]