Setting Out LISP query

[jhockley]

I have a LISP routine (below) that shows the bottom co-ords 19.754, -3.663

I want it to show like the top one - with a carriage return in it.

19.754

-3.663

(defun c:lb (/  p x y ptcoord textloc)
  (while
    (setq p (getpoint "\nPick Point: "))
    (setq textloc (getpoint "\nPick Label Location: "))
    (setq x (rtos (car p)))
    (setq y (rtos (cadr p)))
    (setq ptcoord (strcat x ", " y))
    (command "_LEADER" p textloc "" ptcoord "")
  )
)

What is the simple adjustment to the code that will make this possible?

Also if i wanted to make it like this:

X= 19.754

Y= -3.663

what would i have to do?

[hmsilva · Accepted solution]

Perhaps something like this

(defun c:lb (/  p x y ptcoord textloc)
  (while
    (setq p (getpoint "\nPick Point: "))
    (setq textloc (getpoint "\nPick Label Location: "))
    (setq x (rtos (car p)))
    (setq y (rtos (cadr p)))
    (setq ptcoord (strcat "X= "x "\\PY= " y))
    (command "_LEADER" p textloc "" ptcoord "")
  )
)

Henrique

[jhockley]

Thanks very much

[hmsilva]

You're welcome!
Glad I could help

Henrique