리습 수정 가능하신분 계신가요..?

안녕하세요 고수님들!
저는 리습을 이곳저곳에서 구해서 쓰고있는데 재질을 단축키로하는 리습에 불편한점이있어
수정이 가능하신분 계신가해서요

도면폼에 각 명칭 및 재질 후처리 부분에 – 으로 표시를해두었습니다
근데 현재 리습은 단축키를 누르면(ex-crc 크롬도금)으로는 잘나오는데
기존의-부분이 있어서 크롬도금- 으로 나오게됩니다..
그존에 있던 글씨는 삭제하고 제가원하는 크롬도금 만 들어오게 수정가능하신분 계신가요?
부탁드립니다..ㅠㅠ

(defun c:crc ()

(setvar “cmdecho” 0)

        (setq osp1 (getvar “osmode”)) (setvar “osmode” 0)
        (prompt “nSelect text for (xxx) type “)
        (setq txt1 (ssget) tl1 (sslength txt1) i1 0)

      (while (< i1 tl1)
        (setq txt2 (entget (ssname txt1 i1))
              kk1  (assoc 1 txt2) kk3 (cdr kk1)
       kk3  (if (= kk3 “”) “<>” kk3)
              sss  (strcat “크롬도금”kk3)
              txt2 (subst (cons 1 sss) kk1 txt2)) (entmod txt2)
        (setq i1   (+ 1 i1)) )
        (setvar “osmode” osp1)
        (setq t2 nil t1 nil) 
  )