OK, I couldn't recall if you had worked with reactors before. Here's an example for you:
(or jmm:plot_reactor
(setq jmm:plot_reactor (vlr-editor-reactor nil '((:vlr-commandEnded . jmm:cmdEnd)))))
(defun jmm:cmdEnd (calling cmd)
(princ ".....made it here....");remove this, just for testing....
(cond ((eq "PLOT" (strcase (car cmd))) (jmm:testlisp))
;you could add other commands to track and do other things here
)
(princ)
)
(defun jmm:testlisp ()
(princ "Command was PLOT")
;modify the line above to call the desired lisp
;NOTE! The lisp you call must NOT use the Command function!
)