 ; Mac - put a status line on the screen.
 ; Copyright 1999, 2002, 2005 by Rocket Software Ltd.
 ; Not a big routine...
 (DEFUN C:MAC ()
  (if (/= 4 (logand 4 (getvar "cmdactive"))) ; inactivate during a script
      (setvar "modemacro" (strcat "Sc: $(getvar,dimscale)"
                                  "  Lay: $(getvar,clayer)"
                                  "  Col: $(getvar,cecolor)"
                                  "  Lt: $(getvar,celtype)"
                                  "  Snap: $(getvar,snapunit)")))
 (princ))
