Rekomendowane odpowiedzi

Opublikowano (edytowane)
(defun c:kolortla ()
(if (= (getvar "bkgcolor") 0)
(setvar "bkgcolor" 7)
(setvar "bkgcolor" 0)
);if
(princ)
);defun kolortla

taka funkcja zmienia z czarnego na białe i odwrotnie

Edytowane przez gruzin
Opublikowano
37 minut temu, gruzin napisał:

(defun c:kolortla ()
(if (= (getvar "bkgcolor") 0)
(setvar "bkgcolor" 7)
(setvar "bkgcolor" 0)
);if
(princ)
);defun kolortla

taka funkcja zmienia z czarnego na białe i odwrotnie

zgrabniej może być tak:

(setvar "BKGCOLOR" (abs (- 7 (getvar "BKGCOLOR"))))

 

Opublikowano
13 godzin temu, Martin_S napisał:

Ja sie dołączę..... zamiast czarnego używam koloru RBG 30,40,48 jak to by było naprzemiennie z białym?

Jeśli zadziała mój kod z linku który podałem powyżej to właśnie tak. Jego działanie polega na zamianie kolorów dwóch elementów: tła ekranu graficznego i krzyża nitek, bowiem przez domniemanie przyjmuje się że są ustawione kontrastowo. Zatem jeśli tło masz RGB 30,40,48 a krzyż biały, polecenie BKG zamieni ten stan rzeczy: tło stanie się białym a kursor RGB 30,40,48. Oczywiście dotyczy to każdej pary kolorów, ustawionych jako tło i krzyż nitek.

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się poniżej.

Zaloguj się