请教高手 DCL对话框如何赋值给文本框，保证每次调用lisp程序后，文本框的属性值跟随变化

请教高手
DCL对话框如何赋值给文本框，保证每次调用lisp程序后，文本框的属性值跟随变化
（也就是以下a的值每调用一次后，下次调用是a的值都保留在DCL文本框里）
以下是DCL文件
xq : dialog {
: column {
key = "bx";
: row {
: edit_box { key = "A"; label = "A值"; (value = a);}
}
}
}
以下是lisp文件
(DEFUN RDATA ()
(SETQ a (ATOF(GET_TILE "A")) )
)

楼上正解！

任务占坑