면적 리습 사용시 invalid text style 뜨며 되지 않음

드림을 설치하고나서 잡다한 문제가 많이 생기네요

지금은 삭제했으나 완전히 삭제되지도 않은 것 같습니다.

가장 큰 걸로 면적 리습에 문제가 생겼습니다.

명령어 입력후 닫힌 폴리라인 선택후 빈화면에 찍으면 면적 텍스트가 나오는데

invalid surrent text style 과 Cannot fild text style "BC" 라는 메시지가 뜨면서 안됩니다.

이게 그냥 안되면 포기하겠는데 파일을 열고 작업을 한창하다가 안되는 증상을 보이다가

이제는 파일 열고 한번 하면 되고 그 이후로는 위와 같은 메시지가 뜨면서 안됩니다.

하지만 길이합을 구하는 다른 리습 (텍스트 찍히는 방식) 은 정상적으로 되는데요 무슨 문제 일까요?




제가 사용하는 면적 리습은 아래와 같습니다.




(defun C:SP()
       (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 4)))
       (PROMPT "      AREA (PY) = ")(prin1 (setq ar3 (RTOS (/ ar1 3305800.0) 2 4)))
       (PROMPT "      CLICK TEXT POINT…….")
       (princ)
       (SETQ PO (GETPOINT))
       (COMMAND "STYLE" "STANDARD" "SIMPLEX" "" "" "" "" "" "")(PRIN1)
       (SETQ TESI (* 2.5 (GETVAR "LTSCALE")))
       (SETQ ART1 (STRCAT AR2 " M2″))
       (SETQ ART2 (STRCAT AR3 " PY"))
       (COMMAND "TEXT" "BC" PO tesi "" ART1)(PRIN1)
       (COMMAND "TEXT" "TC" PO TESI "" ART2)(PRIN1)
)