Check this out .
if you need any modification just ask .
Code:
(defun c:test (/ p)
;; Tharwat 21. 07. 2011
(while
(setq p (getpoint "\n Specify point :"))
(entmakex
(list '(0 . "TEXT")
'(100 . "AcDbEntity")
'(100 . "AcDbText")
(cons 10
(trans (list (+ (car p) (/ (getvar 'textsize) 2.))
(+ (cadr p) (/ (getvar 'textsize) 2.))
)
1
0
)
)
(cons 40 (getvar 'textsize))
(cons 7 (getvar 'textstyle))
(cons 1
(strcat "X ="
(rtos (car p) 2)
"MM"
" "
"Y="
(rtos (cadr p) 2)
"MM"
)
)
'(210 0.0 0.0 1.0)
'(50 . 0.)
)
)
)
(princ)
)
Tharwat