AutoCAD, AutoLISP, Interfejsy

Karty układów

Bardzo krótki przełącznik widoczności kart układów. Stan widoczności tych kart zapisywany jest w rejestrze Windows, zaś w AutoCAD-zie odpowiedzialną za to jest zmienna systemowa o nazwie LAYOUTTAB. Może przybierać wartości 1 i 0. Stąd jednolinijkowy przełącznik LISP-owy:

; ----------------------------------------------------------------- ;
; by kojacek                                                        ;
; ----------------------------------------------------------------- ;
(defun C:LTAB ()(setvar "LAYOUTTAB" (abs (1- (getvar "LAYOUTTAB")))))
; ----------------------------------------------------------------- ;

Efekt działania zaś: ltabyTego samego można też dokonać manipulując zmienną środowiskową o nazwie ShowTabs.  Poniżej kod:

; ----------------------------------------------------------------- ;
; by kojacek                                                        ;
; ----------------------------------------------------------------- ;
(defun C:STAB ()
  (setenv "ShowTabs" (itoa (abs  (1- (atoi (getenv "ShowTabs"))))))
)
; ----------------------------------------------------------------- ;

 

Dodaj komentarz

Ta witryna wykorzystuje usługę Akismet aby zredukować ilość spamu. Dowiedz się w jaki sposób dane w twoich komentarzach są przetwarzane.