muc-izhnet

StylesToISOCPEUR.lsp

Sep 15th, 2016
765
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ; Только для русского AutoCAD.
  2. ; Меняем шрифт сразу всем стилям на ISOCPEUR.TTF
  3. ; Копию шрифта положить в
  4. ; "%appdata%\Autodesk\AutoCAD xxxx\Rxx.x\rus\Support"
  5. ; или в "%programfiles%\Autodesk\AutoCAD 2013\fonts"
  6. ; Команда: IC
  7.  
  8. (vl-load-com)
  9. (princ)
  10. (princ "\n---")
  11. (princ "\nStylesToISOCPEUR.lsp 15.04.2016 by Froz.")
  12. (princ "\nМеняем шрифт всем стилям на ISOCPEUR.TTF: команда \"IC\".")
  13. (princ "\n---")
  14. (princ)
  15. (defun C:IC ()
  16.   (setq IC "ISOCPEUR.TTF")
  17.     (vlax-for style
  18.         (vla-get-textstyles
  19.              (vla-get-activedocument (vlax-get-acad-object))
  20.            ) ;_ end of vla-get-textstyles
  21.       (vl-catch-all-apply
  22.           '(lambda () (vla-put-fontfile style IC))
  23.          ) ;_ end of VL-CATCH-ALL-APPLY
  24.       ) ;_ end of vlax-for
  25.     (command "ОЧИСТИТЬ" "В" "*" "Н")
  26.     (command "ОЧИСТИТЬ" "В" "*" "Н")
  27.     (command "_zoom" "Г")
  28.     (command "_regenall")
  29. ) ;_ end of defun
RAW Paste Data