- jsyq: dialog {
- label = "技术要求";
- : edit_box {
- label="请输入技术要求";
- key="jishu";
- edit_width=25;
- fixed_width=true;
- }
- ok_cancel;
- }
- (defun C:jsyq()
- (defun getdata () (setq a (get_tile "jishu")))
- (setq index_value (load_dialog "jsyq.dcl"))
- (if (not (new_dialog "jsyq" index_value))
- (exit)
- )
- (action_tile "accept" "(getdata) (done_dialog 1)")
- (action_tile "cancel" "(done_dialog 0)")
- (setq re (start_dialog))
- (unload_dialog index_value)
- (if (= re 1) (prin1 a))
- (princ)
- )
|