(setvar "cmdecho" 0)
(dcl_dia5a)
(prin1)
)
(defun dcl_dia5a()
(setq dcl_id (load_dialog "wenzi.dcl"))
(new_dialog "wenzi" dcl_id)
;(setq qq (get_tile "zi"))
(action_tile "accept" "(setq qq(get_tile \"zi\"))(done_dialog 1)")
(setq oke (start_dialog))
(unload_dialog dcl_id)
(if (= OKE 1)
(ok_dia5a)
)
)
(defun ok_dia5a()
(setq pt0(getpoint))
(command "_.text" "j" "m" pt0 10 0 qq)
)
页:
1
[2]