Ne blok, kromě atributů neobsahuje nic jiného. Nicméně Ty názvy jsou dobrý tip, děkuji, avšak při kombinaci attreq = 1, attdia = 0, se blok vůbec nevloží.

Funguje to, ale buď musíte mít attreq 1 a vkládat nějaké řetězce, nebo si nastavit attreq na 0 a pak nesmíte vkládat nic. jinak se vám vloží řetězce následujících příkazů lispu a program přirozeně havaruje.

Připojené soubory

2005-08-09_080241_x.lsp

Již to funguje, měl jsem napsany za pause názvy parametrů, dle první, proto ta chyba... Díky moc a pokdu Vás mohu ještě obtěžovat, tak bych měl sand už poslední dotaz: Nadefinoval jsem si funkci, která mi kreslí tepelnou a zvukovou izolaci, tím že začne kreslit křivku o daném typu čáry v určité hladině. Nejsme žádný programátor a tak jsem byl nucen řešit zadávání bodů pomocí pause, což je jaksi nedostačující. Rád bych to vyřešil pomocí getpoint aby se následné vykreslení provedlo podle zadaných bodů, ovšem potřeboval bych nějaký názorný příklad kde by bylo ukázáno jak getpoint zakomponovat do příkazu pro křivku, nemohl bych Vás tedy ještě jednou požádat o pomoc?

Děkuji

Tak kreslení křivky (pouze z přímkových úseků) bych asi dělal asi takhle:

(setq skup (ssadd))
(setq a (getpoint "Začátek: "))

(While (/= a nil)
  (Command "_Pline" a (setq a (getpoint a "\nDalší bod :")) (if (/= a nil) '""))
  (setq skup (ssadd  (entlast) skup))
)

(Command "_Pedit" (entlast) "_J" skup "" "")

Co třeba takle (psáno z hlavy bez zkoušení).

(setq point (getpoint "\nPrvni bod: "))

(command "_pline")

(while point

 (command point)

 (setq point (getpoint point "\nDalsi bod: "))

)

(command "")