||||(H:entchg e i 7 cs);문자바꾸기 가져오기
(H:entchg e i 7 "sjw");바꾸니까 잘되는 군요>
감사합니다.

sjw.lsp는 따로 있고요. 이곳에서 textstyle를 sjw로 만들어 사용 하고 있읍니다.
용도는 도면을 open하다보면 원하는 글꼴이 아니거나, 깨지는 경우가 있어서 다른분들의 자료를 가지고 약간 수정하고 있읍니다.

>답변 감사합니다.
>그런데,
>예를 들면 (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))
>>
>