;Toggle AutoCAD Web nackground color (model+layouts) - Black or White
;(C)2022 Arkance Systems - www.arkance-systems.cz - www.cadforum.cz
;autoload and then type BW to invoke the toggle

(defun C:BW ()
 (if (= (getenv "Background") "3156001")
  (setenv "Background" "16777215")
  (setenv "Background" "3156001")
 )
 (if (= (getenv "Layout background") "0")
  (setenv "Layout background" "16777215")
  (setenv "Layout background" "0")
 )
 (setvar "TILEMODE" (abs (1- (getvar "TILEMODE"))))
 (setvar "TILEMODE" (abs (1- (getvar "TILEMODE"))))
 (princ)
)