;; | ----------------------------------------------------------------------------
;; | MI_dn
;; | ----------------------------------------------------------------------------
;; | Function : Print Drawing Name and Modes/Project Number on Status line
;; | Argument : (none)
;; | Updated  : January 5, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_dn(/ str)

(setvar "CMDECHO" 0)
(setq str (strcat "Layer:" (getvar "CLAYER") " "))
(if (= (getvar "ORTHOMODE") 1)
	(setq str (strcat str "Ortho "))
)
(if (= (getvar "SNAPMODE") 1)
	(setq str (strcat str "Snap "))
)
(setq str (strcat str (strcat (car (MI_SplitPath (getvar "DWGNAME"))) ".DWG")))
(grtext -1 str)
)