AutoCAD Lisp - Как нарисовать Y вертикально

В настоящее время я использую следующий код Lisp для отображения координат X и Y от начала координат:

(defun c:xy(/ pt pt1 pt2 x y  xy)

(setq pt (getpoint "\nPoint : "))
(setq x(rtos(car pt)))
(setq y(rtos(cadr pt)))

; x- leader horizontaal                                
(setq pt1 (getpoint pt "\nHORIZONTAL: "))
(command "leader" pt pt1 "" x "" )

; y- leader verticaal                                
(setq pt2 (getpoint pt "\nVERTICAL: "))
(command "leader" pt pt2  "" y "" ) )

(princ)

В настоящее время скрипт показывает координату Y (6050.00) следующим образом:

Хотя я бы хотел, чтобы координата Y была нарисована вертикально следующим образом:

Есть ли возможность добиться этого через Лисп? Если да, то какие изменения я должен был бы сделать?