리습 멈춤현상 문제예요(면적찍을때)

안녕하세요. 계속 잘쓰던 리습인데 갑자기 멈춤현상이 있어요.
면적리습인데 텍스트 표시하려 위치 찍으면 약 12초 정도 멈췄다가 나타납니다.
뭐가 문제인지 봐주세요.. 퍼지도 하고 레이어필터 해도 똑같네요….
(defun C:RT()
       (setvar “cmdecho” 0)
       (SSGET)
       (command “AREA” “E” (SSGET “P”))
       (setq ar (getvar “area”))
       (SETQ AR1 (/ AR 1.0))
       (prompt ”      AREA (M2) =”)(prin1 (SETQ AR2 (RTOS (/ AR1 1000000.0) 2 3)))
       (PROMPT ”      AREA (PY) =”)(prin1 (SETQ AR3 (RTOS (/ ar1 3305800.0) 2 3)))
       (PROMPT ”      CLICK TEXT POINT…….”)
       (princ)
       (SETQ PO (GETPOINT))
       (COMMAND “STYLE” “T3” “돋움” “” “” “” “” “” “”)(PRIN1)
       (SETQ TESI (* 4 (GETVAR “LTSCALE”)))
       (SETQ ART1 (STRCAT AR2 ” ㎡”))
       (SETQ ART2 (STRCAT AR3 ” 평”))
       (COMMAND “TEXT” “BR” PO tesi “” ART1)(PRIN1)
       (COMMAND “TEXT” “TR” PO TESI “” ART2)(PRIN1)
)