;; System Variable Changed Exercise

(vl-load-com)
(vlr-sysvar-reactor nil '((:vlr-sysVarChanged . Sys_Var_Chg_SNMODE)))

(defun Sys_Var_Chg_SNMODE (obj lst / )
 (if (and (= (car lst) "SNAPMODE") (cdr lst))
  ;(progn
   ;change crosshair color here based on resulting SNAPMODE value
   (princ (strcat "\n SNAPEMODE changed. New value is " (itoa (getvar "SNAPMODE")) ".\n"))
  ;);progn
 );if
 (princ)
);end Sys_Var_Chg_SNMODE