;; | ----------------------------------------------------------------------------
;; | MI_askreal
;; | ----------------------------------------------------------------------------
;; | Function : A wrapper for getreal function
;; |            Displays the prompt string with a default option of real number
;; | Argument : 'prmpt' - Prompt string to display
;; |            'val'   - Default value
;; | Return   :
;; | Update   : July 15, 2004
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_askreal (prmpt val / x lu )

(setq lu (getvar "LUNITS"))
(princ (strcat "\n" prmpt " <" (rtos val lu (getvar "LUPREC")) ">: "))
(if (= lu 4)
(progn
	(setq x (getstring T))
	(if (= x "")
		(setq x nil)
		(setq x (distof x 4))
	)
)
(setq x (getreal))
)
(if x
	(setq val x)
)
val
)

;; Ask an integer supplying a default

(defun MI_askint (prmpt val / x)

	(princ (strcat "\n" prmpt " <" (itoa val) ">: "))
	(setq x (getreal))
	(if x
		(setq val (fix x))
	)
val
)

;; Ask a distance supplying a default

(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
)

;; Ask a distance supplying a default

(defun MI_AskAngle ( prmpt val / x )

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

;; Ask a point, supplying a default

(defun MI_askpoint (prmpt val / x)

	(princ (strcat "\n" prmpt " <" (LI_Lst2Str (mapcar 'rtos val) ",") ">: "))
	(setq x (getpoint))
	(if x
		(setq val x)
	)
val
)