CAD Fórum : chybne kodovanie textu https://www.cadforum.cz/forum/ Wed, 13 May 2026 07:22:00 +0000 Thu, 22 Feb 2007 12:03:56 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=3991 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[chybne kodovanie textu : Funguje ;) super dakujeme ]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3991&PID=19264&title=chybne-kodovanie-textu#19264 Autor: Robo
Předmět: 3991
Zasláno: 22.úno.2007 v 12:03

Funguje ;) super dakujeme]]> Thu, 22 Feb 2007 12:03:56 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3991&PID=19264&title=chybne-kodovanie-textu#19264 <![CDATA[chybne kodovanie textu : Tak, uz muzu poslat i soubor...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3991&PID=19085&title=chybne-kodovanie-textu#19085 Autor: alfred
Předmět: 3991
Zasláno: 16.úno.2007 v 15:29

Tak, uz muzu poslat i soubor....


http://www.cadforum.cz/forum/uploads/20070216_152906_replace_unicode.LSP




Upravil alfred - 16.úno.2007 v 15:33]]> Fri, 16 Feb 2007 15:29:17 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3991&PID=19085&title=chybne-kodovanie-textu#19085 <![CDATA[chybne kodovanie textu : Bohuzel jsem nezjistil, jak se...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3991&PID=19007&title=chybne-kodovanie-textu#19007 Autor: alfred
Předmět: 3991
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)

]]> Thu, 15 Feb 2007 07:25:15 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3991&PID=19007&title=chybne-kodovanie-textu#19007 <![CDATA[chybne kodovanie textu : Když jsem ještě měl R11 co kódovala...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3991&PID=19006&title=chybne-kodovanie-textu#19006 Autor: Kotlaba
Předmět: 3991
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.]]> Thu, 15 Feb 2007 06:17:24 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3991&PID=19006&title=chybne-kodovanie-textu#19006 <![CDATA[chybne kodovanie textu : To Alfred: Nemohl bysteutilitu...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3991&PID=19000&title=chybne-kodovanie-textu#19000 Autor: PepaR
Předmět: 3991
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]]> Wed, 14 Feb 2007 19:56:35 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3991&PID=19000&title=chybne-kodovanie-textu#19000 <![CDATA[chybne kodovanie textu : Mam na to nekde vlastni lisp utilitku,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3991&PID=18999&title=chybne-kodovanie-textu#18999 Autor: alfred
Předmět: 3991
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.]]> Wed, 14 Feb 2007 19:24:44 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3991&PID=18999&title=chybne-kodovanie-textu#18999 <![CDATA[chybne kodovanie textu : Mam na to vlastni lisp utilitku,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3991&PID=18998&title=chybne-kodovanie-textu#18998 Autor: alfred
Předmět: 3991
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]]> Wed, 14 Feb 2007 19:23:41 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3991&PID=18998&title=chybne-kodovanie-textu#18998 <![CDATA[chybne kodovanie textu : Přesně tak. Jedním kliknutím změníte...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3991&PID=18980&title=chybne-kodovanie-textu#18980 Autor: Mantlík
Předmět: 3991
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
]]> Wed, 14 Feb 2007 10:45:08 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3991&PID=18980&title=chybne-kodovanie-textu#18980 <![CDATA[chybne kodovanie textu : Hromadné nahrazení znaků (včetně...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3991&PID=18979&title=chybne-kodovanie-textu#18979 Autor: Vladimír Michl
Předmět: 3991
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:
http://www.cadforum.cz/cadforum/qaID.asp?tip=1741
]]> Wed, 14 Feb 2007 10:42:12 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3991&PID=18979&title=chybne-kodovanie-textu#18979 <![CDATA[chybne kodovanie textu : Kdysi jsem se tím setkal. Výkres...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3991&PID=18977&title=chybne-kodovanie-textu#18977 Autor: Kotlaba
Předmět: 3991
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.]]> Wed, 14 Feb 2007 10:36:28 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3991&PID=18977&title=chybne-kodovanie-textu#18977