고수님들 면적리습 수정좀 부탁드립니다.

;
(defun c:vt (/ ar pyung ar1 sc ds)
     (setvar “cmdecho” 0)
     (prompt “nArea Check! >>> “)
     (setq sc (getvar “ltscale”))
     (setq ds (* sc 8.0))
     (setq pt1 (getpoint “nPick a point ->”))
     (setq pt2 (list (car pt1) (- (cadr pt1) ds)))
     (command “bpoly” pt1 “” )
     (command “area” “e” “l”)
     (setq ar (getvar “area”))
     (setq ar1 (/ ar 1000000))
     (setq pyung (/ (/ ar 1000000) 3.3058))
     (setq pyung (rtos pyung 2 2))
     (setq ar1 (rtos ar1 2 2))
     (princ “n       Area : “)
     (princ ar1)
     (princ ”    M^2″)
     (princ “n       Area : “)
     (princ Pyung)
     (princ ”    Pyung”)
     (setq disp (strcat “(” Pyung “)” ))
     (setq Z (getdist))
         (if Z
             (setq dsh Z)
)
     (setq dsh (getvar “textsize”))
         (COMMAND “TEXT”
                  (SETQ Z PT1)
                  (SETQ Z dsh)
                  (SETQ Z 0.0)
                  (SETQ Z ar1)
                  )
         (COMMAND “TEXT”
                  (SETQ Z PT2)
                  (SETQ Z dsh)
                  (SETQ Z 0.0)
                  (SETQ Z disp)
                  )
(prin1)
)
;**************************


여기서 텍스트는 나오는데 크기 설정이 안되네여… 수정좀 부탁 드릴께요 그리고 텍스트 겹치는 것도 수정 부탁드릴께요