(defun c:ASD (/ a a3 a4 b stLst sty)
(if (eq “” (setq sty (getstring “n바꿀체 <맑은 고딕>: “)))
(setq sty “맑은 고딕”)
)
(initget “Yes No”)
(if (not (setq styChk (getKword “n없는 글꼴만 바꾸시겠습니까<Yes>/No:”)))
(setq styChk “Yes”)
)
(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) ))
(if (= “No” styChk)
(setq stLst (append stLst (list (cdr (assoc 2 b)))))
(and (= “Yes” styChk)
(eq “” (cdr (assoc 3 b)));글꼴이 없으면 추가한다.
(setq stLst (append stLst (list (cdr (assoc 2 b)))))
);end and
);end if
)
);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 : stc (문자스타일 맑은 고딕로 바꾸기)”)
(princ)
안녕하세요. 지금까지 쭈욱 2007, 2014만 사용해오다가 2015를 사용하게 되었는데
기존에 쓰던 리습중에 맑은고딕으로 바꾸는 위의 리습을 사용하고 있었는데요..
asd 라고 명령어를 치면 맑은고딕으로 전부 글씨체가 변경되었었는데,
2015버젼에서는 VVC: Internal Error 라는 명령어로 입력이 되어서…
고수님들의 안목으로 한번 검토를 부탁드려보고 싶습니다.. 감사합니다.
command를 command-s 로 바꿔보세요