좌표찍는 리습인데 글씨 크기 변경 도와주세요

안녕하세요.

토목 좌표를 찍으려고 하는데요..

제가 여기서 다운받은 리습 글씨 크기가 2.5로 나옵니다.

글씨 크기를 제가 원하는 크기로 변경할수 있게 하려면 어떡게 해야 할까요??

어떤부분은 글씨크기를 1.2로 하고 싶고,, 다른부분은 글씨크기를 0.8로 하고 싶습니다.

고수님들의 도움이 간절히 필요한 상황입니다.

도와주세요..


(defun c:XY ()
 (setq ts (getvar "textsize"))
 (setq osm (getvar "osmode"))
 (setq pt1 (getpoint "Pick First Point:"))
 (setq pt2 (getpoint pt1 "Pick Second Point:"))
 (setvar "osmode" 0)
 (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 "" pxt)
 (command ".text" "j" "bl" txtpnt1 ts "" pyt)
 (setvar "osmode" osm)
 (princ)
)