Vytisknout stránku | Zavřít okno

Hromadná změna faktoru šířky a rozteče textu

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: AutoCAD
Popis fóra: Otázky kolem aplikací AutoCAD a AutoCAD LT, AutoCAD web, prohlížečů, DWG a DXF, Design Review, Navisworks, nadstavby, Drive a cloud Autodesk
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=30799
Datum vytištění: 04.čer.2026 v 23:29


Téma: Hromadná změna faktoru šířky a rozteče textu
Odeslal: Koluch
Předmět: Hromadná změna faktoru šířky a rozteče textu
Datum odeslání: 22.čvc.2020 v 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áš.


Odpovědi:
Odeslal: Vladimír Michl
Datum odeslání: 22.čvc.2020 v 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?


-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz emea.support.arkance.world)

Odeslal: Koluch
Datum odeslání: 22.čvc.2020 v 08:34
uploads/40779/faktorsirky.pdf" rel="nofollow - 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.

Odeslal: masa1
Datum odeslání: 23.čvc.2020 v 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.


-------------
Mašek

Odeslal: Vladimír Michl
Datum odeslání: 23.čvc.2020 v 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). 

-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz emea.support.arkance.world)

Odeslal: johny
Datum odeslání: 24.čvc.2020 v 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" rel="nofollow - 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)
  )


Vytisknout stránku | Zavřít okno