在退出(done_dialog)子对话框前将输入的数据保存在变量中: …… (ACTION_TILE "accept" "(readata) (done_dialog 1)") (setq re (start_dialog)) …… ) (DEFUN READDATA () (SETQ A (GET_TILE "a")) …… ) 显示主对话框前将变量内容用SET_TILE置入指定位置: …… (IF A (SET_TILE "a" A)) …… (ACTION_TILE "accept" "(DONE_DIALOG 1)") (SETQ RA (START_DIALOG)) …… |