poliligne multicouleur

[nono1970]

salut tout le monde

ça faisait longtemps que je n'etais pas passer par ici

 

j'ai un gros soucis pour creer une poliligne multicouleur

 

explication j'ai besoin de dessiner une poliligne representant la terre electrique dont la couleur est Vert/jaune, mais au lieu de faire comme d'habitude, une ligne verte collé à une ligne Jaune ou un morceau de vert puis de jaune

j'aimerais bien creer une ligne de couleur vert puis jaune.

Je ne sais pas si ça existe dites moi tout

Merci pour votre aide

Nono

[Dinosor]

Je ne pense pas que cela existe...

 

Toutefois tu peux faire une polyligne discontinue et une autre polyligne continue l'une sur l'autre. Les deux de couleurs différentes, la discontine dessus...

 

Bonne journée.

[nono1970]

merci pour l'info dinosorus,

 

celà fait partie des combines que j'utilise

 

j'ai essayé un peu tout et n'importe quoi on va attendre qu'autodesk nous permette la gestion multicouleur

 

encore merci

 

[Dinosor]

Voilà,

 

Je t'ai trouvé une parade....

 

Utilises la fonction _mline pour générer une Multiligne. Créé alors une multiligne avec deux traits de couleur différente, dont un style discontinu. L'écart entre les lignes doit être rapporté à 0.

Tu verras que selon l'ordre que tu créé tes élément, la ligne cache d'abord par exemple en rouge et la ligne continue en vert en deuxième, cela fonctionne.

 

Bonne suite !

[Dinosor]

C'est pas mal finalement, je met ça de côté.

 

Merci. :)

[Dinosor]

En fait ça marche si le premier trait est de style discontinu et le deuxième DUCALQUE, je ne sais pas pourquoi...A creuser. Ca peut servir quand-même...

[thierry.garré]

Pas mal.

 

 

Mais l'incoveniant des multilignes c'est qu'il n'y a pas d'arc.....

[lesourd2]

Salut à tous

Moi j'ai ça a vous proposer

 

 (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)
)

 

Merci à son Auteur

 

@+

[Dinosor]

ALors ça c'est fort ! Il y en a un qui propose quelque chose que je n'imaginais pas en rêves...

 

J'essaie demain, promis.

 

Merci lesourd2, ce site est vraiement "habité" par des personnages hors du commun et tu en fais partie ! (j'éspère que ça fonctionne ! J'suis pas @ AutoCad à cette heure...)

 

Bonne nuit à tous.

 

Le vieux de la veille.

[nono1970]

ça c'est magnifique

un bon petit prog comme j'aime

j'essaye ça de suite

encore merci à tous pour votre aide

 

NONO

[lesourd2]

Salut,

 

Merci lesourd2, ce site est vraiement "habité" par des personnages hors du commun et tu en fais partie

 

Comment dois-je le prendre?

 

j'éspère que ça fonctionne !

 

Je confirme "ça marche".

 

un bon petit prog comme j'aime

 

J'ai juste retransmis le savoir et le travail d'un pro.

[Dinosor]

Désolé Lesourd2, j'voulais juste féliciter tous ceux qui prennent de leur temps pour nous aider (toi notamment). Quand je dis que ce blog est "habité", c'est que je le trouve très vivant. Les habitants c'est nous tous...

 

Bonne journée ! ;)

 

Seul on va plus vite, ensemble on va plus loin.

[speedy]

Bonjour à toutes et à tous

 

Pour les couleurs Vert/jaune............

remplacer ces lignes.......

(if (= Co 131)

(setq Co 213)

(setq Co 131)

(setq Pt1 (getpoint "\nPremier point : ") Pt2 '(0.0 0.0 0.0) Co 10 Compt 0)

 

Par.....

 

(if (= Co 100)

(setq Co 50)

(setq Co 100)

(setq Pt1 (getpoint "\nPremier point : ") Pt2 '(0.0 0.0 0.0) Co 100 Compt 0)

 

@+

 

Michel a

[philous2]

Bjr,

J 'ai testé avec succès à ta macro lesourd2, très bien, juste 2 remarques (simple remarque), pour changer éventuellement les couleurs choies ou souhaité pas très pratique et surtout sauvegardé. Serait-ilpossible de rajouter un petit menu proposant une palette de couleur style palette autocad et ainsi ppouvoir modifier au démarrage les couleurs désirées. Autre remarque est-possible de modifier la longueur des segments de couleurs.

lesourd2 c'est juste 2 remarques en tant que non lispeur car super boulot

 

Phil