(defun C:CHANGESTYLE (/ entities len count ent ent_data ent_name new_style_name)

; 문자 스타일을 만들어 놓았다면  "Standard" 문자 정의 필요없고
; 아래의 new_style_name에 적어주면 됩니다.
(command "STYLE" "Standard" "Romantic" "" "" "" "" "")
(setq entities (ssget "X" '((0 . "*TEXT")))
      len      (sslength entities)
      count 0
);setq 
 
(while (< count len)
       (setq ent      (ssname entities count) 
             ent_data (entget ent)
             ent_name (cdr (assoc 7 ent_data))
       );setq
;여기의  "Standard" 대신 원하는 문자 스타일을 넣어주세요.
(setq new_style_name (cons 7 "Standard"))
(setq ent_data (subst new_style_name (assoc 7 ent_data) ent_data))
(entmod ent_data)
 
(setq count (+ count 1))
);while
 
;;;runs same routine again, picking up Mtext this time.
 
);defun