면적구하는리습인데여 수정좀…

(defun C:Vv()
  (setq cox (getvar “cecolor”))
  (command “color” “240”)
  (graphscr)
  (setvar “cmdecho” 0)
   (setq number 0)
(while (setq dum (bpoly (getpoint “n Select pick point … : “)))
          (command “AREA” “Object” dum)
            (setq nu (getvar “AREA”))
            (if ( = number nil)
                (setq number 0)
            )
            (setq number  ( + number nu) )
            (princ (strcat “area ==>”(rtos number 2 2)))
)
            (setq tt (getpoint “n 문자어디다 쓸까? … : “))
            (setq AR (rtos (* number 1) 2 2))
(if (= cox “80”) (command “setvar” “cecolor” “bylayer”)
 (command “setvar” “cecolor” cox))
  (command “cecolor” “bylayer”)
(command “text” tt “” “” ar “” “”)
   (setq number 0)
   (setvar “cmdecho” 1)
  (setq c8 (ssget “x” ‘((62 . 240))))
 (command “erase” c8 “” “”)
)



이거 인데여~
문자 어디에 쓸까?
나온다음에 클릭하면 나오질 않습니다ㅠㅠㅠ수정해주세요