Registrujte se na 22. ročník konference CADfórum 2025 - 30.9. Zámek Valeč.
Přes 119.000 registrovaných u nás, celkem 1.097.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků.
Vyzkoušejte nový přesný Inženýrský kalkulátor a aktualizovaný Generátor čarových kódů.
Diskuzní fórum, poradna
?CAD diskuze, rady, výměna zkušeností

Fórum nenahrazuje technický support firmy ARKANCE (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.cz
|
Odpovědět ![]() |
archiv |
Autor | |
Ferdinand ![]() TOP uživatel ![]() Přihlášen: 01.říj.2004 Lokalita: ČR (JM) Používám: AutoCAD2004 (EN) na Windows XP Stav: Offline Bodů: 1906 |
![]() Zasláno: 18.říj.2007 v 16:30 |
Dá se nějak zakomponovat do lispu, aby v případě přerušení běhu programu se přenastavené sys. prom. vrátily na původní hodnoty? Mám na mysli např. takový případ:
(defun FUNKCE (/ 1VY CLA OSM CDE ORM VWC ... )
(setq 1VY (getvar "sdi"))
(setq CLA (getvar "clayer"))
(setq OSM (getvar "osmode"))
(setq CDE (getvar "cmdecho"))
(setq ORM (getvar "orthomode"))
(setq VWC (getvar "viewctr"))
...atd
začátek procedur...
...
...zde se to zasekne a odporoučí se...
Tj. chtěl bych, aby 1VY CLA OSM CDE OSM VWC ... se než CAD spadne, nastavily na
(setvar "sdi" 1VY)
(setvar "clayer" CLA)
(setvar "osmode" OSM)
...atd Upravil Ferdinand - 18.říj.2007 v 16:34 |
|
-FerTh-
|
|
![]() |
|
Vladimír Michl ![]() Profil člena
Odeslat soukromou zprávu
Najít příspěvky člena
Navštívit stránky člena
Přidat do seznamu známých
Moderátor ![]() ![]() ARKANCE Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Implementujeme řešení Autodesk Stav: Offline Bodů: 21952 |
![]() |
Většina řízených přerušení se dá odchytit přes errorhandler - viz funkce *error*.
|
|
![]() |
|
svarc.vl ![]() Zasloužilý člen ![]() Přihlášen: 01.říj.2004 Lokalita: ČR (ÚL) Používám: Autocad Mechanical 2010 Stav: Offline Bodů: 204 |
![]() |
příklad
;zacatek prg
(defun *error* (msg)
(if (/= uchst nill)(progn (setvar "osmode" uchst)
(setvar "clayer" hl)
);konec progn
);konec if
(princ "error: ") (princ msg)
(princ) );konec defun ;zacatek prg
;uchovani uchopu (setq uchst (getvar "osmode")) (setq hl (GETVAR "CLAYER"))
(setvar "cmdecho" 0) . .
.
.
.
.
;nastaveni uchopu na konci prg
(setvar "osmode" uchst) (setvar "clayer" hl) doufan ze tam nejsou chyby, dopisoval jsem to bez cadu
|
|
![]() |
Pro technickou podporu CAD
kontaktujte Helpdesk
Odpovědět ![]() |
|
Přejít na fórum | Oprávnění fóra ![]() Nemůžete vytvářet nová témata v tomto fóru Nemůžete odpovídat na témata v tomto fóru Nemůžete vymazávat vaše příspěvky v tomto fóru Nemůžete upravovat vaše příspěvky v tomto fóru Nemůžete vytvářet ankety v tomto fóru Nemůžete hlasovat v anketách v tomto fóru |
Stránka byla vygenerována za 0,305 sekund.