||||답변 감사합니다.
그런데,
예를 들면 (setq  e (ssget '((-4 . "<or")(0 . "TEXT")(0 . "MTEXT")(-4 . "or>"))))
(setq cs "sjw") <====여기까지는 괜찮은것 같읍니다.

    n (sslength e) i 0)<====여기에서 error이 납니다. 윗부분의 ")"를 하나 삭제해도 안되는군요




>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))
>