;;;Modemacro - shows full <path><filename> Ortho Snap Tablet Pspace
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 6-1-2001
;;;>		   EDITED: 10-28-1999
;;;
(defun C:STAT ( / )
  (setq pthstr (strcase(getvar"dwgprefix")T))
  (setq nmstr (strcase(getvar"dwgname")T))
  (setvar "modemacro"
    (strcat
;;;      "$(getvar,clayer)"
;;;      "$(if,$(getvar,orthomode), O)"
;;;      "$(if,$(getvar,snapmode), S)"
;;;      "$(if,$(getvar,tabmode), T)" " "
;;;;      "$(if,$(and,$(=,$(getvar,tilemode),0),$(=,$(getvar,cvport),1)), Pspace)" " "
      pthstr
      nmstr
    );strcat
  );setvar
  (princ)
);defun C:STAT