리습 수정 부탁 드립니다… (2103 부터 먹히지가 않네요…

2013 업그레이드 이후

리습이 먹히지가 않네요오 ㅠㅠㅠ

수정 부탁 드립니다.. 문자열 바꾸는 리습 입니다..

일반 영어나 숫자등은 변경이 되는데

한글만 치면 에러나는데요.. 케드 자체 에러인지.. 모르겠습니다.

;*************************************************************************
;                             CHGTEXT.LSP
(defun C:S-TEXT (/ p l n e os as ns st s nsl osl sl si chf chm olderr)
   (setq olderr  *error*             ; Initialize variables
  *error* chgterr
  chm     0)
   (setq p (ssget))                  ; Select objects
   (if p (progn                      ; If any objects selected
      (while (= 0 (setq osl (strlen (setq os (getstring t “nOld string: “)))))
     (princ “Null input invalid”)
      )
      (setq nsl (strlen (setq ns (getstring t “nNew string: “))))
      (setq l 0 n (sslength p))
      (while (< l n)                 ; For each selected object…
  (if (= “TEXT”               ; Look for TEXT entity type (group 0)
  (cdr (assoc 0 (setq e (entget (ssname p l))))))
     (progn
        (setq chf nil si 1)
        (setq s (cdr (setq as (assoc 1 e))))
        (while (= osl (setq sl (strlen
        (setq st (substr s si osl)))))
    (if (= st os)
        (progn
   (setq s (strcat (substr s 1 (1- si)) ns
     (substr s (+ si osl))))
   (setq chf t) ; Found old string
   (setq si (+ si nsl))
        )
        (setq si (1+ si))
    )
        )
        (if chf (progn        ; Substitute new string for old
    (setq e (subst (cons 1 s) as e))
    (entmod e)         ; Modify the TEXT entity
    (setq chm (1+ chm))
        ))
     )
  )
  (setq l (1+ l))
      )
   ))
   (princ “Changed “)                ; Print total lines changed
   (princ chm)
   (princ ” text lines.”)
   (terpri)
   (setq *error* olderr)             ; Restore old *error* handler
   (princ)
)
; **********************************************************************