deux couleur

[benoitlacroix]

bonjour Cadxpiens et Cadxpiennes

 

une question viens de me percuté violemment (ça ne fait pas mal):

Peut-on associer deux couleur pour un même objet ? Par exemple un trait peut être soit rouge ou soit jaune, mais peut il avoir l'alternance de ces deux couleur?

 

 

intéressant comme question, non

 

aller, merci pour vos réponse à venir

[didier]

coucou

 

je ne sais plus si on a trouvé mieux que ce que je vais te dire

car on en a déjà parlé

 

la bidouille à deux balles c'est de faire deux lignes

les changer en type tireté je dis bien tireté

(tellement de gens appellent çà pointillé par erreur de langage)

les décaler de la valeur de l'espace du tireté

puis les changer de couleur individuellement.

 

ce n'est pas très efficace mais dans les alignements droits çà le fait...

 

amicalement

 

[bonuscad]

Il est vrai qu'on en a déjà parlé et évoqué ce genre de solution.

 

L'ennui est qu'on génère 2 entités décalées et surtout ont ne sait plus après coup les extrémités à retenir comme exactes (si celles-ci ont leur importance)

 

Tout cela pour en venir à une idée qui m'ai venue à l'esprit en regardant les PMAILLE.

Je me suis posé la question, à savoir si il ne serait pas possible de créer par programmation une PMAILLE (une représentation un peu comme des maillons d'une chaine) et d'affecté (à chaque maillon, qui serait une face à 4 cotés) une couleur précise.

 

J'avais essayé manuellement en lisp (et la commande PMAILLE est vraiment pas évidente) à faire 2 maillons successifs de couleur différente et cela à l'air de pouvoir se faire.

 

Je pense que se serait un bon challenge, surtout pour les champions des fonctions récursives (vous voyez à qui je peux penser ;) ), pour mettre en place ces sommets de PMaille.

 

Une seule entité avec des couleurs propre indépendamment de celle du calque.

Par contre cela serait une entité complexe avec beaucoup de point de définition (faudrait pas en abuser sous peine que le dessin prenne une taille pharaonienne)

 

Est ce que le jeu en vaut la chandelle?

[lesourd2]

SALUT

 

 

Ce petit bout de code te convient -il ?

 

 (defun c:mp(/ Cmd Co Coo Compt ep Lg os Pt1 Pt2 Pts Pas s)

(defun *errmp* (msg)
(if (/= msg "Function cancelled")
(if (= msg "quit / exit abort")
(princ)
(princ (strcat "\nErreur : " msg))
)
(princ)
)
(if os
(setvar "osmode" os)
)
(setvar "cecolor" coo)
(command "_.undo" "_end")
(setvar "cmdecho" Cmd)
(setq *error* s)
(princ)
)

(defun cg_co()
(setvar "cecolor" (itoa Co))
;;permet de changer la valeur de la premiere couleur;;
(if (= Co 131)
;;permet de changer la valeur de la deuxieme couleur;;
(setq Co 213)
(setq Co 131)
)
)

(setq s *error*)
(setq *error* *errmp*)
(setq Cmd (getvar "cmdecho") Coo (getvar "cecolor"))
(setvar "cmdecho" 0)
(setq Ep (getstring (strcat "\nEpaisseur des polylignes <" (rtos (getvar "plinewid")) "> : ")))
(if Ep
(setvar "plinewid" (atof Ep))
)
;;permet de changer la valeur de la couleur du premier troncon;;
(setq Pt1 (getpoint "\nPremier point : ") Pt2 '(0.0 0.0 0.0) Co 10 Compt 0)
(if Pt1
(progn
(setq Pts (list (cons 0 Pt1)))
(while Pt2
(initget "Undo")
(setq Pt2 (getpoint Pt1 "\nPoint suivant / Undo : "))
(if Pt2
(progn
(if (= Pt2 "Undo")
(progn
(if (/= Compt 0)
(progn
(command "_.undo" "1")
(setq Pts (vl-remove (assoc Compt Pts) Pts) Compt (1- Compt) Pt1 (cdr (assoc Compt Pts)))
)
(princ "\nRien à annuler")
)
)
(progn
(command "_.undo" "_group")
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq Pas 0 Lg (* (getvar "ltscale") 5))
(while (< Pas (- (distance Pt1 Pt2) Lg))
(cg_co)
(command "_.pline" (if (= Pas 0)
Pt1
"@"
)
(strcat "@" (rtos Lg) "<" (angtos (angle Pt1 Pt2) 0 16))
"")
(setq Pas (+ Pas Lg))
)
(cg_co)
(command "_.pline" "@" Pt2 "")
(setvar "osmode" os)
(setvar "cecolor" coo)
(command "_.undo" "_end")
(setq Pt1 Pt2 Compt (1+ Compt) Pts (append Pts (list (cons Compt Pt2))))
)
)
)
)
)
)
)
(setvar "cmdecho" Cmd)
(setq *error* s)
(princ)
)

 

 

@+

[Calecx]

Je viens de tester cette lisp, elle me semble très bien sur le principe, mais chez moi elle bug, impossible de faire une suite de polylignes droites, je clic un 1er point, puis un second, et systématiquement le point suivant se décale, au final ça me dessine des montagnes russes, curieux non? J'ai juste modifié le nom de la lisp de c:mp en c:bicolor, chez moi mp c'est le nom d'une autre lisp.

 

Cordialement.