belton
-
Compteur de contenus
2 -
Inscription
-
Dernière visite
belton's Achievements
Newbie (1/14)
0
Réputation sur la communauté
-
(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
-
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