couleur de fond de plan

[Kevin_Megel]

Bonjour a tous

Est il possible d'avoir des plans avec une couleur de fond different de l'habituelle, sans passer par les options ?

[Anonymous]

Tu veux un fond de plan sur ton papier phisique ou le papier de ton ecran?

[Kevin_Megel]

Je veux pouvoir changer rapidement la couleur de l'ecran, je dempande si il y a un autre moyen que de passer par option /couleur/... etc...

car je le fait regulierement.

(Habituellement il est noir mais quand tu as un fond blanc avec du texte dedans, ben tu vois plus le texte donc tu passe en fond blanc le texte est noir et le blanc est gris, mais le fond blanc me defonce les yeux donc je repasse apres en noir.. etc... le serpent qui se mord la queux

[Anonymous]

Je connais que ca.

Si les couleur entre en compte dans les parametre de l espace de travail ( dessin et anotation, autocad classique...), tu peux en creer un par couleur

[Kevin_Megel]

créer un espace de travail par couleur ?

[Anonymous]

Ouais comme la ou ya ma sourie.

Mais j ai je crois pas que les parametre de couleurs entre en compte la dedans

[Kevin_Megel]

non ça fonctionne pas...

[Anonymous]

met un fond de cette couleur ça va trés bien

[Anonymous]

As tu essayé de jouer avec les parametres de ton ecran pour que le blanc soit agréable à regarder? Je trouve que le fond blanc est moche et eblouissant mais c est malgrés tout, je pense, le plus pertinent a utiliser. 

Sinon tu peux metre ton espace objet d une couleur et tes presentations d une autre et travailler dans tes fenetres de presentations

[Kevin_Megel]

Je ne joue pas avec les parametre de l'ecran, car il me convien comme ça, et je n'aime pas travailler depuis une fenetre dans présentation. Mais merci quand même.

[Olivier.R · Accepted solution]

Bonjour megeon,

Si tu as une version complète, il y a ce lisp de Bonuscad.

(defun c:BlackAndWhite ( / disp fonc1 fonc2 togg_bk togg_cr bg_color cr_color)

        (vl-load-com)

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

        (if (zerop (getvar "tilemode"))

                (setq

                        fonc1 '(vla-put-GraphicsWinLayoutBackgrndColor disp bg_color)

                        fonc2 ' (vla-put-LayoutCrosshairColor disp cr_color)

                        togg_bk (getenv "Layout background")

                        togg_cr (getenv "LayoutXhairPickboxEtc")

                )

                (setq

                        fonc1 '(vla-put-GraphicsWinModelBackgrndColor disp bg_color)

                        fonc2 '(vla-put-ModelCrosshairColor disp cr_color)

                        togg_bk (getenv "Background")

                        togg_cr (getenv "XhairPickboxEtc")

                )

        )

        (cond

                ((and (eq togg_bk "0") (eq togg_cr "16777215"))

                        (setq bg_color 16777215 cr_color 0)

                )

                ((and (eq togg_bk "16777215") (eq togg_cr "0"))

                        (setq bg_color 0 cr_color 16777215)

                )

                (T

                        (initget "Noir Blanc _Black White")

                        (if (eq (getkword "\nCouleur de fond [Noir/Blanc]?: ") "White")

                                (setq bg_color 16777215 cr_color 0)

                                (setq bg_color 0 cr_color  16777215)

                        )

                )

        )

        (eval fonc1)(eval fonc2)

        (princ)

)

 Merci à Bruno pour le partage.

Olivier

[Kevin_Megel]

merci Olivier c'est magique 🙂