여기 고수님이 올려주신 면적구하는 리습 apy 실행시켰을때
면적과 평이 list에서 본거와 틀리게 나오는데 단위가 틀린건지 뭔지 모르겠네요?

지금 제가 면적구하는 리습으로 아래것을 사용하고 있는데 면적을 한면적 밖에 구할수가 없어 많이 불편하데 단면이 여러개인 경우 각각의 단면을 클릭하면 면적이 합계가 되어 나오게끔 고수님들 수정 좀 꼭 부탁합니다.

(defun c:as (/ p_area area_last)
(push-env)
(setvar “cmdecho” 1)
(setvar “osmode” 0)
(setq p_area (getpoint “n 면적을 구할 곳에 Pick Point.. :”))
(command “bpoly” p_area “”)
(setq area_last (entlast))
(command “area” “o” area_last)
(setq aa (rtos (/ (/ (getvar “area”) 10.0) 10.0) 2 1))
(setq tt (strcat ” ” aa)))
(setq base (getpoint “n 면적을 입력할 포인트를 입력하시오. “))
(command “text” “j” “r” base “2.5” “” tt)
(command “erase” area_last “”)
(pop-env)
(princ)
)

고수님들 면적구하는 리습에서
여기서 원하는 면적을 클릭하는 만큼 면적이 합산되어 나오게끔 하려고 하는데
도저히 혼자서는 답이 나오지 않는데 도움좀 바랍니다.

(defun c:as(/ p_area area_last)
(setvar "cmdecho" 0)
(setq p_area (getpoint"n 면적을 구할 곳에 Pick Point.. :"))
(command "bpoly" p_area "")
(setq area_last (entlast))
(command "area" "o" area_last)
(setq aa (rtos (/ (/ (getvar "area") 10.0)10.0) 2 1))
(setq tt (strcat " " aa))
(setq base (getpoint "n 면적을 입력할 포인트를 입력하시오. "))
(command "text" "j" "r" base "2.5" "" tt)
(command "erase" area_last "")
(princ)
)