면적이text로 나오는 리습수정 부탁드립니다 ㅜㅜ

리습은 무지한지라..있는것만 사용하고 있는데요… 도움을 받고자하여 글올립니다.

제가 얻어서 사용하던 리습 입니다
===================
(defun C:ART()
       (setvar “cmdecho” 0)
       (SSGET)
       (command “AREA” “E” (SSGET “P”))
       (setq ar (getvar “area”))
       (SETQ AR1 (/ AR 1.0))
       (prompt “AREA (M2) =”)(prin1 (SETQ AR2 (RTOS (/ AR1 1000000.0) 2 1)))
       (PROMPT ”      AREA (PY) = “)(prin1 (setq ar3 (RTOS (/ ar1 3305800.0) 2 1)))
       (PROMPT ”      CLICK TEXT POINT…….”)
       (princ)
       (SETQ PO (GETPOINT))
       (COMMAND “STYLE” “STANDARD” “HY견고딕” “” “” “” “” “” “”)(PRIN1)
       (SETQ TESI (* 1000 (GETVAR “LTSCALE”)))
       (SETQ ART1 (STRCAT AR2 ” M2″))
       (COMMAND “TEXT” “BC” PO tesi “” ART1)(PRIN1)
       (COMMAND “TEXT” “TC” PO TESI “” ART2)(PRIN1)
)

=================================================
이거로 폴리라인 선택후 좀 찍으면 ” 00.0 M2″  이라고 뜨는데요
                                                                면적

제가 원하는건 ” 실면적_00.0 M2″  입니다.
멀 어떻게 수정해야 하는지 아시는분 계시면 도움요청드립니다