Changer la couleur du fond d\'écran en un clic

[thierry.garré]

Bonjour ,

 

Tout est dans le titre ce serait un rêve :basculer la couleur du fond de la fenêtre graphique entre le noir et le blanc en un clic (un bouton par exemple)

 

en mode présentation au vidéo projecteur , sinon c'est sans arrêt en fonction de la luminosité de la pièce

 

 

si quelqu'un a une idée je suis preneur

 

 

[didier]

coucou

 

 

je te file un extrait de mon lisp perso

 

à toi de voir à la mettre dans un bouton

 

 

moi je tape toutes mes commandes.

 

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

(defun c:FondBlanc()

 

(vl-load-com)

 

(setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object))))

 

(setq drafting (vla-get-drafting (vla-get-preferences (vlax-get-acad-object))))

 

(vla-put-GraphicsWinModelBackgrndColor disp 16777215)

 

(vla-put-GraphicsWinLayoutBackgrndColor disp 16777215)

 

(vla-put-LayoutCrosshairColor disp 0)

 

(vla-put-ModelCrosshairColor disp 0)

 

(vla-put-AutoTrackingVecColor disp 0)

 

(vla-put-AutoSnapMarkerColor drafting 6)

 

(princ)

 

)

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

(defun c:FondNoir ()

 

(vl-load-com)

 

(setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object))))

 

(setq drafting (vla-get-drafting (vla-get-preferences (vlax-get-acad-object))))

 

(vla-put-GraphicsWinModelBackgrndColor disp 0)

 

(vla-put-GraphicsWinLayoutBackgrndColor disp 0)

 

(vla-put-LayoutCrosshairColor disp 16777215)

 

(vla-put-ModelCrosshairColor disp 16777215)

 

(vla-put-AutoTrackingVecColor disp 16777215)

 

(vla-put-AutoSnapMarkerColor drafting 2)

 

(princ)

 

)

 

 

(defun c:basculefond()

 

(vl-load-com)

 

(setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object))))

 

(setq drafting (vla-get-drafting (vla-get-preferences (vlax-get-acad-object))))

 

(if (= (vlax-variant-value

 

(vlax-variant-change-type

 

(vla-get-graphicswinmodelbackgrndcolor disp)

 

vlax-vblong

 

)

 

)

 

0

 

)

 

(c:FondBlanc)

 

(c:FondNoir)

 

)

 

(princ)

 

)

 

 

 

amicalement

[thierry.garré]

c'est pile poil ce qui me fallait

 

grand merci à toi Didier ;)

[Steven]

Mortel ton lisp, Didier.

j'en profite pour le prendre au passage :)

 

Amicalement.