No a není celý problém způsoben tím, že promněnná CAS je lokální?

Pokud chci, aby přiřazená hodnota v proměnné CAS zůstala i po ukončení funkce, tak ta hlavička musí být bez proměnné CAS

 

(defun C:PRD (/ MM)

...

Pavel Styl

Příklad: Ve výkresu již byla nastavena prom. CAS=5000. Načtu lisp, volám fci PRD, a dívám se, jestli tu zadanou hodnotu opravdu přiřadila:

To stejné i pro případ, když <2000> odentruji.

Když to řádek po řádku nakopíruji do p.ř., tak:

1. Zdá se, že se to zarazí po tom "delay" a nechce to dokončit celý. Ale i když v lispu to vynechám, tak je to stejné...

2. Pokud ;(command "_delay" 250) v původním lispu:

Upřesnění: jde mi o to, získat prom. CAS se zadanou hodnotou od uživatele, kterou pak mohu použít v jiných aplikacích. Ten "delay" (s hodnotou 250) tam mám pouze jaksi "navíc", pro pozdržení (jak to bude chodit OK, pak to odmažu). Právě proto mi bylo divné, že i když CAS v lispu by se měla vynulovat, zůstává ji přiřazena pořád ta původní hodnota.

Pavel Styl

 

(defun C:PRD (/ CAS MM)
 
  (if (> CAS 0)
    (setq CAS 0)
  )
  (setq MM (getint "\nZadejte délku prodlevy (ms) : <2000> "))
  (if (= MM nil)
    (setq CAS 2000)
    (setq CAS MM)
  )
  (command "_delay" CAS)
  (princ)
)