CAD Fórum : Text na znaky https://www.cadforum.cz/forum/ Sat, 15 Aug 2026 09:15:54 +0000 Mon, 05 May 2008 10:44:04 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=6451 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Text na znaky : Díky, ta mapcar funkce dělá to...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6451&PID=31380&title=text-na-znaky#31380 Autor: Konzal
Předmět: 6451
Zasláno: 05.kvě.2008 v 10:44

Díky, ta mapcar funkce dělá to co potřebuju. Podle písmenek z kódu pak vkládám do výkresu předem nadefinované bloky.]]> Mon, 05 May 2008 10:44:04 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6451&PID=31380&title=text-na-znaky#31380 <![CDATA[Text na znaky : Což o to, elegantní to je. Otázka...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6451&PID=31376&title=text-na-znaky#31376 Autor: Seiner
Předmět: 6451
Zasláno: 05.kvě.2008 v 10:14

Což o to, elegantní to je. Otázka je, co s tím pak dál :-)
Jinak - co p. Konzal zamýšlí.
Funkce SUBSTR je opravdu použitelná. S její pomocí jsem dělal kdysi funkci najdi-nahraď pro nadstavbu rohového razítka. Dělal jsem si pomocnou fci, která mi řešila výskyt hledaného a určovala text před a za hledaným.
 
(defun find(co vcem / i)
(setq pred "" po "" lco (strlen co) lvcem (strlen vcem) i 1 jetam nil)
(while (<= i  lvcem)
  (if (= co (substr vcem i lco))(progn
   (setq pred (substr vcem 1 (- i 1)))
   (setq po (substr vcem (+ i lco) ))
   (setq i lvcem jetam T)  )
   (setq i (1+ i))
  )
)
)
]]> Mon, 05 May 2008 10:14:12 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6451&PID=31376&title=text-na-znaky#31376 <![CDATA[Text na znaky : To jde řešit buď nějakou smyčkou...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6451&PID=31374&title=text-na-znaky#31374 Autor: Vladimír Michl
Předmět: 6451
Zasláno: 05.kvě.2008 v 10:05

To jde řešit buď nějakou smyčkou a podřetezci (substr) nebo elegantněji přes mapcar - zkuste si třeba:
(mapcar 'chr (vl-string->list "Můj řetězec"))
]]> Mon, 05 May 2008 10:05:49 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6451&PID=31374&title=text-na-znaky#31374 <![CDATA[Text na znaky : Potřeboval bych pomoc s funkci...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6451&PID=31372&title=text-na-znaky#31372 Autor: Konzal
Předmět: 6451
Zasláno: 05.kvě.2008 v 10:01

Potřeboval bych pomoc s funkci na rozložení textu na jednotlivé znaky. Přečtu z razítka výkresu text (kód) a potřebuju zpracovat seznam jeho jednotlivých písmenek. S Lispem začínám a nevím si moc rady. Přečtený text mám, ale nevím jak na ty písmenka.]]> Mon, 05 May 2008 10:01:19 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6451&PID=31372&title=text-na-znaky#31372