trait multicolor

[haithem]

bonsoir

y'a t'il un moyen ou une astuce pour dessiner un trait en plusieurs couleurs.

 

 

[didier]

bonsoir

 

sujet maintes fois évoqués !

 

Plusieurs solutions plus ou moins exotiques

mais aucune n'est pleinement satisfaisante

donc la réponse est NON.

 

fais une recherche sur le forum, si ça te tente.

 

amicalement

 

[lesourd2]

Salut

 

peut-etre une reponse ici.

 

@+

[jalloul]

bonjour lesourd2

je ne peu pas acceder au fichier.

voila le message que j'obtient

""Désolé, vous ne pouvez pas accéder à ce fichier directement ...""

 

a+

 

[Edité le 3/3/2010 par jalloul]

[lesourd2]

Salut

 

voir ici une piste

[bonuscad]

Juste un exemple vite fait, pour montrer le résultat.

Si cela peut convenir, il faudra approfondir le code.

 

L'avantage: une seule entité crée. L'inconvénient: pas de vraies courbes possible.

 

Pour tester, un copier-coller en ligne de commande

 

((lambda ( / pt l_pt n count)
 (while (setq pt (getpoint "\nPoint suivant: "))
   (setq l_pt (cons pt l_pt))
 )
 (setq n (length l_pt) count 1)
 (command "_.pface")
 (while l_pt
   (command "_none" (car l_pt))
   (setq l_pt (cdr l_pt))
 )
 (command "")
 (repeat (1- n)
   (command "_color" count)
   (command count)
   (command (setq count (1+ count)))
   (command "")
 )
 (command "")
))

[bonuscad]

Un petit peu plus poussé...

 

Génère une entité bicolore (ici rouge-jaune) avec la longueur de tiret voulu.

 

(defun c:line_multi-color ( / js e_curv e_tiret vlaobj pt_start pt_end param_start param_end perim_obj d_x lst_pt n count first_color)
 (princ (strcat"\nSélectionner une entité curviligne: "))
 (while
   (not
     (setq js
       (ssget "_+.:E:S" 
         (list
           (cons 0 "*POLYLINE,LINE,ARC,CIRCLE,ELLIPSE,SPLINE")
           (cons 67 (if (eq (getvar "CVPORT") 2) 0 1))
           (cons 410 (if (eq (getvar "CVPORT") 2) "Model" (getvar "CTAB")))
           (cons -4 "              (cons -4 "&") (cons 70 112)
           (cons -4 "NOT>")
         )
       )
     )
   )
 )
 (redraw (setq e_curv (ssname js 0)) 3)
 (initget 7)
 (setq e_tiret (getdist "\nLongueur du tireté à généré: "))
 (setq
   vlaobj (vlax-ename->vla-object e_curv)
   pt_start (vlax-curve-getStartPoint vlaobj)
   pt_end (vlax-curve-getEndPoint vlaobj)
   param_start (vlax-curve-getStartParam vlaobj)
   param_end (vlax-curve-getEndParam vlaobj)
   perim_obj (vlax-curve-getDistAtParam vlaobj param_end)
 )
 (setq d_x 0.0 lst_pt nil)
 (while (< d_x perim_obj)
   (setq
     lst_pt (cons (vlax-curve-getPointAtDist vlaobj d_x) lst_pt)
     d_x (+ d_x e_tiret)
   )
 )
 (setq n (length lst_pt) count 1 first_color 1)
 (redraw e_curv 4)
;  (entdel e_curv)
 (setvar "cmdecho" 0)
 (command "_.pface")
 (while lst_pt
   (command "_none" (car lst_pt))
   (setq lst_pt (cdr lst_pt))
 )
 (command "")
 (repeat (1- n)
   (command "_color" first_color)
   (command count)
   (command (setq count (1+ count)))
   (command "")
   (setq first_color (rem (1+ first_color) 3))
   (if (zerop first_color) (setq first_color 1))
 )
 (command "")
 (setvar "cmdecho" 1)
 (prin1)
)

[jalloul]

BONJOUR

 

MERCI A VOUS DEUX LESOURD2 ET BONUSCAD

 

MERCI

 

[lili2006]

Bonjour à toutes et tous,

 

En effet sympa le lisp de bonuscad,... :D

[jalloul]

bonsoir à toutes et à tous

 

merci pour les lisp

 

maintenant, une autre idee pour la couleur des traits.

quelqu'un peu nous faire un lisp dessinant une polyligne en 3 ou plusieurs couleurs, mais cette fois-ci superposées (empillees les unes sur les autres), à la maniere de 3 ou plusieurs polylignes superposées avec des largeurs différentes.

a+

 

 

[Edité le 10/3/2010 par jalloul]