면적 구하기 리습인데 문자 크기가 조정이 안됩니다.

이번에 컴 윈도우 10 64bit cad2017로 업그레이드 하였습니다.
예전부터 사용하던 면적구하는 리습인데 면적은 구해지는데 문자 크기가
변경이 안됩니다.
기본 크기인  0.25사이즈로 계속 나오는데 0.7사이즈로 변경해도 실행하면 계속
0.25사이즈로 나옵니다.

;; Main program
(defun c:ar( / dum dum1 dum2 dum3 po)
        (graphscr)
        (while (setq dum (getpoint “n Select pick point … : “))
        (command “bpoly” dum “”)
        (setq dum1 (ssget “l”))
        (command “area” “o” dum1 )
        (setq dum2 (getvar “area”))
        (setq dum3 (strcat (rtos dum2 2 2)))
        (setq po (getpoint “Your text  point …:”))
        (command “.text” “j” “bl” po 0.7 “0” dum3)
        (command “erase” “si” dum1  “.redraw”)
        )
)