고수님들 해결해주세요. ㅜ 면적 Lisp 둘째자리를 넷째자리로 수정 좀 가르쳐주세요.

안녕하세요. 제가 쓰는 면적리습인데요.
지금 2째자리 밖에 안나오는데요. 메모장을 열어서 수정을 해도 안되네요.
어디부분을 수정해야되는지 가르쳐 주세요.

그리고 혹시나 면적관련 리습이 참 많던데요.
제가 쓰고 있는 현재 리습과 비슷한 괜찮은 리습있으시면 추천도 좀 부탁드리겠습니다.

밑에 리습 메모장을 올려보겠습니다.

(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 3)))
       (PROMPT ”      AREA (PY) = “)(prin1 (setq ar3 (RTOS (/ ar1 3305800.0) 2 3)))
       (PROMPT ”      CLICK TEXT POINT…….”)
       (princ)
       (SETQ PO (GETPOINT))
       (COMMAND “STYLE” “STANDARD” “SIMPLEX” “” “” “” “” “” “”)(PRIN1)
       (SETQ TESI (* 2.5 (GETVAR “LTSCALE”)))
       (SETQ ART1 (STRCAT AR2 ” M2″))
       (SETQ ART2 (STRCAT AR3 ” PY”))
       (COMMAND “TEXT” “BC” PO tesi “” ART1)(PRIN1)
       (COMMAND “TEXT” “TC” PO TESI “” ART2)(PRIN1)
)