Background color switching

[robert.1.hall72202]

I have recently found a need to use a background color changing routine again.

A simple cut/copy/paste does not require changing the background from
black to white. However, a jpgout requires the change.

I thought I would share my favorite routine:

 (defun C:BCOLOR ()
  (cond
	((= (getvar "TileMode") 0)  ;Check Space, Exit if not in ModelSpace
	 (prompt
	   "\n***Command only works in ModelSpace, TileMode = 1***"
	 )
	)
	((= (getenv "Background") "16777215")
	 ;ModelSpace Background colour = White
	 (setenv "Background" "0")  ;Set ModelSpace Background colour = Black
	 (setenv "XhairPickboxEtc" "16777215")
	 ;Set ModelSpace Crosshair colour = White
	 (setvar "TileMode" 0)  ;Force Display to update
	 (setvar "TileMode" 1)
	 (prompt "\n***ModelSpace Background colour set to Black***")
	)
	((= (getenv "Background") "0") ;ModelSpace Background colour = Black
	 (setenv "Background" "16777215") ;Set ModelSpace Background colour = White
	 (setenv "XhairPickboxEtc" "0") ;Set ModelSpace Crosshair colour = Black
	 (setvar "TileMode" 0)  ;Force Display to update
	 (setvar "TileMode" 1)
	 (prompt "\n***ModelSpace Background colour set to White***")
	)
	(T	 ;Exit if ModelSpace Background colour /= Black or White
	 (prompt "\n***ModelSpace Background colour not altered***")
	)
  )
  (princ)
)

[rkmcswain]

Another version can be found here...

http://rkmcswain.blogspot.com/2007/0...ackground.html

[robert.1.hall72202]

Nice. That routine is certainly different. Does the trick!

[rkmcswain]

Nice. That routine is certainly different. Does the trick!

I typically work with black BG, but I will switch to white when taking screen captures.
Also, it's handy to be able to toggle from black to white during a seminar or demonstration.

Much quicker than going through the GUI.

[Mr Cory]

I have recently found a need to use a background color changing routine again.

A simple cut/copy/paste does not require changing the background from
black to white. However, a jpgout requires the change.

I thought I would share my favorite routine:

(defun C:BCOLOR ()
(cond
	((= (getvar "TileMode") 0) ;Check Space, Exit if not in ModelSpace
	 (prompt
	 "\n***Command only works in ModelSpace, TileMode = 1***"
	 )
	)
	((= (getenv "Background") "16777215")
	 ;ModelSpace Background colour = White
	 (setenv "Background" "0") ;Set ModelSpace Background colour = Black
	 (setenv "XhairPickboxEtc" "16777215")
	 ;Set ModelSpace Crosshair colour = White
	 (setvar "TileMode" 0) ;Force Display to update
	 (setvar "TileMode" 1)
	 (prompt "\n***ModelSpace Background colour set to Black***")
	)
	((= (getenv "Background") "0") ;ModelSpace Background colour = Black
	 (setenv "Background" "16777215") ;Set ModelSpace Background colour = White
	 (setenv "XhairPickboxEtc" "0") ;Set ModelSpace Crosshair colour = Black
	 (setvar "TileMode" 0) ;Force Display to update
	 (setvar "TileMode" 1)
	 (prompt "\n***ModelSpace Background colour set to White***")
	)
	(T	 ;Exit if ModelSpace Background colour /= Black or White
	 (prompt "\n***ModelSpace Background colour not altered***")
	)
)
(princ)
)

Hay is there anyway to stop this lisp setting the tracking vector to black? Took me ages to figure out what had happened lol

[azarko]

Original posted here
http://www.autocad.ru/cgi-bin/f1/board.cgi?t=8288Cp