폰트교체 리습 수정 부탁드립니다..

제 손으로 해결이 안되서 찾다보니 VBCAD에 홈피지기님이 올려주신 리습을 찾았습니다.
실행할때마다 문자스타일 이름을 입력하는것이 아닌
고정값으로 입력하고 싶은데 수정이 안되네요..
부탁드리겠습니다.. 선배님..

(defun c:cs11 (/ e cs n i)
(setq e (ssget ‘((-4 . “”)))
cs (getstring “nEnter new text style :”)
n (sslength e) i 0)
(repeat n
(H:entchg e i 7 cs)
(setq i (1+ i))
)
(princ))

;;;————- in EXT_CMD.lsp ————-

(defun h:entchg(ent_lhj i_lhj type_lhj chg_lhj
/ old_lhj new_lhj var_lhj ent_lhj i_lhj type_lhj)
(if (>= i_lhj 0) (progn
(setq var_lhj (entget (ssname ent_lhj i_lhj)))
))
(if (< i_lhj 0) (progn
(setq var_lhj (entget (car ent_lhj)))
))
(setq old_lhj (assoc type_lhj var_lhj)
new_lhj (cons type_lhj chg_lhj))
(entmod (subst new_lhj old_lhj var_lhj))
(princ))

;;출처 VBCAD