![Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk
- od firmy ARKANCE [www.cadforum.cz]](../common/arkance_186.png "Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk
- od firmy ARKANCE [www.cadforum.cz]")
CAD FÓRUM - TIPY A TRIKY | UTILITY | DISKUZE | BLOKY | PODPORA | POMOC A RADY
Již 10.000+ CAD tipů.
Přes 118.000 registrovaných u nás, celkem 1.092.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků.
Vyzkoušejte nový přesný Inženýrský kalkulátor.
Kompletní příkazy AutoCADu a proměnné AutoCADu 2026.
also in ENGLISH
CAD tip # 12968:
Otázka
A
Chcete-li hromadně nahradit použitý font (soubor písma) ve všech stylech písma v DWG výkresu AutoCADu, použijte následující LISP funkci - zkopírujte ji na příkazový řádek AutoCADu nebo ji uložte do .LSP souboru a ten načtěte pomocí APLČTI - a poté zadejte příkaz REFONT.
Upravte seznam nahrazovaných písem a název nového fontu - všimněte si odlišného formátu pro písma .SHX a .TTF.
Chcete-li provést změnu hromadně ve více výkresech, použijte např. ScriptPro.
;Replace fonts in text styles
(vl-load-com)
(defun C:ReFont (/ adoc tstyle)
(vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
(vlax-for tstyle (vla-get-textstyles adoc)
(if (wcmatch (vla-get-fontfile tstyle) "complex.shx,monotxt.shx,txt*.shx") ; any of these, replace with:
(vla-put-fontfile tstyle "simplex.shx") ; new SHX case
;(vla-put-fontfile tstyle (strcat (getenv "windir") "\\Fonts\\Arial.ttf")) ; new TTF case
)
)
(vla-endundomark adoc)
(vla-regen adoc acallviewports)
(princ)
)
AutoCAD
platí pro: AutoCAD ·
CADfórum
Tipy, triky, podpora, pomoc a rady pro AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion, Forma, Vault, PowerMill a další Autodesk aplikace (community support firmy ARKANCE). Viz O portálu.
Copyright © 2025 | Web reklama na tomto serveru | Ochrana soukromí, podmínky
