좌표리습인데요 글씨 크기만 1/1000 스케일로 줄일수 있을가요 ?

(defun c:XY()
 (setq ts (getvar "textsize"))
 (setq pt1 (getpoint "Pick First Point:"))
 (setq pt2 (getpoint pt1 "Pick Second Point:"))
 (setq px (car pt1))
 (setq py (cadr pt1))
 (setq pxt (strcat "X=" (rtos py 2 4)))
 (setq pyt (strcat "Y=" (rtos px 2 4)))
 (command "line" pt1 pt2 "")
 (setq txtpnt pt2)
 (setq txtpnt1 (list (car txtpnt)
 (- (cadr txtpnt) (* 1.5 ts)) 0.0))
 (command ".text" "j" "bl" txtpnt ts "0.0" pxt)
 (command ".text" "j" "bl" txtpnt1 ts "0.0" pyt)
 (princ)
)

스케일이 1/1000 인 좌표도인데 로드해서 쓸라고 하니깐 글씨 크기가 엄청나게 크게

나오네요, 좌표도를 크게 할수는 없고 글씨 포인트만 1/1000로 줄일수 있을까요 ?