ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
Přes 123.000 registrovaných u nás, celkem 1.127.000 registrovaných (CZ+EN). Tipy pro AutoCAD 2027, pro Inventor 2027 a pro Revit 2027. Nový Kalkulátor nosníků, Spirograf generátor a Regresní křivky v sekci Převodníky. Kompletní příkazy a proměnné AutoCADu 2027.
Konference CADfórum 2026 - automatizace navrhování
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

?
CAD diskuze, rady, výměna zkušeností

CAD Fórum - Homepage Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion, 3ds Max, Vault a s dalšími CAD/BIM/PDM aplikacemi. Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.
Fórum nenahrazuje technický support firmy ARKANCE (CAD Studio) - přímá podpora pro zákazníky funguje na emea.support.arkance.world
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

hromadné vložení tečky do textu
 Odpovědět Odpovědět archiv
Autor
  Najít Téma Najít Téma  Možnosti tématu Možnosti tématu
xJanik Zobrazit panel
Diskutér
Diskutér

Přihlášen: 10.říj.2008
Lokalita: ČR (PA)
Používám:
AutoCad 2024, Civil 3D 2023
Stav: Offline
Bodů: 89
 Možnosti příspěvku Možnosti příspěvku   Poděkování (0) Poděkování0   Citace xJanik Citace  OdpovědětOdpověď Přímý odkaz na tuto zprávu Téma: hromadné vložení tečky do textu
    Zasláno: 09.čer.2025 v 09:58
Dobrý den, jde nějak hromadně vložit do textu tečka? Mám čísla o 5ti místech a tečku bych potřebovala dát na čtvrtou pozici. Zkoušela jsem v lisp numintext dát Multiply 0.001, ale nedaří se mi, pouze mi to číslo ořízne. Lze to nějak jinak?
Děkuji
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
ARKANCE

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 22203
 Možnosti příspěvku Možnosti příspěvku   Poděkování (0) Poděkování0   Citace Vladimír Michl Citace  OdpovědětOdpověď Přímý odkaz na tuto zprávu Zasláno: 09.čer.2025 v 14:15
Asi nejjednodušší je to vzít řetězcově - takže např. pomocí utility srxText - příkaz SRXTEXT2, regulární výraz:

hledat: (.*\d\d\d\d)(\d.*)
nahradit: $1.$2
Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz emea.support.arkance.world)
Zpět nahoru
Petr75 Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 16.úno.2007
Lokalita: ČR (JM)
Používám:
AutoCAD LT 2026, 2027, Revit
Stav: Offline
Bodů: 473
 Možnosti příspěvku Možnosti příspěvku   Poděkování (0) Poděkování0   Citace Petr75 Citace  OdpovědětOdpověď Přímý odkaz na tuto zprávu Zasláno: 09.čer.2025 v 14:17
Dobrý den,
pokud jsou daná čísla jako text "XXXXX" a chcete vytvořit text "X.XXXX", tak můžete zkusit Lisp viz. níže. Předpokládám, že čtvrtou pozici jste myslel zprava. V dotazu tedy používáte násobení číslem 0.001, cože by tedy byla tečka na třetím místě zleva.

