Comment connaitre la couleur d'arrière plan d'un texte ou ligne de repère multiple

[La Lozère]

Bonjour,

Truc de malade.... Comment peut-on à postériori connaitre la couleur du masque d'arrière plan d'un texte ou ligne de repère multiple existant. Quand on va pour modifier la couleur du masque d'arrière plan, il nous propose la dernière couleur utilisée, et pas la couleur actuelle.

Alors, pour connaitre la couleur actuelle, comment faites-vous ? Je ne vois pas....

Merci.

[Steven]

Salut @La Lozère,

Lorsque j'ai besoin de connaître une couleur à l'écran, j'utilise Pipette.

[Olivier Eckmann]

Si c'est une couleur entre 1 et 256, tu peux l'avoir avec cette commande

(cdr (assoc 63 (entget (car (nentsel "\nSélection du texte avec masque : ")))))

Si la couleur est Arrière plan AutoCAD, tu obtiens 256, sinon c'est le numéro de la couleur.

[La Lozère]

Ok, merci à vous. La solution d'Olivier à fonctionné. La pipette pour les autres couleurs on verra. Là je n'ai que des couleurs entre 1 et 256.

[Olivier Eckmann]

Je te propose ça qui permet de lire les couleurs indexées et les couleurs vraies (avec une fonction de LeeMac intégrée pour la conversion)

(defun C:MaskColor ( / LM:True->RGB oMtext oMtextDxf oColor lsColor)
  ;; True -> RGB  -  Lee Mac
  ;; Args: c - [int] True Colour
  (defun LM:True->RGB ( c )
    (mapcar '(lambda ( x ) (lsh (lsh (fix c) x) -24)) '(8 16 24))
  )

  (if (and (setq oMText (car (nentsel "\nTexte avec un mask : ")))
	   (setq oMtextDxf (entget oMText))
      )
    (progn
      (if (setq oColor (assoc 421 oMtextDxf))
	(progn
	  (setq lsColor (LM:True->RGB (cdr oColor)))
	  (alert (strcat "Couleur vraie : " (itoa (car lsCOlor)) "," (itoa (cadr lsCOlor)) "," (itoa (caddr lsCOlor))))
	)
	(alert (strcat "Couleur : " (itoa (cdr (assoc 63 oMtextDxf)))))
      )
    )
  )
)
    

 

MaskColor.lsp

[La Lozère]

Merci 👍