Dodanie klawisza skrótu do funkcji w LISP


Recommended Posts

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

image.png

 

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

image.png

 

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

Z menu wybieramy "Klonuj"

image.png

 

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).

image.png

 

Zatwierdzamy.

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

klawisz_skrotu_cad.gif

 

 

Link to comment
Share on other sites

  • dmatusz3 changed the title to Dodanie klawisza skrótu do funkcji w LISP
  • 2 weeks later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
 Share