到底如何对话框中文本框动态付初值啊？我实在是没辙了！！！

ZZXXQQ

3. (defun c:qudong_biaotilan()
4. (setq mingcheng (if mingcheng mincheng "名称")
5.        zhitu (if zhitu zhitu "制图"))
6. (if (< (setq index (load_dialog "biaotilan.dcl")) 0) (exit))
7. (if (not (new_dialog "biaotilan" index)) (exit))
8. (set_tile "mingcheng" mingcheng)
9. (set_tile "zhitu" zhitu)
10. (action_tile "accept" "(readdata) (done_dialog 3)")
11. (action_tile "cancel" "(done_dialog 4)")
12. (action_tile "help" "(help)")
13. (setq result (start_dialog))  
14. (unload_dialog index)
15. (if (= result 3) (progn
16.   (load "biaotilan.lsp")
17.   (set_tile "mingcheng" mingcheng);得到填入文本框中的值。
18.   (set_tile "zhitu" zhitu)  ;得到填入文本框中的值。
19.   (biaotilan mingcheng zhitu)
20. ))
21. (princ)
22. )
23. (defun readdata ()
24. (setq zhitu (get_tile "zhitu")
25.        mingcheng (get_tile "mingcheng"))
26. )

(defun c:qudong_biaotilan() (setq mingcheng (if mingcheng mincheng "名称")        zhitu (if zhitu zhitu "制图")) (if (< (setq index (load_dialog "biaotilan.dcl")) 0) (exit)) (if (not (new_dialog "biaotilan" index)) (exit)) (set_tile "mingcheng" mingcheng) (set_tile "zhitu" zhitu) (action_tile "accept" "(readdata) (done_dialog 3)") (action_tile "cancel" "(done_dialog 4)") (action_tile "help" "(help)") (setq result (start_dialog))   (unload_dialog index) (if (= result 3) (progn   (load "biaotilan.lsp")   (set_tile "mingcheng" mingcheng);得到填入文本框中的值。   (set_tile "zhitu" zhitu)  ;得到填入文本框中的值。   (biaotilan mingcheng zhitu) )) (princ) ) (defun readdata () (setq zhitu (get_tile "zhitu")        mingcheng (get_tile "mingcheng")) )

coffalt

如果是全局变量，那另外一个lisp如果也有同名的全局变量的话会有冲突哈！