反应器，如何使vlr-data-set的值变化

zdqwy19

(defun c:test()
  (setq m (vlax-ename->vla-object(car(entsel))))
  (setq n 8)
  (setq l (vlr-object-reactor (list m ) n '((:vlr-modified . mm))))
  (defun mm(a b c)
    (setq nn (vlr-data b))
    (vlr-command-reactor a '((:vlr-commandEnded . nm)))
    (vlr-data-set b nn);如何使b=6，nn的值是个变量
    )
  (defun nm(b c)
    (setq nn 6)；如何使b=6，nn的值是个变量
    )
  )