안녕하세요
리습 입문 생초짜입니다

구글링 하던중 몇가지 필요한 리습을 구햇는데요
쫌더 편한작업을 해보고자 가지고 있는 리습에 구문(?)을 추가해보고싶은데 도통 어려워서ㅠ검색도 안되고해서 요청합니다

—–

요청 내용은 이렇습니다

1. 신속선택으로 // 객체 유형 – 여러줄문자 // 연산자 – 모두 선택
2. 선택된 여러줄 문자들만 EXPLODE
3. 현재 가지고 있는 리습(문자로 되있는 글자서체를 모두 ‘맑은고딕’서체로 변경

위 1번과 2번 매번 도면 열때마다 수작업으로 해주고 있어서 매우 번거로워 해당 리습을 검색해보는중인데
검색이 잘안되네요ㅠ 도와주세요ㅠ 가지고있는 리습 첨부합니다

—- 이하 리습 내용
(defun c:FC (/ a a3 a4 b stLst sty)

   (setq sty “맑은 고딕”)
;;원하는 글자로 바꾸시면 됩니다.
;; – romans,ghs
;; – hy울릉도M
;; – hy헤드라인M
;; – 굴림체
;; – 굴림
;; – 돋움체
;; – 돋움체

 
  (setq b (tblnext “style” t))
  (while b
    (if ;(and (/= (strcase “Standard”) (strcase (cdr (assoc 2 b))))
      (not (vl-string-search “|” (strcase (cdr (assoc 2 b)))))
      😉
      (progn
 ;(entmod (subst a3 (assoc 3 b) (subst a4 (assoc 4 b) b) ))
   (setq stLst (append stLst (list (cdr (assoc 2 b)))))
 )
      );end if
    (setq b (tblnext “style”))
    );end while
  (command “undo” “be”)
  (mapcar ‘(lambda (x) (command “style” x sty “” “” “” “” “”)) stlst)
  (command “undo” “e”)
  (princ)
  )
(princ “ncommand : sstc (문자스타일 바꾸기)”)
(princ)


——— 이상입니다.