||||cs.lsp가 전부가 아닌듯 싶네요...
command문이 없는거 같습니다.이건 다른 내용이구요...ㅋㅋ
만약 sjw가 text style이라면 cs(getstring ~~~)이부분에 사용자로 하여금 입력을 받지 않으면 됩니다.

예를 들면 (setq  e (ssget '((-4 . "<or")(0 . "TEXT")(0 . "MTEXT")(-4 . "or>"))))
(setq cs "sjw") <====이렇게 하면 될거 같네요...^^
맞는지 확신은 못하겠네요...ㅋㅋ
이상 허접한 답글이었습니다....^^
============================================
>(defun c:cs (/ e cs n i );문자스타일을 한번에 바꾸기
>          (setq  e (ssget '((-4 . "<or")(0 . "TEXT")(0 . "MTEXT")(-4 . "or>")))
>                cs (getstring "\nEnter new text style :")<---이부분에 원하는 글꼴 넣읍니다. 그런데 이곳을 항상 "sjw"로 넣지 않아도 자동으로 인식하게 하고 싶어요>
>                 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))

이 게시물을...