면적 리습 수정 조언좀해주세요.

;;************피크포인트 면적구해서 쓰기*************
(defun c:qq(/ p_area area_last)
(setvar “cmdecho” 1)
 (setq p_area (getpoint”n Pick Point.. :”))
 (setq p2 (polar p_area (* pi 1.5) (- 1000)))
 (command “erase” area_last “”)
 (command “bpoly” p_area “”)
 (setq area_last (entlast))
 (command “area” “o” area_last)
 (setq a_get_ar (getvar “area”))
 (command “bpoly” p_area “”)
 (setq p_area3 (/ a_get_ar 1000000))
 (setq p_area4 (rtos p_area3 2 2))
 (setq p_area5 (* p_area3 0.3025))
 (setq p_area6 (rtos p_area5 2 2))
 (setq bm (strcat p_area4 ” ㎡” ))
 (setq bp (strcat p_area6 ” 평” ))
;맨뒤의 3가 소숫점 조정
 (command “text” p_area “500” “0” bm)
 (command “text” p2 “500” “0” bp)
;중간의 600이 글씨크기 조정하는 겁니다..
 (princ)
)

이렇게 사용하고 있는데요.
평 을 밑으로 나오게 하고 면적(제곱미터를 위쪽으로 하고 싶은데..)
초보라서 잘 안되내요…ㅠ