https://www.cadforum.cz/forum/ Tue, 12 May 2026 08:49:57 +0000 Fri, 03 Nov 2006 13:14:47 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=3361 https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ https://www.cadforum.cz/forum/forum_posts.asp?TID=3361&PID=15665&title=enter#15665 Autor: Ferdinand
Předmět: 3361
Zasláno: 03.lis.2006 v 13:14

No teda  ]]> Fri, 03 Nov 2006 13:14:47 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3361&PID=15665&title=enter#15665 https://www.cadforum.cz/forum/forum_posts.asp?TID=3361&PID=15642&title=enter#15642 Autor: Miroslav Harant
Předmět: 3361
Zasláno: 03.lis.2006 v 09:00

Ještě jinak v lispu lze i jednodušeji:

^C^C(load "DeleteFilters.vlx") df ;

a příkaz proběhne celý.
]]> Fri, 03 Nov 2006 09:00:48 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3361&PID=15642&title=enter#15642 https://www.cadforum.cz/forum/forum_posts.asp?TID=3361&PID=15632&title=enter#15632 Autor: Ferdinand
Předmět: 3361
Zasláno: 02.lis.2006 v 17:24

Už jsem to našel a pro úplnost píšu:
SPACEBAR
(text "SPACEBAR" + mezera!)
]]> Thu, 02 Nov 2006 17:24:01 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3361&PID=15632&title=enter#15632 https://www.cadforum.cz/forum/forum_posts.asp?TID=3361&PID=15620&title=enter#15620 Autor: Ferdinand
Předmět: 3361
Zasláno: 02.lis.2006 v 13:45

Nemohu si vzpomenout:
Jak se napíše v lispu Enter?
Přišel jsem na to, že "" nefunguje všude, proto ten dotaz...
Konkrétní příklad: V lispu na pročištění výkresu od nepotřebného balastu chci volat funkci DeleteFilters, který požaduje potvrzení Enterem.
V řádku menu to funguje takhle (příkazu DeleteFilters mám přiřazenou zkratku DF):
...
[DF -odstraní filtry hladin]^C^CDF SPACEBAR
...

Průběh na příkazovém řádku:
A./
Command: (C:DeleteFilters) anebo (C:DF)

Name filters to keep (e.g. 'A*,B*')
<Enter> deletes all:
...no a právě nemůžu dostat tam tu automaticky potvrzenou volbu (tj. Enter) po výzvě "<Enter> deletes all:"

B./
Command: (command "DF"  "")
DF Unknown command "DF".  Press F1 for help.
...a zopakuje posledně provedený příkaz

Poznámka:
Hromadně prováděné (tj. ne pouze v rámci jediného výkresu) lispy acad2004.lsp mám sestavené na následujícím principu:
1. Jsou nadefinována dílčí funkce volaná v rámci lispu (pokud už nejsou v některé "zakufrované" /Startup Suite/ utilitě).
2. Jsou uchovány původní hodnoty proměnných a následně jsou nastaveny na požadovanou hodnotu.
3. Tělo programu začíná
(defun S::STARTUP ()
4. Najde soubory dwg v aktuálním adresáři
(command "_shell" ...
a vytvoří jejich seznam.
5. Výkresy se otvírají v cyklu jeden za druhým (sdi=1) dle tohoto seznamu a ve vlastním výkonném jádru jsou provedena potřebná operace.
6. Na konci n-tého cyklu jsou obnoveny původní hodnoty proměnných a n-tý výkres se uloží.
V praxi to vypadá tak, že výkresy, na které chci aplikovat tutéž utilitu, nakopíruji do pracovního adresáře společně s utilitou (která se musí jmenovat acad2004.lsp), pak do příkazového řádku prohlížeče napíšu ACAD a pak si pohodlně sednu, ev. dám si KitKat...

]]> Thu, 02 Nov 2006 13:45:28 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3361&PID=15620&title=enter#15620