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
;;; 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