CAD Fórum : AutoLisp https://www.cadforum.cz/forum/ Thu, 18 Jun 2026 09:01:05 +0000 Thu, 07 Dec 2006 14:17:01 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=3578 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[AutoLisp : Ano, to je ono. Po menší úpravě...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3578&PID=16683&title=autolisp#16683 Autor: I.Kroutil
Předmět: 3578
Zasláno: 07.pro.2006 v 14:17

Ano, to je ono. Po menší úpravě dle vašeho návrhu mohu zvolat heuréka. Děkuji, moc jste mi pomohl. S pozdravem I.Kroutil ]]> Thu, 07 Dec 2006 14:17:01 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3578&PID=16683&title=autolisp#16683 <![CDATA[AutoLisp : Pisi z hlavy: (setq seznam nil) (if...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3578&PID=16675&title=autolisp#16675 Autor: pavelstyl
Předmět: 3578
Zasláno: 07.pro.2006 v 13:13

Pisi z hlavy:
(setq seznam nil)
(if a_sez (setq seznam (append (seznam (list a_sez)))))
(if b_sez (setq seznam (append (seznam (list b_sez)))))
(if c_sez (setq seznam (append (seznam (list c_sez)))))
...
...
(ssget seznam)
 
Pavel Styl
]]> Thu, 07 Dec 2006 13:13:00 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3578&PID=16675&title=autolisp#16675 <![CDATA[AutoLisp : Dobrý den, jelikož programuji...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3578&PID=16670&title=autolisp#16670 Autor: I.Kroutil
Předmět: 3578
Zasláno: 07.pro.2006 v 11:37

Dobrý den, jelikož programuji v Lispu jen ojediněle, obracím se na vás s touto prosbou. Dělám prográmek obsahující výběrový filtr a potřeboval bych poradit, jakým způsobem lze provést následující.

(setq a_sez) má hodnotu (8 . "TEXT")
(setq b_sez) má hodnotu (62 . 256)
(setq c_sez) má hodnotu (7 . "Isocp")
(setq d_sez) má hodnotu (40 . 3.5)

dále by mohlo následovat
(ssget (list a_sez b_sez c_sez d_sez)) má hodnotu
(ssget ((8 . "TEXT") (62 . 256) (7 . "Isocp") (40 . 3.5)) a bude fungovat

Já ale potřebuji dosáhnout dotatečného doplnění nebo jiného obsahu v seznamu. Jednotlivé hodnoty proměnných jsou závislé na vybrání v dialogovém panelu. Takže může dojít k následujícímu

(setq a_sez) má hodnotu (8 . "TEXT")
(setq b_sez) má hodnotu (62 . 256)
(setq c_sez) má hodnotu (7 . "Isocp")
(setq d_sez) má hodnotu nil (nebyla vybrána)

a v takovém případě
(ssget ((8 . "TEXT") (62 . 256) (7 . "Isocp") nil) samozřejmě končí.
Zatím jsem nebyl schopen dosáhnout postupného přidáváni jednotlivých hodnot do seznamu podle pravdivých hodnot proměnných.
Pokud by měl někdo radu, předem děkuji.]]> Thu, 07 Dec 2006 11:37:13 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3578&PID=16670&title=autolisp#16670