Lisp to place Co-ordinates

[rob.fryer]

I am looking for a lisp routine which places x,y coordinate mtext (preferably allowing you to prefix the text with E or N) at selected points

Thanks

[rkmcswain]

Here is a start...

(defun c:labelme ( / pt1 str)
  (while (setq pt1 (getpoint "\n Pick a point: "))
    (setq str (strcat "E: " (rtos (car pt1) 2) "\\PN: " (rtos (cadr pt1) 2)))
    (command "-mtext" pt1 "_W" 0.0 str "")
  )
  (princ)
)
    

If you are not sure what to do with lisp code, see this tutorial:
http://www.cadtutor.net/forum/showthread.php?t=2791

[rob.fryer]

Thanks, thats done the trick