<img src="/common/bigicon-diskuze.png" style="vertical-align:middle;height:80px" alt="Diskuze"/> Diskuzní fórum, poradna

Nováček

Přihlášen: 26.lis.2015
Lokalita: ČR (PA)
Používám:
Autocad, AcadCivil
Stav: Offline
Bodů: 6

Téma: Odstranění mezer
Zasláno: 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.

johny

TOP uživatel

Přihlášen: 24.led.2006
Lokalita: ČR (JM)
Používám:
C3D 2024
Stav: Offline
Bodů: 1741

Zasláno: 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

Upravil Vladimír Michl - 08.říj.2018 v 13:25

Chmatak

Nováček

Přihlášen: 26.lis.2015
Lokalita: ČR (PA)
Používám:
Autocad, AcadCivil
Stav: Offline
Bodů: 6

Zasláno: 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...

johny

TOP uživatel

Přihlášen: 24.led.2006
Lokalita: ČR (JM)
Používám:
C3D 2024
Stav: Offline
Bodů: 1741

Zasláno: 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

Upravil johny - 08.říj.2018 v 22:58

Vladimír Michl Zobrazit panel

Navštívit stránky člena

Moderátor

Arkance Systems

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 21901

Zasláno: 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 - arkance.world
(podpora viz helpdesk.arkance-systems.cz)

Chmatak