(DEFUN C:OG ()
  (IF OGTOG
    (SETQ OGTOG "ON")
    (SETQ OGTOG "OFF")
  );IF
  (COMMAND "'.LAYER" OGTOG "*GRID" "")
  (IF(EQ OGTOG "ON")
    (SETQ OGTOG NIL)
  );IF
)