||||(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))
이 게시물을...