Dodanie klawisza skrótu do funkcji w LISP

[dmatusz3]

Pokażę jak przypisać własny skrót klawiaturowy w ZWCAD do funkcji w LISP.

Zrobimy to na przykładzie programu LISP, który zmienia stan ustawień punktów charakterystycznych z końca, środka i centrum na wszystkie (czyli zmiennej OSMODE z wartości 7 na 13311).

(defun c:przelaczsnapy nil (wszystko))

(defun wszystko nil
    (print "Teraz aktywne sa tylko wybrane snapy")
    (setvar "OSMODE" 7)
	(defun c:przelaczsnapy nil (malo))
    (princ)
)

(defun malo nil
    (print "Teraz aktywne sa wszystkie snapy")
	(setvar "OSMODE" 13311)
    (defun c:przelaczsnapy nil (wszystko))
    (princ)
)

Skrypt można pobrać również tutaj snapy.lsp

W celu jego uruchomienia wystarczy przeciągnąć go na ekran rysunku, wtedy zostanie dodane nowe polecenie przelaczsnapy

 

W celu dodania własnego skrótu na początku wywołujemy polecenie CUI

 

W oknie konfiguracji jaki się otworzy rozwijamy pozycje "Skróty klawiaturowe"

 

Następnie wybieramy dowolny skrót i klikamy na nim prawym klawiszem myszy.

Z menu wybieramy "Klonuj"

 

Edytujemy kopie polecenia. Klikając w pozycje 1 przypisujemy skrót klawiaturowy. W pozycji 2 wpisujemy jakie polecenie powinno się wykonać (^C^C_ przed poleceniem zostawiamy).

 

Zatwierdzamy.

Teraz wciśnięcie klawisza F4 spowoduje wywołanie programu LISP i zmianę ustawień punktów charakterystycznych.

 

 

[alf]

W ZW22 dodanie duplikatu zmienia jednoczesnie i duplikat i pierwotną funkcię.. coś nie tak robię czy coś nie tak z zw22?