면적산출 리습인데 수정 가능할까요?

현재 리습을 사용하면

M2 : 00.00
Py : 00.00
길이합 : 00

이렇게 나오는데, 평수 나오는걸 없애고

00.00m2
둘레 0.0m

와 같이 나오게 수정가능할까요?
잘 부탁드리겠습니다.
———————————————————————

;;AREA

(defun c:py (/ ent_p ar_1 ar_2 py_1 py_2)
  (graphscr)
  (setvar “cmdecho” 0)
  (command “units” “” “8” “” “” “” “”)
  (setq ent_p (entsel “n Select Pline :”))
  (command “area” “e” ent_p)
  (setq ar_1 (/ (getvar “area” ) 1.0e+06))
  (setq py_x (/ (getvar “PERIMETER”) 1000))
  (setq py_xx (rtos py_x 2 2))
  (setq ar_2 (rtos ar_1 2 2))
  (setq py_1 (/ ar_1 0.18))
  (setq py_2 (rtos py_1 2 2))
  (command “units” “” “0” “” “” “” “”)
  (setvar “cmdecho” 1)
  (prompt “nArea (M2):”)(princ ar_2)
  (prompt “nArea (Py):”)(princ py_2)
  (prompt “n길이합 (M):”)(princ py_xx)
  (if (not (setq t_h (getreal (strcat “n현재 TextSize : <” (rtos (getvar “textsize”) 2 0) “> 입니다. 원하는 Text 크기를 입력하세요 : “))))
  (setq t_h (getvar “textsize”))
  (setvar “textsize” t_h)
  )
  (setq t_p (getpoint “nText 삽입 Point:”))
  ;(setq ttptt (getvar “textsize”)) 
  ;(setvar “textsize” ttptt)   
  (command “text” t_p t_h “” (strcat “M2 : ” ar_2))
  (command “text”  “” (strcat “Py : ” py_2))   
  (command “text” “” (strcat “길이합 : ” py_xx)) 
  (princ)
)