Lisp pour redresser une ligne par rapport à une autre ligne

[crashray]

Bonjour,

J'ai posté une premier post ICI.

J'ai mis un fichier joint à renommer en .dwg pour donner un exemple.

J'ai deux polyligne, une en trait d'axe qui représente l'axe de mon rail et l'autre en trait continu qui est la ligne que je veux retrouver mais avec l'axe "réaligner".

 

En fait, la ligne continu représente un usinage et cette ligne est tracer sur un rail cintré/coudé mais on usine sur un rail droit que l'on cintre/coude par la suite.

 

Un forumeur HBS62 m'a aiguillé sur un lisp http://lee-mac.com/2dprojection.html

Cela se rapproche de ce que je veux faire mais ça ne fonctionne pas. Il m'a conseillé de venir voir par ici si quelqu'un était capable de l'adapter à mon problème.

 

Merci d'avance

 

Hésitez pas à me poser des questions si c'est pas très clair.

Aredressser.pdf