StylesToISOCPEUR.lsp

; Только для русского AutoCAD.
; Меняем шрифт сразу всем стилям на ISOCPEUR.TTF
; Копию шрифта положить в
; "%appdata%\Autodesk\AutoCAD xxxx\Rxx.x\rus\Support"
; или в "%programfiles%\Autodesk\AutoCAD 2013\fonts"
; Команда: IC

(vl-load-com)
(princ)
(princ "\n---")
(princ "\nStylesToISOCPEUR.lsp 15.04.2016 by Froz.")
(princ "\nМеняем шрифт всем стилям на ISOCPEUR.TTF: команда \"IC\".")
(princ "\n---")
(princ)
(defun C:IC ()
  (setq IC "ISOCPEUR.TTF")
    (vlax-for style
        (vla-get-textstyles
             (vla-get-activedocument (vlax-get-acad-object))
           ) ;_ end of vla-get-textstyles
      (vl-catch-all-apply
          '(lambda () (vla-put-fontfile style IC))
         ) ;_ end of VL-CATCH-ALL-APPLY
      ) ;_ end of vlax-for
    (command "ОЧИСТИТЬ" "В" "*" "Н")
    (command "ОЧИСТИТЬ" "В" "*" "Н")
    (command "_zoom" "Г")
    (command "_regenall")
) ;_ end of defun