DESSINER DES AXES DE RAILS

[jcouaknine]

Bonjour,

 

Mon probleme est simple:

 

Mon dessin genere sous Covadis (12 plus MAP 2011) me trace deux rails d une voie ferree.

 

Il s agit ensuite de dessiner l axe a la main en passant par les points topo de mes rails (milieu entre deux points et Z du rail le plus bas)

La methode est la suivante: commande poly3D > filtre de coordonnees XY > milieu entre deux points > clic sur mes deux points > clic sur le point du Z le pus bas.

Or a l heure actuelle je passe systematiquement par le CTRL clic droit pour faire ces actions.

Existe il une possibilite de creer un lisp pour lancer la CMD POLY3D et m invite ensuite a cliquer le premier point du milieu, le second point du milieu, enfin le point le plus bas, puis ainsi de suite.

 

Merci dd avoir lu ce message et d eventuellement en prendre votre compte.

 

jcouaknine

[(gile)]

Salut,

 

Un petit truc très vite fait.

Tu lances la commande AXE, tu sélectionnes le "Premier point du milieu" puis le "Deuxième point du milieu" et ainsi de suite pour chaque sommet de la polyligne. L'altitude est automatiquement calculée par le programme.

 

(defun c:axe (/ p1 p2)
 (command "_3dpoly")
 (while
   (and
     (setq p1 (getpoint "\nPremier point du milieu: "))
     (setq p2 (getpoint p1 "\nDeuxième point du milieu: "))
   )
    (command
      "_non"
      (list
 (/ (+ (car p1) (car p2)) 2.)
 (/ (+ (cadr p1) (cadr p2)) 2.)
 (min (caddr p1) (caddr p2))
      )
    )
 )
 (command)
 (princ)
)

[jcouaknine]

Hello

 

Merci beaucoup pour ta reponse rapide qui me convient parfaitement.

 

Il ne me reste plus qu a m y mettre... (au lisp)

 

jcouaknine

[belton]

Bonjour,

J'utilise ce Lisp et il marche très bien.

Serait possible de l'améliorer en l'automatisant.

Je m'explique

L'axe se dessinerait automatiquement en selectionnant les deux files de rail. L'altimetrie de ses sommets seraient toujours le Z le plus bas de l'un des deux rails.

Merci pour votre aide