tema Re: Color de Fondo de Pantalla de ACAD en AutoCAD - Todos los productos - Foro en Español

Color de Fondo de Pantalla de ACAD

Anonymous — Tue, 22 Jan 2008 18:39:10 GMT

Alguien conoce si existe alguna Variable de Sistema que permita controlar el
Color de Fondo de Pantalla de ACAD, o un comando que permita ajustar este
parametro sin que aparezca un Letrero de Dialogo como en el comando
OPCIONES.

Normalmente ACAD tiene el fondo negro pero yo necesito modificarlo
temporalmente para guardar una imagen raster con un color mas adecuado de
fondo (y dejar despues el fondo tal y como estaba originalmente).

Deseo cambiar el fondo de la pantalla temporalmente(para guardar una imagen
raster con una parte del dibujo actual) con un programa Vlisp, pero aunque
conozco el comando OPCIONES este solo funciona con un Letrero de Dialogo en
modo usuario por lo que me resulta imposible usarlo en el programa.

Supongo que existe alguna variable o algo asi que controla la configuracion
de ACAD pero la desconozco.

Gracias.

Re: Color de Fondo de Pantalla de ACAD

Anonymous — Thu, 24 Jan 2008 19:03:43 GMT

Aquí te paso una rutina que encontré en los grupos de discusión de AUGI. La rutina es sencilla y utiliza la función (SETENV "variable" "valor"), para hacer dicho cambio. Solo hay un detalle y es que se debe forzar la actualización de la ventana gráfica actual, conmutando de model space a paper space, con la variable TILEMODE. Si deseas cambiar el fondo a un color más especifico, cambia el color del fondo por el comando tradicional de opciones, luego usa la función (GETENV "variable") para saber cual es el valor que corresponde a dicho color y lo cambias en el código. Llamadas sucesivas de BCOLOR alternan el fondo con los dos colores que tengas programados.

Espero ayude,

Un saludo,

Re: Color de Fondo de Pantalla de ACAD

Anonymous — Fri, 25 Jan 2008 17:36:00 GMT

Muchas gracias por la rutina, es curioso el uso de la orden GETENV y SETENV
para modificar la variable (¡el problema real es conocer cual!), la he
probado y funciona bien aunque como bien dices tu es un poco engorroso el
tener que forzar la actualización de la ventana actual.

De todos modos me han pasado (desde Argentina) una rutina impresionante que
lo hace usando las posibilidades ActiveX de lisp y la variable
GraphicsWinModelBackgrndColor (entre otras) (aqui tambien el prolma sigue
estando en saber cuales son las variables que se deben tocar), que evita el
tener que refrescar la ventana y ademas se puede utilizar tanto en Espacio
Modelo como en las Presentaciones (antiguo Espacio Papel), (recuerda que la
que usa GETENV solo es usable en el Espacio Modelo).

Pongo aqui copia de la rutina por si a alguien mas le sirve de algo ( y para
que todos podamos aprender y usar):

;;; Purpose Toggles the ModelSpace background color between black and white
; ----------------------------------------------------------------------
(defun c:Cambia_Color_Fondo (/) (ax:ToggleMSBackground))
(defun ax:ToggleMSBackground (/ prefDisplay dedonde color crclyc)
(vl-load-com)
(setq prefDisplay (vla-get-Display (vla-get-Preferences
(vlax-get-acad-object))))

(if (= 0 (getvar "TILEMODE"))
(setq dedonde (vla-get-GraphicsWinLayoutBackgrndColor prefDisplay)) ;
espacio Papel
(setq dedonde (vla-get-GraphicsWinModelBackgrndColor prefDisplay)) ;
espacio Modelo
) ; if

(setq color (vlax-variant-value (vlax-variant-change-type dedonde
vlax-vbLong)))

(if (= color 0) ; color Negro
(progn
(setq lyc 16777215)
(setq crc 0)
) ; progn
(progn
(setq crc 16777215)
(setq lyc 0)
) ; progn
) ; if

(if (= 0 (getvar "TILEMODE"))
(progn ; espacio Papel
(vla-put-GraphicsWinLayoutBackgrndColor prefDisplay (vlax-make-variant
lyc vlax-vbLong))
(vla-put-LayoutCrosshairColor prefDisplay (vlax-make-variant
crc vlax-vbLong))
) ; progn
(progn ; espacio Modelo
(vla-put-GraphicsWinModelBackgrndColor prefDisplay (vlax-make-variant
lyc vlax-vbLong))
(vla-put-ModelCrosshairColor prefDisplay (vlax-make-variant
crc vlax-vbLong))
) ; progn
) ; if

(princ)
) ; progn
; ----------------------------------------------------------------------

Salu2 a to2.

Re: Color de Fondo de Pantalla de ACAD

Anonymous — Fri, 25 Jan 2008 19:21:39 GMT

Excelente, Jose!
Creo que la única opción es usar una función propia de ARX, con la cual se puede forzar este refresco de forma automática.
Buscaré y te cuento.

Muchas gracias.

Un saludo.