Bonjour, J'aimerais savoir si quelqu'un pourrait rajouter les fer UPN Cornière et autres sur le lisp suivant (defun c:IPN ( / IPE_data IPEA_data HEA_data HEB_data HEM_data PA_data sv_mnu typ_ipn l_data l_str model_ipn l_val pt_ins h b a e r po p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16) (setq IPE_data '( (80 . (80 46.0 3.8 5.2 5)) (100 . (100 55.0 4.1 5.7 7)) (120 . (120 64.0 4.4 6.3 7)) (140 . (140 73.0 4.7 6.9 7)) (160 . (160 82.0 5.0 7.4 9)) (180 . (180 91.0 5.3 8.0 9)) (200 . (200 100.0 5.6 8.5 12)) (220 . (220 110.0 5.9 9.2 12)) (240 . (240 120.0 6.2 9.8 15)) (270 . (270 135.0 6.6 10.2 15)) (300 . (300 150.0 7.1 10.7 15)) (330 . (330 160.0 7.5 11.5 18)) (360 . (360 170.0 8.0 12.7 18)) (400 . (400 180.0 8.6 13.5 21)) (450 . (450 190.0 9.4 14.6 21)) (500 . (500 200.0 10.2 16.0 21)) (550 . (550 210.0 11.1 17.2 24)) (600 . (600 220.0 12.0 19.0 24)) ) IPEA_data '( (80 . (78.0 46 3.3 4.2 5)) (100 . (98.0 55 3.6 4.7 7)) (120 . (117.6 64 3.8 5.1 7)) (140 . (137.4 73 3.8 5.6 7)) (160 . (157.0 82 4.0 5.9 9)) (180 . (177.0 91 4.3 6.5 9)) (200 . (197.0 100 4.5 7.0 12)) (220 . (217.0 110 5.0 7.7 12)) (240 . (237.0 120 5.2 8.3 15)) (270 . (267.0 135 5.5 8.7 15)) (300 . (297.0 150 6.1 9.2 15)) (330 . (327.0 160 6.5 10.0 18)) (360 . (357.6 170 6.6 11.5 18)) (400 . (397.0 180 7.0 12.0 21)) (450 . (447.0 190 7.6 13.1 21)) (500 . (497.0 200 8.4 14.5 21)) (550 . (547.0 210 9.0 15.7 24)) (600 . (597.0 220 9.8 17.5 24)) ) HEA_data '( (100 . (96.0 100 5.0 8.0 12)) (120 . (114.0 120 5.0 8.0 12)) (140 . (133.0 140 5.5 8.5 12)) (160 . (152.0 160 6.0 9.0 15)) (180 . (171.0 180 6.0 9.5 15)) (200 . (190.0 200 6.5 10.0 18)) (220 . (210.0 220 7.0 11.0 18)) (240 . (230.0 240 7.5 12.0 21)) (260 . (250.0 260 7.5 12.5 24)) (280 . (270.0 280 8.0 13.0 24)) (300 . (290.0 300 8.5 14.0 27)) (320 . (310.0 300 9.0 15.5 27)) (340 . (330.0 300 9.5 16.5 27)) (360 . (350.0 300 10.0 17.5 27)) (400 . (390.0 300 11.0 19.0 27)) (450 . (440.0 300 11.5 21.0 27)) (500 . (490.0 300 12.0 23.0 27)) (550 . (540.0 300 12.5 24.0 27)) (600 . (590.0 300 13.0 25.0 27)) (650 . (640.0 300 13.5 26.0 27)) (700 . (690.0 300 14.5 27.0 27)) (800 . (790.0 300 15.0 28.0 30)) (900 . (890.0 300 16.0 30.0 30)) (1000 . (990.0 300 16.5 31.0 30)) (1100 . (1090.0 300 18.0 31.0 20)) ) HEB_data '( (100 . (100 100 6.0 10.0 12)) (120 . (120 120 6.5 11.0 12)) (140 . (140 140 7.0 12.0 12)) (160 . (160 160 8.0 13.0 15)) (180 . (180 180 8.5 14.0 15)) (200 . (200 200 9.0 15.0 18)) (220 . (220 220 9.5 16.0 18)) (240 . (240 240 10.0 17.0 21)) (260 . (260 260 10.0 17.5 24)) (280 . (280 280 10.5 18.0 24)) (300 . (300 300 11.0 19.0 27)) (320 . (320 300 11.5 20.5 27)) (340 . (340 300 12.0 21.5 27)) (360 . (360 300 12.5 22.5 27)) (400 . (400 300 13.5 24.0 27)) (450 . (450 300 14.0 26.0 27)) (500 . (500 300 14.5 28.0 27)) (550 . (550 300 15.0 29.0 27)) (600 . (600 300 15.5 30.0 27)) (650 . (650 300 16.0 31.0 27)) (700 . (700 300 17.0 32.0 27)) (800 . (800 300 17.5 33.0 30)) (900 . (900 300 18.5 35.0 30)) (1000 . (1000 300 19.0 36.0 30)) (1100 . (1100 300 20.0 36.0 20)) ) HEM_data '( (100 . (120 106 12.0 20.0 12)) (120 . (140 126 12.5 21.0 12)) (140 . (160 146 13.0 22.0 12)) (160 . (180 166 14.0 23.0 15)) (180 . (200 186 14.5 24.0 15)) (200 . (220 206 15.0 25.0 18)) (220 . (240 226 15.5 26.0 18)) (240 . (270 248 18.0 32.0 21)) (260 . (290 268 18.0 32.5 24)) (280 . (310 288 18.5 33.0 24)) (300 . (340 310 21.0 39.0 27)) (320 . (359 309 21.0 40.0 27)) (340 . (377 309 21.0 40.0 27)) (360 . (395 308 21.0 40.0 27)) (400 . (432 307 21.0 40.0 27)) (450 . (478 307 21.0 40.0 27)) (500 . (524 306 21.0 40.0 27)) (550 . (572 306 21.0 40.0 27)) (600 . (620 305 21.0 40.0 27)) (650 . (668 305 21.0 40.0 27)) (700 . (716 304 21.0 40.0 27)) (800 . (814 303 21.0 40.0 30)) (900 . (910 302 21.0 40.0 30)) (1000 . (1008 302 21.0 40.0 30)) ) PA_data IPEA_data ) (setq sv_mnu (getvar "SHORTCUTMENU")) (setvar "SHORTCUTMENU" 11) (initget 1 "IPE IPEA PA HEA HEB HEM") (setq typ_ipn (getkword "\nType de poutre [iPE/IPEA/PA/HEA/HEB/HEM]?: ")) (setq l_data (eval (read (strcat typ_ipn "_data")))) (setq l_str nil) (initget 1 (apply 'strcat (mapcar 'strcat (repeat (length l_data) (setq l_str (cons "M" l_str))) (mapcar 'itoa (mapcar 'car l_data)) (repeat (length l_data) (setq l_str (cons " " l_str)))))) (setq l_str nil) (setq model_ipn (getkword (strcat "\nModèle de poutre [" (apply 'strcat (mapcar 'strcat (repeat (length l_data) (setq l_str (cons "M" l_str))) (mapcar 'itoa (mapcar 'car l_data)) (repeat (length l_data) (setq l_str (cons "/" l_str))))) "]?: ")) ) (setvar "SHORTCUTMENU" sv_mnu) (setq l_val (cdr (assoc (atoi (substr model_ipn 2)) l_data))) (initget 1) (setq pt_ins (getpoint "\nPoint d'insertion?: ")) (setq h (car l_val) b (cadr l_val) a (caddr l_val) e (cadddr l_val) r (last l_val)) (setq po (polar pt_ins (* pi 0.5) (* h -0.5)) p1 (polar po 0.0 (* b 0.5)) p2 (polar p1 (* pi 0.5) e) p3 (polar p2 pi (- (* b 0.5) (* a 0.5) r)) p4 (polar (polar p3 (* pi 0.5) r) pi r) p5 (polar p4 (* pi 0.5) (- h (* 2.0 r) (* 2.0 e))) p6 (polar (polar p5 0.0 r) (* pi 0.5) r) p7 (polar p6 0.0 (- (* b 0.5) (* a 0.5) r)) p8 (polar p7 (* pi 0.5) e) p9 (polar p8 pi B) p10 (polar p9 (- (* pi 0.5)) e) p11 (polar p10 0.0 (- (* b 0.5) (* a 0.5) r)) p12 (polar (polar p11 (- (* pi 0.5)) r) 0.0 r) p13 (polar p12 (- (* pi 0.5)) (- h (* 2.0 r) (* 2.0 e))) p14 (polar (polar p13 pi r) (- (* pi 0.5)) r) p15 (polar p14 pi (- (* b 0.5) (* a 0.5) r)) p16 (polar p15 (- (* pi 0.5)) e) ) (setvar "cmdecho" 0) (command "_.pline" "_none" p1 "_none" p2 "_none" p3 "_arc" "_none" p4 "_line" "_none" p5 "_arc" "_none" p6 "_line" "_none" p7 "_none" p8 "_none" p9 "_none" p10 "_none" p11 "_arc" "_none" p12 "_line" "_none" p13 "_arc" "_none" p14 "_line" "_none" p15 "_none" p16 "_close" ) (setvar "cmdecho" 1) (command "_.extrude" (entlast) "") (prin1) ) Merci IPN.lsp