Moyenne entre 2 polylignes

[vindaro]

Bonjour,

 

Je viens vers vous pour savoir s'il existe un moyen de dessiner une polyligne moyenne entre 2 polylignes n'ayant pas le même nombre de sommets?

 

J'ai essayé avec la fonction "Moyenne entre 2 polylignes" du menu Covadis3D et Gestion des polylignes 2D mais il me fait un truc super bizarre comme moyenne...

 

Les polylignes concernées possèdent des arc je ne sais pas si cela a une influence...ou peut-être qu'il existe une Lisp qui permet de créer cette polyligne en lui disant par exemple que tous les 5 m il lmesure la moitié du segment qui lie les 2 polylignes initiales...

 

En tout cas merci d'avance pour vos éventuelles réponses....

[lili2006]

Bonsoir à toutes et tous,

 

Il y a eu un post il y a quelques mois sur ce pb,...Fais une recherche sur le forum

[lili2006]

Re,

 

J'ai retrouvé ,

 

 (defun c:MidPline (/ pl1 pl2 elst1 elst2)

 (if (and

(setq pl1 (car (entsel "\nSélectionnez la première polyligne: ")))

(setq elst1 (entget pl1))

(= "LWPOLYLINE" (cdr (assoc 0 elst1)))

(setq pl2 (car (entsel "\nSélectionnez la seconde polyligne: ")))

(setq elst2 (entget pl2))

(= "LWPOLYLINE" (cdr (assoc 0 elst2)))

(not (equal pl1 pl2))

     )

   ((lambda (pts blgs)

      (entmake

 (append

   (list

     '(0 . "LWPOLYLINE")

     '(100 . "AcDbEntity")

     '(100 . "AcDbPolyline")

     (cons 90 (length pts))

     (assoc 70 elst1)

     (assoc 210 elst1)

   )

   (apply 'append (mapcar '(lambda (p b) (list (cons 10 p) (cons 42 b))) pts blgs))

 )

      )

    )

     (mapcar 'midpoint (massoc 10 elst1) (massoc 10 elst2))

     (mapcar '(lambda (x1 x2) (/ (+ x1 x2) 2.)) (massoc 42 elst1) (massoc 42 elst2))

   )

 )

 (princ)

)



(defun massoc (code alst)

 (if (setq alst (member (assoc code alst) alst))

   (cons (cdar alst) (massoc code (cdr alst)))

 )

)



(defun midpoint	(p1 p2)

 (mapcar '(lambda (x1 x2) (/ (+ x1 x2) 2.)) p1 p2)

)

[thierry.garré]

Les arcs sur les polylignes d'origine ne sont pas un probleme.

 

Par contre il n'y en aura pas sur la polyligne moyenne

 

Si le resultat est bizarre c'est peut etre du au fait que les deux polylignes sources n'ont pas le même sens

[lili2006]

Re,

 

Juste pour comparer avec un tracé improbable,...

 

http://img.ahst.fr/data/images/milieuentr.jpg

[lili2006]

Re,

 

Semble idem sur les parties droites,...

 

http://img.ahst.fr/data/images/milieutvt.jpg

 

Le fichier

[lovecraft]

Bonsoir,

 

Ah je pense qu'il faut un p'tit perfectionnement sur Covadis ;) .....

 

Voici ce que j'ai comme résultat avec l'exemple de Lilian

 

http://images.imagehotel.net/j9mdod8v73.png

 

Ce qu'il faut faire lorsqu'on a des arcs,c'est qu' il faut spécifier un nombre de points (en sorte de discrétisation) dans l'exemple ci-dessus la valeur est de 50.

 

Voilou,

 

Cordialement,

 

Laurent

[lili2006]

Re,

 

Salut Laurent,

 

En effet, c''est bien mieux,... ;)

[vindaro]

Merci à vous je reste toujoujours étonner de la réctivité de ce forum...c'est vraiment super...

 

