캐드 면적 리습 수정 바랍니다.

z (DEFUN C:AB()
  (SETVAR "CMDECHO" 1)
  (SETVAR "REGENMODE" 0)
  (COMMAND "AREA" "e" pause)
  (setvar "lunits" 2)
  (setvar "luprec" 2)
  (SETQ PP (GETPOINT "n Pick the point : ")
        TS (GETVAR "TEXTSIZE")
        AREA (GETVAR "AREA")
        AB (/ AREA 1000000.)
        AREA1 (RTOS AB 2 2)
        AB (STRCAT  ""AREA1″")
        )
  (COMMAND "TEXT" PP TS "0″ AB)
)


면적 구하는 리습입니다.
제곱미터로 나오는 리습인데요
글자 크기를 바꾸고 싶습니다.
그리고 출력 될때 m2 가 숫자 뒤에 나오게 할수 있을까요?