Zobrazit plnou verzi příspěvku: Souběžné funkce

BenaCZ
17.10.2006, 08:24
Mohli byste mi prosím poradit, jak udělat lisp, který může běžet souběžně s jinou funkcí? Myslel jsem nějak takto, ale to nefunguje:

;;; Posun jako kolečkem myši, ale pouze 1x
(defun C:'_posunPAN (/
             ORM
             SNM
           )
;;;nastaví orto, krok na 0
(setq ORM (getvar "orthomode"))
(setq SNM (getvar "snapmode"))
(setvar "orthomode" 0)
(setvar "snapmode" 0)

;;;vlastní funkce

(command "'_pan" pause pause)

;;; obnovuje původní orto, krok a USS a uss pak smaže
(setvar "orthomode" ORM)
(setvar "snapmode" SNM)
(princ)
)

Jedná se mi o to, abych mohl posouvat výkresem jako zmáčknutím kolečka na myši, ale na klávesovou zkratku. A aby se ta funkce posunu pak ukončila.
Udělal jsem si na to pouze makro : '_pan ; ale to je blbý v tom, že když mám puštené ORTHO, tak se to posouvá jen kolmo... Díky

Vladimír Michl
17.10.2006, 08:57
Takhle to asi nepůjde - spíš se podívejte na "dočasně přednostní klávesy" v CUI rozhraní.