CAD Fórum : přerušení lispu https://www.cadforum.cz/forum/ Thu, 25 Jun 2026 08:48:52 +0000 Thu, 18 Oct 2007 17:49:44 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=5308 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[přerušení lispu : příklad ;zacatek prg (defun...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5308&PID=25574&title=preruseni-lispu#25574 Autor: svarc.vl
Předmět: 5308
Zasláno: 18.říj.2007 v 17:49

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
]]> Thu, 18 Oct 2007 17:49:44 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5308&PID=25574&title=preruseni-lispu#25574 <![CDATA[přerušení lispu : Většina řízených přerušení se...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5308&PID=25573&title=preruseni-lispu#25573 Autor: Vladimír Michl
Předmět: 5308
Zasláno: 18.říj.2007 v 16:41

Většina řízených přerušení se dá odchytit přes errorhandler - viz funkce *error*.]]> Thu, 18 Oct 2007 16:41:56 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5308&PID=25573&title=preruseni-lispu#25573 <![CDATA[přerušení lispu : Dá se nějak zakomponovat do lispu,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5308&PID=25571&title=preruseni-lispu#25571 Autor: Ferdinand
Předmět: 5308
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]]> Thu, 18 Oct 2007 16:30:44 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5308&PID=25571&title=preruseni-lispu#25571