;; ! ****************************************************************************
;; ! MI_askDist
;; ! ****************************************************************************
;; ! Ask a distance supplying a default
;; ! e-mail   : rakesh.rao@4d-technologies.com
;; ! Web      : www.4d-technologies.com
;; ! **************************************************************************** 

(defun MI_AskDist (prmpt val / x)

	(princ (strcat "\n" prmpt " <" (rtos val (getvar "LUNITS") (getvar "LUPREC")) ">: "))
	(setq x (getdist))
	(if x
		(setq val x)
	)
val
)