ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
Registrujte se na 22. ročník konference CADfórum 2025 - 30.9. Zámek Valeč.
Přes 119.000 registrovaných u nás, celkem 1.097.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků. Vyzkoušejte nový přesný Inženýrský kalkulátor a aktualizovaný Generátor čarových kódů.
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 helpdesk.arkance-systems.cz
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřenochybne kodovanie 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
Robo Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 02.led.2006
Stav: Offline
Bodů: 120
 Přímý odkaz na tuto zprávu Téma: chybne kodovanie textu
    Zasláno: 22.úno.2007 v 12:03
Funguje ;) super dakujeme
Zpět nahoru
alfred Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 14.říj.2004
Lokalita: ČR (JČ)
Používám:
AutoCad MAP 2011
Stav: Offline
Bodů: 1675
 Přímý odkaz na tuto zprávu Zasláno: 16.úno.2007 v 15:29
Tak, uz muzu poslat i soubor....



Připojené souboryLSPhttp://www.cadforum.cz/forum/uploads/20070216_152906_replace_unicode.LSP





Upravil alfred - 16.úno.2007 v 15:33
Zpět nahoru
alfred Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 14.říj.2004
Lokalita: ČR (JČ)
Používám:
AutoCad MAP 2011
Stav: Offline
Bodů: 1675
 Přímý odkaz na tuto zprávu Zasláno: 15.úno.2007 v 07:25
Bohuzel jsem nezjistil, jak se da prilozit soubor, ale protoze je ten lisp kratky, tak ho sem primo nakopiruji.

Funkce se spousit prikazem "ReplUniString". Rovnou projde cely vykres a to vcetne zmrazenych hladin!




;záměna písma napsaných pomocí kódů %%xxx za písmena.
;funguje na TEXT a MTEXT
;prochází databázi výkresu - tedy i zmražené hladiny
;verze 0.1dev ----- funguje :-)
;
;
;
;

(print "Spouští se příkazem: ReplUniString")
(defun c:ReplUniString ( / DestList SrcList i n sel_length ent_sel TextString )
  ;zde se dají dopsat zaměňované páry (cílový string . hledaný_string)
    (setq PatternList
        '(
              ("á" . "%%225")
            ("ď" . "%%239")
            ("č" . "%%232")
            ("ě" . "%%236")
            ("é" . "%%233")
            ("í" . "%%237")
            ("ö" . "%%246")
            ("ó" . "%%243")
            ("ř" . "%%248")
            ("š" . "%%154")
            ("ť" . "%%157")
            ("ú" . "%%250")
            ("ů" . "%%249")
            ("ý" . "%%253")
            ("ž" . "%%158")
            ("Á" . "%%193")
            ("Ď" . "%%207")
            ("Č" . "%%200")
            ("Ě" . "%%204")
            ("É" . "%%201")
            ("Í" . "%%205")
            ("Ö" . "%%214")
            ("Ó" . "%%211")
            ("Ř" . "%%216")
            ("Š" . "%%138")
            ("Ť" . "%%141")
            ("Ú" . "%%218")
            ("Ů" . "%%217")
            ("Ý" . "%%221")
            ("Ž" . "%%142")
            ("ň" . "%%242")
            ("Ň" . "%%210")
            ("ľ" . "%%190")
            ("Ľ" . "%%188")
            ("ä" . "%%228")
            ("Ä" . "%%196")
            ("ü" . "%%252")
            ("Ü" . "%%220")
        )
    )
   
 
