CAD Fórum : string https://www.cadforum.cz/forum/ Thu, 18 Jun 2026 12:43:33 +0000 Mon, 20 Nov 2006 20:53:30 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=3458 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[string : Děkujeme za pochvalu. Základy...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3458&PID=16133&title=string#16133 Autor: Vladimír Michl
Předmět: 3458
Zasláno: 20.lis.2006 v 20:53

Děkujeme za pochvalu.
Základy AutoLISPu najdete zde v tématu programování - viz:
http://www.cadforum.cz/cadforum/Vyvojove-prostredky-AutoCADu/
]]> Mon, 20 Nov 2006 20:53:30 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3458&PID=16133&title=string#16133 <![CDATA[string : Dakujem vsetkym za odpovede. Myslim...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3458&PID=16132&title=string#16132 Autor: rjanic
Předmět: 3458
Zasláno: 20.lis.2006 v 19:04

Dakujem vsetkym za odpovede. Myslim ze by nebolo odveci urobit na tychto strankach maly kurz LISPu pre zaciatocnikov. Urcite by sa naslo vela citatelov. Podla mojho nazoru su tieto stranky co sa CADu tyka najlepsie co sa da v .CZ a .SK najst.]]> Mon, 20 Nov 2006 19:04:20 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3458&PID=16132&title=string#16132 <![CDATA[string : (setq novy_text &#034;Muj text&#034;)(setq...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3458&PID=16098&title=string#16098 Autor: pavelstyl
Předmět: 3458
Zasláno: 20.lis.2006 v 10:40

(setq novy_text "Muj text")
(setq ents (entsel "Vyber text: "))
(setq entg (entget (car ents)))
(if (= (cdr (assoc 0 entg)) "TEXT")
 (progn
  (setq entg (subst (cons 1 novy_text) (assoc 1 entg) entg))
  (entmod entg)
 )
)
(princ)
 
Pavel Štyl
]]> Mon, 20 Nov 2006 10:40:47 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3458&PID=16098&title=string#16098 <![CDATA[string : Ano, subst je správná cesta, ale...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3458&PID=16079&title=string#16079 Autor: Vladimír Michl
Předmět: 3458
Zasláno: 20.lis.2006 v 08:53

Ano, subst je správná cesta, ale musíte poté volat ještě entmod, případně entupd. Doporučuji se podívat na nějaký už fungující LISP prográmek.]]> Mon, 20 Nov 2006 08:53:26 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3458&PID=16079&title=string#16079 <![CDATA[string : Dakujem za odpoved usetrili ste...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3458&PID=16075&title=string#16075 Autor: rjanic
Předmět: 3458
Zasláno: 19.lis.2006 v 16:57

Dakujem za odpoved usetrili ste mi kopec casu. Este jedna mala otazka. Ktorou funkciou mozem menit vlastnosti entity? Napr.hodnotu text retazca? Skusal som pouzit (subst newitem olditem lst)ale nejako sa mi to nedari.]]> Sun, 19 Nov 2006 16:57:09 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3458&PID=16075&title=string#16075 <![CDATA[string : Řekněme že chci získat vlastnosti...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3458&PID=16070&title=string#16070 Autor: pavelstyl
Předmět: 3458
Zasláno: 19.lis.2006 v 14:21

Řekněme že chci získat vlastnosti poslední entity ve výkrese:

(setq ent (entlast)) ;;; Jmeno posledni entity
(setq entg (entget ent)) ;;; Seznam s informaceni o entite
 
(setq typ (cdr (assoc 0 entg)) ;;; Co je to za entitu (line, arc, circle, ...)
(setq hl (cdr (assoc 8 entg))) ;;; Hladina
...
 
Každopádně bych si prvně otestoval, zda ta vaše entita je skutečne text
(if (= (cdr (assoc 0 entg)) "TEXT")
 (progn
  (prompt "\nJe to text: ")
  (prompt (cdr (assoc 1 entg))) ;;; Nejsem si úplně jistý tou 1, píši to bez AutoCADu, možná tam má být 2 
 )
)
 
Pavel Štyl
]]> Sun, 19 Nov 2006 14:21:04 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3458&PID=16070&title=string#16070 <![CDATA[string : Moze niekto pomoct zaciatocnikovi? Ako...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3458&PID=16068&title=string#16068 Autor: rjanic
Předmět: 3458
Zasláno: 18.lis.2006 v 20:15

Moze niekto pomoct zaciatocnikovi?
Ako ziskam "string" ak ho chcem pouzit do funkcie
napr. (strcase string [which])ak nechcem hodnotu ziskat z prikaz.riadku ale z vytvoreneho textu? Viem ziskat meno
entity ale ako sa dostat k ostatnym vlastnostiam?
Urcite trivialna otazka ale kazdy raz zacinal.
dik]]> Sat, 18 Nov 2006 20:15:55 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3458&PID=16068&title=string#16068