Zobrazit plnou verzi příspěvku: Hromadná změna faktoru šířky a rozteče textu

Koluch
22.07.2020, 07:14
Ahoj,prosím Vás, mám ve výkresu spoustu odkazů s textem, kde je faktor šířky a rozteče nastaveny na 0,7 a chtěl bych to hromadně změnit na 1,0.Lze to nějak hromadně udělat, abych nemusel editovat každý odkaz zvlášť?Děkuji, Lukáš.

Vladimír Michl
22.07.2020, 08:23
Určitě to půjde, minimálně nějakým makrem, ale o jakou entitu a hlavně o jakou vlastnost jde? (nejlépe jejím názvem v okně Vlastnosti)Nejde jen o šířkový faktor fontu nastavený ve stylu písma?

Koluch
22.07.2020, 08:34
uploads/40779/faktorsirky.pdf
Když rozkliknu textové pole a nebo Modkaz a chci editovat text, tak je tam nabídka pro FAKTOR ŠÍŘKY, ROZTEČ...A právě ten faktor šířky a rozteč bych chtěl hromadně upravit.Děkuji, L.

masa1
23.07.2020, 12:07
Zdarvím.Zkusil bych buď:1. Vytvořit nový styl písma s požadovaným nastavením a požadované texty do něj převedl.2. Vybrat texty a provést změnu ve vlastnostech. A pokud něco zapomenete, kopírovat vlastnosti.


Vladimír Michl
23.07.2020, 12:12
Aha, ale tenhle faktor šířky není vlastností MOdkazu, ale vlastností jednotlivých vybraných částí toho odstavcového textu. Buď jej tedy změňte ve stylu písma, nebo - pokud je faktor šířky měněn individuálně uvnitř MTextu - odstraňte ony formátovací řídicí znaky (viz Unformat nebo MTextCF v sekci Download). 

johny
24.07.2020, 16:28
Snad pomůže. Formátuje to jen celé texty. Testováno zběžně. Vyžaduje StripMtext v5-0c;; ACAD 2012+;; Requires StripMtext v5-0c;; Original https://www.theswamp.org/index.php?topic=31584.0 (free registration required)(defun c:MtextsWidth ( / n s i e p)    (if (and (or (load "StripMtext v5-0c")        (prompt "\nError: This tool requires 'StripMtext v5-0c' routine loaded!"))    (setq s (ssget "_:L" '((0 . "MTEXT,MULTILEADER"))))    (setq n (getreal "\nSpeficy Mtext Width Factor: "))    (StripMtext s "W")    )    (repeat (setq i (sslength s))      (setq e (ssname s (setq i (1- i)))     p (if (= "MTEXT" (cdr (assoc 0 (entget e)))) "Contents" "MText/Contents"))      (setpropertyvalue e p (strcat "{\\W" (rtos n 2 2) ";" (vl-list->string (vl-remove 123 (vl-remove 125 (vl-string->list (getpropertyvalue e p))))) "}"))))  (princ)  )(defun c:MtextsTracking ( / e s i e p)    (if (and (or (load "StripMtext v5-0c")        (prompt "\nError: This tool requires 'StripMtext v5-0c' routine loaded!"))    (setq s (ssget "_:L" '((0 . "MTEXT,MULTILEADER"))))    (setq n (getreal "\nSpecify Mtext Tracking: "))    (StripMtext s "T")    )    (repeat (setq i (sslength s))      (setq e (ssname s (setq i (1- i)))     p (if (= "MTEXT" (cdr (assoc 0 (entget e)))) "Contents" "MText/Contents"))      (setpropertyvalue e p (strcat "{\\T" (rtos n 2 2) ";" (vl-list->string (vl-remove 123 (vl-remove 125 (vl-string->list (getpropertyvalue e p))))) "}"))))  (princ)  )