en fait effectivement j'avais modifié mon post initial pour dire que les 2 polylignes n'allaient pas dans le même sens d'où une polyligne moyenne très bizarre....

 

Lovercraft à quoi penses-tu lorsque tu dis "un p'tit perfectionnement sur Covadis"?

 

en tout cas merci encore pour vos réponses supersoniques...

[lili2006]

Bonjour à toutes et tous,

 

Lovercraft à quoi penses-tu lorsque tu dis "un p'tit perfectionnement sur Covadis"?

 

Si tu refais la même construction (50 points de densification) et que tu cotes ta poly moyenne par rapport aux polylignes de départ tu verras que le lisp de (gile) est légérement plus précis me semble t-il.

 

C'est mon point de vue mais peut-être pas celui de lovecraft ,..... ;)

[vindaro]

Bonjour à toutes et tous,

 

Je reviens vers vous car j'ai un souci avec le lisp "midpline" de (gile)...la polyligne générée me donne qqch de très bizarre (les polylignes sont bien dans le même sens)...j'ai effectué la même manip avec la commande "polymoy" de covadis le résultat est meilleur mais je ne comprends pas pourquoi midpline ne fonctionne pas correctement...

si quelqu'un a une idée?

 

je vous envoie ci-joint un exemple.

exemple

 

NB: je ne sais pas si c'est possible mais peut-on transformer "midpline" pour avoir des arcs moyens(lorsque les 2 polylignes concernées comportent des arcs)?

[lovecraft]

Bonjour,

 

C'est normal que le lisp de Gile ne fonctionne pas, car tu as l'une des polylignes qui a un point double. Cf image ci-dessous "Cercle rouge"

 

http://img11.hostingpics.net/thumbs/mini_881215midplineerreur.png

 

Après suppression de celui-ci (Cov-édition => polylignes => supprimer points doubles) le lisp de Gile fonctionne à nouveau.

 

Cordialement,

 

Laurent

[vindaro]

Merci Laurent pour ta réponse...

 

j'enlève parfois les points doubles sur les polylignes mais c'est vrai que je ne le fais pas systématiquement...encore une leçon d'apprise...

 

En fait là je suis sur un projet de lotissement avec une voirie où j'aimerais utiliser par la suite les demi-profils de covadis. Mais lorsque j'essaie d'utiliser "polymoy" de covadis ou "midpline" pour créer une polyligne moyenne (servant par la suite d'axe en plan) j'ai des résultats un peu bizarre...j'ai effectué la suppression des points doubles mais le résultat semble toujours un peu étrange par endroit...

 

ci joint Ma voirie.

 

des idées? merci d'avance.

 

(d'ailleurs je me demande si je ne vais pas avoir de problèmes lors du résultat du calcul du projet avec ces angles droits au niveau de la voirie... à chaque étape ses problèmes)

[didier]

coucou

 

une réponse, non sur les façon de faire une polyligne moyenne,

mais sur l'utilité (ou plutôt l’inutilité)

d'en faire une dans le cas de ton projet.

 

il ne faut pas confondre AXE en plan

et AXE de voirie

l'un est la ligne directrice d'un projet

l'autre est effectivement le milieu d'une pièce

la meilleure image est l'axe d'une toupie

 

dans ton cas, vouloir mettre l'axe en plan sur une polyligne moyenne est

inutile,farfelu, superfétatoire,biscornu, saugrenu...

 

amicalement

[vindaro]

Bonjour,

 

merci Didier pour ta réponse..."et je dirais même plus c'est improductif" (dixit Dupond ou Dupont)...

 

Penses-tu que je vais rencontrer des problèmes lors de la mise en oeuvre des demi-profils au niveau des virages à angles droits? de toute façon pour le savoir il faut essayer...on verra...

 

Il n'empêche que même s'il est inutile de définir une polyligne moyenne dans le cadre de mon projet,je me demande bien pourquoi le lisp de Gile "midpline" donne un résultat peu convaincant...(peut-être que la différence du nombre de sommets est trop importante?)...

 

Encore merci pour votre aide...