Lisp

모든 폰트 스타일의 폰트를 "맑은고딕"으로 변환시키는 리습

홍사훈     0건     81회

본문

;;;모든폰트스타일을 "맑은고딕"으로 변환하는 리습

(defun C:FC()

  (setq !Style (tblnext "STYLE" T))

  (while !Style

    (setq !Style (strcase (cdr (assoc 2 !Style))))

    (command "style" !Style "malgun.ttf" "0" "1" "0" "N" "N") 

    (setq !Style (tblnext "STYLE"))

  )

)

;;굴게 표현된 부분을 수정하면 다른 폰드로도 변환할수 있습니다.

;;(command "style" !Style "arial.ttf" "0" "1" "0" "N" "N")   

;;(command "style" !Style "굴림" "0" "1" "0" "N" "N")  


등록된 댓글이 없습니다.



Copyrightⓡ1996~2017, sahoon.com All Rights Reserved.