LEADER로 XY표현하는 리습입니다. 한번 봐주세요~~~

고수님들의 도움필요로 다시한번 글올립니다.
하기는 XY치수룰 LEADER 값으로 표현하는 리습입니다.
원하는건 현재리습은 치수에 사각박스가 씌어지는데 없애고 싶고, 현재 XY없이 표기되는데 X:0.00,Y:0.00으로 표기되게 가능할까요??

(defun c:31 (/ odt odg oecho oerr p1 p2 a1 a2 a)
 (setq odt   (getvar "dimtad")
odg   (getvar "dimgap")
oecho (getvar "cmdecho")
 )
 (setq oerr *error*)
 (defun *error* (msg)
   (princ "n ERROR!")
   (setvar "cmdecho" oecho)
   (setvar "dimtad" odt)
   (setvar "dimgap" odg)
   (setq *error* oerr)
   (command)
   (princ)
 )
 (setq oldecho (getvar "cmdecho" ))
 (setvar "cmdecho" 0)
 (setq ptb (getpoint "기준점 선택: "))
 (command "ucs" "o" ptb)
 (setq pt1 T)
 (setvar "cmdecho" 0)
 (setvar "dimtad" 0)
 (setvar "dimgap" -0.09)
 (while (setq p1 (getpoint "n 치수기입 포인트 선택: "))
   (setq p2 (getpoint p1 "n Place annotation: ")
  a1 (rtos (nth 0 p1) 2 2)
  a2 (rtos (nth 1 p1) 2 2)
  a3 (rtos (nth 2 p1) 2 2)
  ;;a  (strcat a1 ", " a2 ", z=" a3)
  a  (strcat a1 ", " a2)
  ;;a  (strcat "x=" a1 "\Py=" a2)
  ;;a  (strcat "x=" a1 "\Py=" a2 "\Pz=" a3)
  ;;a  (strcat "x = " a1 ", y = " a2)
   )
   ;(if (/= a3 "0.000″)(setq a (strcat a1 ", " a2 ", z=" a3)))
   (command "leader" p1 p2 "" a "" ^c)
 )
 (setvar "cmdecho" oecho)
 (setvar "dimtad" odt)
 (setvar "dimgap" odg)
 (princ)
) ;_ end of defun

(prompt "n To start ID Leader, type > 31 <: ")