;;▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
(defun c:Num_1_4 (  / ss Num j en enList errorTrapNum)
;;↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
(defun errorTrapNum (errmsg)
(if (not (member errmsg '("console break" "Function Cancelled")))
(princ (strcat "\nError: " errmsg "\n"))
)                
(and (= (logand (getvar 'UNDOCTL) 8))
(command-s "_.undo" "_e")
)
(command-s "_.undo" "")
(setvar 'CMDECHO 1)
(setvar 'NOMUTT 0)
(setvar 'CLIPROMPTUPDATE 1)
(setq *error* temperr)
   (princ)
) ;defun errorTrapNum
;;↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑

;;=========================
(and (= (logand (getvar 'UNDOCTL) 8))
(command-s "_.undo" "_e")
)
(setvar 'CMDECHO 0)
(command-s "_.undo" "_be")
(princ)
(setq temperr *error*)
(setq *error* errorTrapKM1)

(setq ss (ssget "_X" '((0 . "TEXT") (1 . "#####"))))
(if ss (progn
(setq j 0)
(repeat (sslength ss)
(setq en (ssname ss j))
(setq enList (entget en))
(setq num (cdr (assoc 1 enList)))
(setq num (strcat (substr num 1 1) "." (substr num 2 4)))
(entmod (subst (cons 1 num) (assoc 1 enList) enList))
(setq j (1+ j))
) ;repeat
)) ;if

(command-s "_.regen")
(command-s "_.undo" "_e")
(setvar 'NOMUTT 0)
(setvar 'CLIPROMPTUPDATE 1)
(setvar 'CMDECHO 1)
(setq *error* temperr)
(princ)
) ;defun _Num_1_4
;;▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
(princ)
Zpět nahoru
xJanik Zobrazit panel
Diskutér
Diskutér

Přihlášen: 10.říj.2008
Lokalita: ČR (PA)
Používám:
AutoCad 2024, Civil 3D 2023
Stav: Offline
Bodů: 89
 Možnosti příspěvku Možnosti příspěvku   Poděkování (0) Poděkování0   Citace xJanik Citace  OdpovědětOdpověď Přímý odkaz na tuto zprávu Zasláno: 10.čer.2025 v 08:33
Děkuji, ale nějak mi to nejde zprovoznit. Nenačte se, hlásí chybu: nedefinovaná funkce - command-s. Zkoušela jsem přepsat command-s za jen command, ale také nic. Kódování jsem zadala ANSI
I tak děkuji
Zpět nahoru
Petr75 Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 16.úno.2007
Lokalita: ČR (JM)
Používám:
AutoCAD LT 2026, 2027, Revit
Stav: Offline
Bodů: 473
 Možnosti příspěvku Možnosti příspěvku   Poděkování (0) Poděkování0   Citace Petr75 Citace  OdpovědětOdpověď Přímý odkaz na tuto zprávu Zasláno: 10.čer.2025 v 08:55
Dobrý den,
předpokládám, že jste soubor uložila s příponou *.lsp". Pro jistotou přikládám soubor. Soubor načíst příkazem APLČTI a pak spustit příkaz NUM_1_4

Připojené souborylspuploads/2271/Num_1_4.lsp
Zpět nahoru
Jan Palička Zobrazit panel
Diskutér
Diskutér

Přihlášen: 08.led.2025
Lokalita: ČR (SČ)
Používám:
Civil
Stav: Offline
Bodů: 10
 Možnosti příspěvku Možnosti příspěvku   Poděkování (0) Poděkování0   Citace Jan Palička Citace  OdpovědětOdpověď Přímý odkaz na tuto zprávu Zasláno: 10.čer.2025 v 10:09
Zkouším to v Civilu a funguje mi SRXTEXT2 s regulárním nahrazením

(\d)(\d{4})
$1.$2


Připojené náhledyPřihlaste se pro zobrazení plné verze - 119777/srx.jpg
Zpět nahoru
xJanik Zobrazit panel
Diskutér
Diskutér

Přihlášen: 10.říj.2008
Lokalita: ČR (PA)
Používám:
AutoCad 2024, Civil 3D 2023
Stav: Offline
Bodů: 89
 Možnosti příspěvku Možnosti příspěvku   Poděkování (0) Poděkování0   Citace xJanik Citace  OdpovědětOdpověď Přímý odkaz na tuto zprávu Zasláno: 11.čer.2025 v 10:41
Děkuji všem, nakonec vyřešeno s Copilotem

(defun c:ZMEN_CISLA ()
(vl-load-com)
(setq ss (ssget)) ; Výběr všech objektů
(if ss
    (progn
      (setq i 0)
      (while (< i (sslength ss))
        (setq ent (ssname ss i))
        (setq ent-data (entget ent))
        (setq txt (cdr (assoc 1 ent-data))) ; Načtení textové hodnoty
       
        (if (and txt (>= (strlen txt) 3)) ; Musí být alespoň 3 znaky dlouhý
          (progn
            (setq nova-hodnota (strcat (substr txt 1 2) "." (substr txt 3))) ; Vložení tečky

            ;; Změna textové hodnoty
            (setq ent-data (subst (cons 1 nova-hodnota) (assoc 1 ent-data) ent-data))
            (entmod ent-data)
            (entupd ent)
            (princ (strcat "\nZměněno: " txt " -> " nova-hodnota))
          )
          (princ (strcat "\nPřeskakuji: " txt " (méně než 3 znaky)"))
        )

        (setq i (1+ i))
      )
      (command "REGEN") ; Aktualizace AutoCADu
      (princ "\nHotovo.")
    )
    (princ "\nNebyl vybrán žádný objekt.")
)
(princ)
)
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 4877:VIPHromadné přenastavení jednotek ve všech DWG výkresech (nesprávné měřítko vkládání).
Tip 13998:VIPSnadné hromadné vyhledání a nahrazení textu ve výkresech Inventoru - iLogic (viz nový tip)
Tip 3509:Snadné vložení textu do výkresu AutoCADu.
Tip 7838:Problém s OLE objekty v dokumentu Inventoru.
Tip 5330:VIPSnadné vložení zformátovaného textu v azbuce do výkresu AutoCADu
Tip 6818:Texty a symboly jsou v PDF zobrazeny jen jako tečky.


 Odpovědět Odpovědět

Přejít na fórum Oprávnění fóra Zobrazit panel



Stránka byla vygenerována za 0,523 sekund.
CADfórum
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 (support firmy ARKANCE). Viz O portálu.
Copyright © 2026 | Web reklama na tomto serveru | Ochrana soukromí, podmínky
ARKANCE (CAD Studio) - Autodesk Platinum Partner & Training Center & Services Partner
KONTAKT:
webmaster.cz@arkance.world | tel. +420 910 970 111
FB LN TW YT TW Blog RSS
.
TOPlist
img