문자 찾아 바꾸는 리습에서 attribute 문자가 안되는데 어디를 변경해야 할까요??

아래 리습은 문자를 찾아 바꿔주는 리습입니다.

헌데 문제는 도면안에 있는 속성문자들은 바꿔 주지 못하는데…

속성문자까지도 바꿔 주려면 어느 부분을 수정해야 할까요??

또 지금은 대,소문자를 구분해서 정확히 입력해야만 명령이 수행되는데

대소문자 구분없이 내용만 같으면 인식하여 변경하도록 할 수 있을까요??

조언 부탁드립니다^^


(defun c:fr()
           (setq OldTxt (getstring T "nEnter the old text: ")
                       NewTxt (getstring T "nEnter the new text: "))

           (setq ss (ssget "x" '((0 . "TEXT,MTEXT"))))
  (vl-load-com)

           (setq i (sslength ss))

           (while (not (minusp (setq i (1- i))))

                     (setq oText (vlax-ename->vla-object (ssname ss i)))
                     (setq Txt (vlax-get-property oText 'TextString))

                     (if (vl-string-search OldTxt txt)

                                (progn
                                          (setq newChg (vl-string-subst NewTxt OldTxt txt))

                                          (vlax-put-property oText 'TextString newchg)

                                          (vlax-invoke-method oText 'Update)

                                )
                     )
           )
           (princ)
)