길이, 면적 구하는 리습인데 면적을 구하면 캐드가 멈춰요

win10 64bit 에서 CAD 2015를 사용하고 있습니다.
이 리습은 면적이나 길이를 구할때 구한 면적, 길이에 대한 폴리선이 같이 생기는 리습입니다.
전에 win7 64bit CAD 2010에서는 잘 사용했었는데
이번에 CAD 2015로 바꾸면서
면적을 구할때 CAD가 멈춰버리네요
길이를 구할땐 멈추지 않고 잘됩니다.

무엇이 문제일까요??

2015 상큼메론90
이라고 검색해서 찾아보고 있습니다.
2015에서는 안되는게 많은것 같네요 ㅜㅜ
정품인데.. 흑흑…
우선 더 열심히 찾아보겠습니다.

혹시 도움을 주실 수 있으신 분은 도움 부탁드려요

-수정-
검색해보면서 리습을 수정해보고 있습니다.
우선
bpoly 가 안된다고 하는것 같아

(defun aa_ab ()
 (graphscr)
 (setvar “osmode” 0)
        (setq d 0 dd 0)
        (while (setq p1 (getpoint “nPick point area : “))
         (bpoly p1)
         (setq aa (entlast))
         (command “area” “e” aa )
         (setq are (getvar “area”))
         (if are                        ;2
                (progn
                (setq ars (rtos are 2 2))
                (princ “n Area = “)
                (princ are) (terpri)
                 (setq dd (+ dd are))
          );progn
         );if
                (princ “n Add ? < No -> Enter > “)
          )
   (princ “n Area = “)(princ (rtos dd 2 2))(princ ” m^2″)
   (SETQ ARS (RTOS DD 2 2))
        (PUTTEXT)
)
에서

 (setq d 0 dd 0)
        (while (setq p1 (getpoint “nPick point area : “))
         (command-s “_.Boundary” p1)
         (setq aa (entlast))
         (command-s “area” “e” aa )
         (setq are (getvar “area”))
         (if are                        ;2
                (progn
                (setq ars (rtos are 2 2))
                (princ “n Area = “)
                (princ are) (terpri)
                 (setq dd (+ dd are))
          );progn
         );if
                (princ “n Add ? < No -> Enter > “)
          )
   (princ “n Area = “)(princ (rtos dd 2 2))(princ ” m^2″)
   (SETQ ARS (RTOS DD 2 2))
        (PUTTEXT)
)
로 수정했더니 구하고자 하는 면적에 폴리라인은 생겼고 멈추지 않았습니다.
그런데.. 원래 찍은 면적을 캐드에 텍스트로 써줬는데 그부분이 안되네요..