면적 리습 글귀가 중복안되게 수정부탁드립니다.

(defun c:zzz(/ cmd a pyng sm)
 (setq cmd(getvar”cmdecho”))
 (setvar”cmdecho”0)
 (setq sc(getvar”ltscale”))
 (setq ts(* sc 5))
 (princ”Select polyline:”)
 (command”area””e”pause)
 (setq area(getvar”area”))
 (setq sm(rtos(/ area 1.0e+06) 2 4))
 (setq py(rtos(* area 0.0000003025) 2 4))
 (princ”n      Area : “)
 (princ sm)
 (princ” sq m”)
 (princ”   -> “)
 (princ py)
 (princ” pyong”)
 (setq pt(getpoint”nn      Pick Text Point :”))(terpri)
 (setq ar1(strcat “”sm” m2″))
        (setq ar2(strcat “”py” py”))
 (command”text””s””standard””mc”pt ts”0″ar1)
        (command”text””s””standard””mc”pt ts”0″ar2)
 (setvar”cmdecho”cmd)
 (prin1))
(princ)

면적만 나오던 수치를 평까지 나오게 수정은 했는데 한포인트에 면적과 평이 중복되어 표시가 되어
클릭후 이동해야하는 번거로움이 있습니다.
고수님께 정중히 부탁드립니다.