클릭으로 글자맞추는 리습좀 봐주세요 !

왜 안설치가 안될까요 ㅠㅠ2010 64비트 사용중입니다
목차에도 로드했고 가방에도 넣었는데 tc2 명령어가 듣질않네요

;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
;◇◆ 처음 선택한 문자열로 교체  ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
;───────────────────────────────────────
 (defun c:Tc2()
 (graphscr)
 (setvar “cmdecho” 0)
 (setq te (entsel))
 (setq te1 (cadr te)
       te2 (car te)
       te3 (entget te2)
       te4 (cdr (assoc 1 te3)))
 (prompt “Now, base text value is < “)
 (princ te4)
 (prompt ” >”)(terpri)
 (setq te5 (ssget))
 (setq te6 (sslength te5)
       te7 0)
 (repeat te6
  (setq te8 (entget (ssname te5 te7))
        te7 (+ 1 te7)
        te9 (assoc 1 te8)
        te10 (cons (car te9) te4)
        te11 (subst te10 te9 te8)
  );setq close
  (entmod te11)
 );;repeat close
 (princ)
);;defun close