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

(defun MI_askpoint (prmpt val / x)

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