Créer un coude sur une gaine

[mikl63]

Je vous propose un lisp permettant de faire un coude en aéraulique.

Taper la commande coudeg (entrée) puis cliquer sur chacun des axes et entrer le diamètre(entrée) encore le diamètre puis entrée.

Le seul défaut, c'est que ça ne fonctionne pas avec une polyligne et que si vous êtes dans autre SCU que le général, les raccord partent très loin.

(defun c:coudeG ()
 (setq pt1 (getpoint "\nMontrer la premiŠre ligne d'axe du coude :")
       pt2 (getpoint "\nMontrer la deuxiŠme ligne d'axe du coude :")
       ray (getdist "\nRayon du coude :")
       dia (getdist "\nDiamŠtre du tube :")
       dia (/ dia 2.0)
 )
 (command "raccord" "r" ray)
 (command "raccord" pt1 pt2)
 (setq lent (entget (entlast))
       lent (subst (cons 40 (+ ray dia))
                   (assoc 40 lent)
                   lent
            )
 )
 (entmake lent)
 (setq lent (entget (entlast))
       lent (subst (cons 40 (- ray dia))
                   (assoc 40 lent)
                   lent
            )
       centre (cdr (assoc 10 lent))
       depart (cdr (assoc 50 lent))
       arrivee (cdr (assoc 51 lent))
 )
 (entmake lent)
 (command "ligne"
          (setq pt3 (polar centre depart (- ray dia)))
          (setq pt4 (polar pt3 depart (* 2.0 dia)))
          ""
 )
 (command "decaler" dia "" pt1 pt3 pt1 pt4 "")
 (command "ligne"
          (setq pt3 (polar centre arrivee (- ray dia)))
          (setq pt4 (polar pt3 arrivee (* 2.0 dia)))
          ""
 )
 (command "decaler" dia "" pt2 pt3 pt2 pt4 "")
 (princ)
)