coude 3d

[philippe62]

;;version 20 09 2013

;;

;; PHILIPPE B

(defun c:COUDE (/ pdir rm p1 R dn )

(command "_undo" "_be")

(setq p1 (getpoint "\nPoint de départ du coude :"))

(if p1 (setq pdir (getpoint p1 "\n direction du coude <>: ")))

(cond

((and p1 pdir)

(command "_ucs" "_zaxis" "_none" p1 "_none" pdir)

(setq p1 '(0. 0. 0.))

)

)

 

(initget "Autre 10 15 20 25 32 40 50 65 80 100 125 150 200 250 300")

(setq dn (getkword "\n dn [10/15/20/25/32/40/50/65/80/100/125/150/200/250/300]:"))

(cond

((= dn "10") (setq dia 17.2) (setq rm 25)) ((= dn "15") (setq dia 21.3) (setq rm 28)) ((= dn "20") (setq dn 26.9) (setq rm 28.5))

((= dn "25") (setq dia 33.7) (setq rm 38)) ((= dn "32") (setq dia 42.4) (setq rm 47.5)) ((= dn "40") (setq dia 48.3) (setq rm 57))

((= dn "50") (setq dia 60.3) (setq rm 76)) ((= dn "65") (setq dia 76.1) (setq rm 95)) ((= dn "80") (setq dia 88.9) (setq rm 114.5))

((= dn "100") (setq dia 114.3) (setq rm 152)) ((= dn "125") (setq dia 139.7) (setq rm 190)) ((= dn "150") (setq dia 168.3) (setq rm 228))

((= dn "200") (setq dia 219.1) (setq rm 304)) ((= dn "250") (setq dia 273) (setq rm 380 )) ((= dn "300") (setq dia 323.9) (setq rm 456))

((= dn "Autre") (setq dn (getdist "\nDiamètre en mm:")))

(t (princ))

)

 

(command "_pline"

 

(list (- (nth 0 p1) rm) (nth 1 p1) (nth 2 p1))

"_A"

"_CE"

p1

"_A"

-90

"_LI"

"")

(setq ss1 (entlast))

(setq R (/ dia 2))

(command "_circle" p1 R)

(setq ss2 (entlast))

(command "_sweep" ss2 "" "_L" ss1)

(prin1)

)