Classement

HELLO @(gile) avec ton lisp, si des fois on devait faire l'inverse pour les couleurs chercher des couleurs vraies ( RVB) et les remplacer par des couleurs index ACI. on ne pourrait plus utiliser (ssget "_X" (list (cons 62 aci))) car il y a plus de couleurs vraies que les 256 couleurs indexées. ex rdv = index ACI : 60,195,123 = 103 60,195,124 = 103 faudrait tout sélectionner et vérifier pour chaque entité si "setpropertyvalue" ... "color" est égal à "60,195,123" par exemple. Non? Phil

Salut, Tu peux essayer ça. Il faut modifier/compléter la liste des couleurs dans le code en respectant le format : (indexACI . "rouge,vert,bleu") (defun c:willyChangeColor (/ changeColor colors) (defun changeColor (aci rgb / ss i) (if (setq ss (ssget "_X" (list (cons 62 aci)))) (repeat (setq i (sslength ss)) (setpropertyvalue (ssname ss (setq i (1- i))) "Color" rgb) ) ) ) ;; Liste à compléter en respectant le format : (indexACI . "rouge,vert,bleu") (setq colors '( (91 . "255,255,219") (31 . "255,224,194") ;; ... ) ) (foreach p colors (changeColor (car p) (cdr p))) (princ) ) PS : on ne peut pas forcer la luminance si on spécifie les valeurs de rouge, vert, bleu. Si R,V,B est égal à 255,255,219 la luminance est égale à 93. Si je force la luminance à 90 le R,V,B devient : 255,255,204.

@lili2006 Les fichiers en mode paysage. Fichiers