문자 변경리습수정좀부탁드립니다.

리습을 시작한지 얼마되지 않는 초보 사용자입니다.

일정한 내용을 리습으로 지정해둔다음 변경하도록 하는 리습을 찾고있습니다.

예) K(단축키) 라는 리습에 <THK.100 글라스울>이라는 문자를 지정해두었다면.

<판넬공사> 라고 쓰여진 문그를 클릭하고 K(단축키)를 치면 <판넬공사>에서  <THK.100 글라스울>로
변경되도록 했으면합니다.

* 리습을 퍼다가 만들었는데…사용하면 글자는안지워지고…<THK.100 글라스울판넬공사>로 작성이되서요.
수정좀…

(defun c:K ( / Entity EntList TextString )
  (while (setq Entity (car (entsel “n텍스트 선택: “)))
    (if (eq (cdr (assoc 0 (setq EntList (entget Entity)))) “TEXT”)
      (progn
        (entmod (setq EntList (subst (cons 1 (strcat “THK.100 글라스울” (cdr (assoc 1 EntList)))) (assoc 1 EntList) EntList)))
        )
      )
    )
  )
  (princ)
)