Vytisknout stránku | Zavřít okno

Odstranění mezer

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 360, prohlížečů, DWG a DWF, Design Review, Navisworks, nadstavby, 123D, A360 a cloud Autodesk 360
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=27800
Datum vytištění: 22.dub.2026 v 03:11


Téma: Odstranění mezer
Odeslal: Chmatak
Předmět: Odstranění mezer
Datum odeslání: 08.říj.2018 v 12:05
Dobrý den,
potřeboval bych poradit, jak hromadně odstranit mezery na konci textu. Zkoušel jsem srxText, ale nedaří se mi to správně sestavit.


Odpovědi:
Odeslal: johny
Datum odeslání: 08.říj.2018 v 12:13
A google vás někdo učil použít? Zkuste to. Když se to naučíte, pak řešení najdete rychleji, než založíte nový příspěvek zde na fóru. Což vám mimochodem taky moc nejde.. vaše žádost je Návrhem, připomínkou či snad oznámením?
 
Admin: Přesunuto do správné sekce

Odeslal: Chmatak
Datum odeslání: 08.říj.2018 v 12:23
Velmi rád se nechám poučit. Ale pro Vás to vypadá jako problém, takže děkuji...

Odeslal: johny
Datum odeslání: 08.říj.2018 v 12:52
Nemáte za co. Nevím co myslíte tím "to" v první části věty, ale neumím si představit nic co by "to" mohlo být a měl by být problémem. Určitě není.

Čili předpokládám, že jste našel co do srxtext máte vyplnit a z nějakého důvodu vám to nejde. Možná byste mohl postnou výkres s nějakolika vzorky aby se na to podíval někdo proč to nejde...

Edit: Mno, určitě koluje všude možně spousta různých utilitek... ale páč na rychlo se mi žádná nepodařila najít, tak tu jedna taková...

(defun c:TextRemoveLastChar ( / ss i ed ch)
  (if (and (not (initget 128))
   (setq ch (cond ((getkword "\nCharacter to remove <space>: "))
  (" ")))
   (setq ss (ssget (list '(0 . "*TEXT") (cons 1 (strcat "*" ch)))))
   )
    (repeat (setq i (sslength ss))
      (setq ed (entget (ssname ss (setq i (1- i)))))
      (entmod (subst (cons 1 (vl-string-right-trim ch (cdr (assoc 1 ed))))
     (assoc 1 ed)
     ed))))
  (princ)
)

text odstranit poslední mezeru znak
text remove last character space underscore

Odeslal: Vladimír Michl
Datum odeslání: 08.říj.2018 v 13:31
V srxText můžete použít např. tuto konstrukci reg.výrazu:
 
Příkaz: SRXTEXT2
Search texts using [Regular expression/Exact string/Substring] <Substring>: r
Enter the searched pattern: ^(.+)( *)$
Enter the replace pattern ($1$2 for regex captures): $1
Search only in [Layer/All] <All>:
Search only [Selected/All] <All>:


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

Odeslal: Chmatak
Datum odeslání: 08.říj.2018 v 14:46
Děkuji mnohokrát za radu. Smile


Vytisknout stránku | Zavřít okno