LM:DisplayGrText

[Ajmal]

defun C:CR (/ PNT1 P1X P1Y STDY DY COORD PTXT)
  (defun *error* ( m ) (princ m) (redraw) (princ))
  (while (= 5 (car (setq pnt (grread nil 13 0))))
        (redraw)
        (setq str (mapcar 'rtos (trans (cadr pnt) 1 0)))
        (LM:DisplayGrText (cadr pnt) (LM:GrText (strcat "E " (car str) "\nN " (cadr str))) 3 15 -31)
    )
  (redraw)
  (setq str1 (reverse (cdr (reverse str))))
  (setq COORD(strcat "E " (car str))
	COORD1(strcat "N " (cadr str)))
                  
    
    
    
    (command "LEADER" (cadr pnt) PAUSE ""
      COORD COORD1 "" "")
    (princ)) ; end

(princ "\n E,N CO-ORDINATES OF A POINT  - Type \"CR\" to start")

when i use this i cant get the snap 

 

how can i get snap with this????

 

 

http://www.lee-mac.com/grtext.html

 

 

[pkenewell]

Have you looked at adding THIS to your code?