Lisp axe de rail

[belton]

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

 

Bonjour,

J'utilise ce Lisp de GILE 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

Modifié le 21 octobre 2017 par didier
Mise en page du code