;výběr entit k záměně
  (setq ent_sel (ssget "_X" '((-4 . "<OR")(0 . "TEXT")(0 . "MTEXT")(-4 . "OR>"))))

  (setq i 0)
  (if (= ent_sel nil)
       (setq sel_length 0)
       (setq sel_length (SSLENGTH ent_sel))
  )
  (print (strcat (rtos sel_length 2 0) " TEXTů a MTEXTů"))(print)
       
  (while (/= i sel_length) ;cyklus na procházení výběru
     (setq entlist (ENTGET (ssname ent_sel i)))
     (setq TextString (cdr (assoc 1 entlist)))
     (setq n 0)
     (princ TextString)
         (while (/= n  (vl-list-length PatternList)) ;cyklus na záměnu všech znaků
        (setq TextString (AlfredSringReplace (cdr (nth n PatternList )) (car (nth n PatternList )) TextString)) ;záměna textu
        (setq n (+ n 1))
     );while
     (princ " ----> ")(princ TextString)(print)
     
    ;zapsání textu do entity
     (setq EntList (subst (cons 1 TextString) (assoc 1 entlist) entlist))
     (entmod (subst EntList EntList EntList))
          
    (setq i (+ i 1))
  );while
(print)
);konec hlavní funkce




;funkce zamění vyhledaný string za jiný  ve stringu
;syntaxe: (AlfredSringReplace "hledaný_string" "zaměňovaný_string" "měněný string")
(defun AlfredSringReplace (AlfredSrcString AlfredDestString AlfredChangedString / i result)
  (setq i 0)
  (while (/= i nil)
    ;(vl-string-search pattern string [start-pos])
    (setq i (vl-string-search AlfredSrcString AlfredChangedString i))
    (if (/= i nil)
       ;(vl-string-subst new-str pattern string [start-pos])
       (setq AlfredChangedString (vl-string-subst  AlfredDestString AlfredSrcString AlfredChangedString i))
    )
  );while
 
  (setq AlfredChangedString AlfredChangedString) ;!! musí být na konci funkce - návratová hodnota
);konec funkce "AlfredSringReplace"


(print)
Zpět nahoru
Kotlaba Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 06.říj.2004
Lokalita: ČR (SČ)
Používám:
už žádné
Stav: Offline
Bodů: 388
 Přímý odkaz na tuto zprávu Zasláno: 15.úno.2007 v 06:17
Když jsem ještě měl R11 co kódovala češtinu podle DOS a dostal se ke mně občas výkres z LT s kódováním Windows, opatřil jsem si fonty z LT. Editovat to sice moc nešlo ale číst a tisknout se to dalo.
Zpět nahoru
PepaR Zobrazit panel
CAD/BIM manager
CAD/BIM manager
Avatar

Přihlášen: 29.lis.2004
Lokalita: ČR (ZL)
Používám:
ruky a hlavu (občas ;)
Stav: Offline
Bodů: 6206
 Přímý odkaz na tuto zprávu Zasláno: 14.úno.2007 v 19:56
To Alfred: Nemohl byste utilitu zde vyvěsit prosím? Taky by se mi hodila... Děkuji
PepaR
jremes.cz | stavlab.cz
Zpět nahoru
alfred Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 14.říj.2004
Lokalita: ČR (JČ)
Používám:
AutoCad MAP 2011
Stav: Offline
Bodů: 1675
 Přímý odkaz na tuto zprávu Zasláno: 14.úno.2007 v 19:24
Mam na to nekde vlastni lisp utilitku, ktera zamenuje ceske znaky. Zitra se muzu klidne v praci podivat. Jestli ji najdu, muzu Vam ji poslat.
Zpět nahoru
alfred Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 14.říj.2004
Lokalita: ČR (JČ)
Používám:
AutoCad MAP 2011
Stav: Offline
Bodů: 1675
 Přímý odkaz na tuto zprávu Zasláno: 14.úno.2007 v 19:23
Mam na to vlastni lisp utilitku, ktera zamenuje ceske znaky. Zitra se muzu klidne v praci podivat.



ajaj, vidim, ze jsem odpoved poslal dvakrat.... Embarrassed


Upravil alfred - 15.úno.2007 v 07:29
Zpět nahoru
Mantlík Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 01.říj.2004
Lokalita: ČR (Pha)
Používám:
ACAD/Map/Civil R10-> 2022
Stav: Offline
Bodů: 2578
 Přímý odkaz na tuto zprávu Zasláno: 14.úno.2007 v 10:45
Přesně tak. Jedním kliknutím změníte např. všechny %%193 na Á v celém výkresu (pokud to tak vyberete). A těch písmenek zas není tolik ......
Vezmete-li, co všechno musíte s DWG z DGN udělat, aby to pak fungovalo korektně, tak ta čtvrthodinka se v tom už ztratí
 
A na ty utilitky  (WNEWCP - či jak se to jmenovalo) bych nesázel. Jednak mi to s Microstationem nikdy nezafungovalo a jednak musely být všechny znaky korektně dle jednotlivých codepage, jinak se rozhodily zase jiné znaky
J. Mantlík
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ů: 21952
 Přímý odkaz na tuto zprávu Zasláno: 14.úno.2007 v 10:42
Hromadné nahrazení znaků (včetně řídících znaků) řízené definiční převodní tabulkou dělá utilita Xanadu ReCoder - viz:
Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)
Zpět nahoru
Kotlaba Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 06.říj.2004
Lokalita: ČR (SČ)
Používám:
už žádné
Stav: Offline
Bodů: 388
 Přímý odkaz na tuto zprávu Zasláno: 14.úno.2007 v 10:36
Kdysi jsem se tím setkal. Výkres jsem si převedl do DXF co nejnižší verze a napsal jsem si prográmek v BASICu co četl ten soubor znak po znaku, hledal tam znak procento a když jej našel, kouknul se co je dál a pak tu skupinu nahradil správným kódem.
Zpět nahoru
PepaR Zobrazit panel
CAD/BIM manager
CAD/BIM manager
Avatar

Přihlášen: 29.lis.2004
Lokalita: ČR (ZL)
Používám:
ruky a hlavu (občas ;)
Stav: Offline
Bodů: 6206
 Přímý odkaz na tuto zprávu Zasláno: 14.úno.2007 v 10:21
Vytvořit si přehled kódu a jemu ekvivalentní znak. Poté aplikovat funkci Najít a nahradit. Dále existovala i nějaká utilitka na změnu kódování DWG výkresů, pravděpodobně bude někde v Downloadu.
PepaR
jremes.cz | stavlab.cz
Zpět nahoru
Robo Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 02.led.2006
Stav: Offline
Bodů: 120
 Přímý odkaz na tuto zprávu Zasláno: 14.úno.2007 v 10:02
Dobry den,
dostal som podklady z Microstationu vo formate dwg. Problem je ze obsahuje chybne kodovanie textu. napr. MINIM%%193LNE. nema niekto skusenosti ako tento problem odstranit?
Samozrejme okrem moznosti ze cez find budem nahradzat jednotlive znaky rucne.
Dakujem
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 11421:VIPPosunuté nebo širší texty v DWG při úpravě vlastností ve Vaultu.
Tip 13998:VIPSnadné hromadné vyhledání a nahrazení textu ve výkresech Inventoru - iLogic (viz nový tip)
Tip 10898:VIPRozmazané texty nebo nesprávné zobrazení UI ve vysokém rozlišení.
Tip 3730:VIPPřidání masky pozadí pro vybrané texty výkresu najednou.
Tip 8207:VIPUzamčené, needitovatelné texty ve výkresu Civilu 2012.
Tip 7035:VIPPohodlné psaní textu podél libovolné křivky.


 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,531 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 © 2025 | 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