usegomme

https://1drv.ms/f/s!Am_FKRdjqVRZhBDwYE_rP_oGJoJE https://drive.google.com/drive/folders/10GVboAodPx9Qkny7yNTYXxL7slXj7gVV?usp=sharing Salut tout le monde Bonuscad a vu juste, je suis à la retraite depuis 2019 et surtout, à partir de 2014, je n'ai plus vraiment travaillé avec Autocad. J'ai toutefois eu ensuite à ma disposition un Autocad 2015. Tout ça pour dire que je ne sais pas si mes lisp fonctionnent correctement au delà de la version 2015. J'ai encore sur un vieux PC un 2013, il ne faudra donc pas compter sur moi pour corriger des bugs. Les deux liens au dessus envoient sur OneDrive de Microsoft ou le Drive Google qui contiennent les mêmes fichiers. Avec la dernière version de Tuyau3d, on peut tout faire en "solide" comme avant, mais aussi tout en éléments "bloc" avec des attributs, sauf le calorifuge. Pour faciliter la création des tuyaux en bloc, j'avais rajouter une case de dialogue avec laquelle on peut aussi copier les propriétés d' un tube existant (cde CTUB). Il y a 2 fichiers additionnel pour faire fonctionner la case de dialogue. La difficulté avec les blocs, c'est qu'il faut pouvoir étirer les tubes en cas de modif. Aussi j'avais rajouté la cde ETUB pour étire tube, qui en réalité remplace le bloc par un autre. Si le changement de longueur est fait par une autre méthode , il y a un petit lisp pour mettre à jour l' attribut de longueur du tube (matlg.lsp). Vous trouverez aussi dans les lisp les raccords, les profilés métalliques etc.. Quand il y a un "B" devant ou derrière le nom, c'est que le lisp crée des blocs. Il y a aussi les lisp Bride et BBride initialement crée par Bonuscad avec un structure un peu sophistiqué qui m'a mis en difficulté pour le faire évoluer. J'avais fait une mise à jour de la normalisation, grosse galère mais importante. Mes remerciements à tous ceux qui bossent et cotisent pour ma retraite car je n'ai pas prévu de mourir de sitôt , et désolé pour la votre de retraite, mais je plaide non coupable car je n'ai pas voté Manu et j'ai cotisé de 18 à 64 ans avec une formation professionnelle chemin faisant. Au plaisir

Merci 👍

https://1drv.ms/f/s!Am_FKRdjqVRZhBDwYE_rP_oGJoJE https://drive.google.com/drive/folders/10GVboAodPx9Qkny7yNTYXxL7slXj7gVV?usp=sharing

Bonjour Tête en l'air que je suis, c'est un oubli ! ;;; BBRIDE.lsp insère ou crée puis insère des blocs de bride pour tuyauterie 3D ;;; avec attributs invisibles et prédéfinis selon la bride. ;;; ce lisp est une adaptation de BRIDE.lsp de Bonuscad ;;; Usegomme le 30-03-2010 ;;; 08/11/2010 orientation bride 8 trous et + ;;; 21/01/2011 gestion erreur et delobj + scu ;; suivant norme NF E 29-203 1986 (périmée) ;; 31/03/2011 passage à la norme EN 1092-1:2007 jusqu' à PN40 ;; 09/05/2012 scu dynamique utilisable, compléter tableau PN10 pour br plate dn700 à 1200 ;; 31 07 2012 accepte "m2p" milieu entre 2 points. ;; 02 04 2015 ajouté chg calque->0 pour création bloc (defun erreurbride (msg) (setvar "delobj" delobjet) (if sv_dm (setvar "DYNMODE" sv_dm)) (setvar "CMDECHO" 1) (if (not (zerop (getvar "cmdactive")))(command)) (command "_undo" "_e") (command "_u") (setq *error* m:err m:err nil) (princ "\nPas de valeur dans base données pour ce type de bride") (prin1) ) (defun c:bbride ( / PN6 PN10 PN20 PN25 PN40 PN50 PN100 PN150 PN250 PN420 sv_mnu typ_brd l_data l_str model_brd unit_key unit_draw l_val pt_ins js_add js_remove e1 j d1 d2 typ_collet axebride PN_brd talon atdia af tsize st) (setq m:err *error* *error* erreurbride) (command "_undo" "_g") (setq delobjet (getvar "delobj")) (setvar "delobj" 2) (setvar "CMDECHO" 0) (setq js_add (ssadd) js_remove (ssadd)) (initget 1) ;(setq pt_ins (getpoint "\nPoint d'insertion?: ") js_add (ssadd) js_remove (ssadd)) (prompt "\n Specifiez le point d'insertion") (command "_ucs" pause ) ;; ligne ci-dessous pour "m2p" si problème mettre un ; devant pour la désactiver. (while (not (equal (getvar "lastpoint") '(0.0 0.0 0.0) 0.01))(command pause)) (command "") (setq pt_ins '(0. 0. 0.)) ;; orientation bride (prompt "\n Direction de la bride <>") (command "_ucs" "_zaxis" "" pause) (setq sv_dm (getvar "DYNMODE")) (cond ((< sv_dm 0) (setq dm (* sv_dm -1)) (setvar "DYNMODE" dm)) (t (setq sv_dm nil dm nil)) ) ;; definition de l'unité de dessin , en cas d'erreur de choix réinitialisé "users5" via la ligne de commande (if (or (eq (getvar "USERS5") "") (not (eq (substr (getvar "USERS5") 1 2) "qz"))) (progn (initget "ME CM MM") (if (not (setq unit_key (getkword "\nDessin réalisé en [ME/CM/MM] <MM>: "))) (setq unit_key "MM") ) (cond ((eq unit_key "ME") (setq unit_draw 1000) ) ((eq unit_key "CM") (setq unit_draw 10) ) ((eq unit_key "MM") (setq unit_draw 1) ) ) (setvar "USERS5" (strcat "qz" (itoa unit_draw))) (setq unit_draw (/ 1.0 unit_draw)) ) (setq unit_draw (/ 1.0 (atoi (substr (getvar "USERS5") 3)))) ) (initget 1 "PN6 PN10 PN16 PN20 PN25 PN40 PN50 PN100 PN150 PN250 PN420") ;(setq PN_brd (getkword "\nType de bride [PN6/PN10/PN16/PN20/PN25/PN40/PN50/PN100/PN150/PN250/PN420]?: ")) (setq PN_brd (getkword "\nType de bride [PN6/PN10/PN16/PN25/PN40]?: ")) ;; norme 2007 en cours de maj ;(setq matrice '(dn . (D K L nb A1 B1 c1 c2 c3 c4 c5 c6 h1 h2 h3 N1 N2 N3 B6 d1 f1 s ))) ; (0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21) (cond ((= PN_brd "PN6") (setq PN6 '( ;; 0 F c1 20 21 22 H4 H4 25 26 27 28 29 30 ;;;; D K L nb A B1 c1 c2 c3 c4 c5 c6 h1 h2 h3 N1 N2 N3 B6 d1 f1 s11 F35 35 36 h5 F36 F37 s35 s36 s37 (10 . (75.0 50.0 11.0 4 17.20 18.00 12 12 12 12 10 10 20 28 6 26 25 20 nil 35.0 2 2 5 28 35 7 2 2.5 3 2 2)) (15 . (80.0 55.0 11.0 4 21.30 22.00 12 12 12 12 10 10 20 30 6 30 30 26 nil 40.0 2 2 5 30 38 7 2 2.5 3 2 2)) (20 . (90.0 65.0 11.0 4 26.90 27.50 14 14 14 14 10 10 24 32 6 38 40 34 nil 50.0 2 2.3 6 32 40 8 2.5 3 3 2.6 2)) (25 . (100.0 75.0 11.0 4 33.70 34.50 14 14 14 14 10 12 24 35 6 42 50 44 nil 60.0 2 2.6 7 35 40 10 2.5 3 3 2.6 2)) (32 . (120.0 90.0 14.0 4 42.40 43.50 16 16 14 14 10 12 26 35 6 55 60 54 nil 70.0 2 2.6 8 35 42 12 3 3 3 3.2 2)) (40 . (130.0 100.0 14.0 4 48.30 49.00 16 16 14 14 10 12 26 38 7 62 70 64 nil 80.0 3 2.6 8 38 45 15 3 3 3 3.2 2)) (50 . (140.0 110.0 14.0 4 60.30 61.50 16 16 14 14 12 12 28 38 8 74 80 74 nil 90.0 3 2.9 8 38 45 20 3 3 3 3.2 2)) (65 . (160.0 130.0 14.0 4 76.10 77.50 16 16 14 14 12 12 32 38 9 88 100 94 nil 110.0 3 2.9 8 38 45 20 3 3 4 3.2 2)) (80 . (190.0 150.0 18.0 4 88.90 90.50 18 18 16 16 12 14 34 42 10 102 110 110 nil 128.0 3 3.2 10 42 50 25 3 4 4 3.2 2)) (100 . (210.0 170.0 18.0 4 114.30 116.00 18 18 16 16 14 14 40 45 10 130 130 130 nil 148.0 3 3.6 10 45 52 25 4 4 4 3.2 3.2)) (125 . (240.0 200.0 18.0 8 139.70 141.50 20 20 18 18 14 14 44 48 10 155 160 160 nil 178.0 3 4 10 48 55 25 4 4 5 4 3.2)) (150 . (265.0 225.0 18.0 8 168.30 170.50 20 20 18 18 14 14 44 48 12 184 185 182 nil 202.0 3 4.5 10 48 55 25 5 4 6 5 3.5)) (200 . (320.0 280.0 18.0 8 219.10 221.50 22 22 20 20 16 16 44 55 15 236 240 238 nil 258.0 3 6.3 11 55 62 30 5 5 6 5 4.5)) (250 . (375.0 335.0 18.0 12 273.00 276.50 24 24 22 22 18 20 44 60 15 290 295 284 nil 312.0 3 6.3 12 60 68 nil 8 nil 8 8 nil)) (300 . (440.0 395.0 22.0 12 323.90 327.50 24 24 22 22 18 24 44 62 15 342 355 342 nil 365.0 4 7.1 12 62 68 nil 8 nil 8 8 nil)) (350 . (490.0 445.0 22.0 12 355.60 359.50 26 26 22 22 18 26 nil 62 15 385 nil 392 nil 415.0 4 7.1 13 62 68 nil 8 nil 8 8 nil)) (400 . (540.0 495.0 22.0 16 406.40 411.00 28 28 22 22 20 28 nil 65 15 438 nil 442 nil 465.0 4 7.1 14 65 72 nil 8 nil 8 8 nil)) (450 . (595.0 550.0 22.0 16 457.00 462.00 30 30 22 24 20 30 nil 65 15 492 nil 494 nil 520.0 4 7.1 15 72 72 nil 8 nil 8 8 nil)) (500 . (645.0 600.0 22.0 20 508.00 513.50 30 24 24 24 22 32 nil 68 15 538 nil 544 nil 570.0 4 7.1 16 75 75 nil 8)) (600 . (755.0 705.0 26.0 20 610.00 616.50 32 30 30 30 22 36 nil 70 16 640 nil 642 nil 670.0 5 7.1 16 70 )) (700 . (860.0 810.0 26.0 24 711.00 717.00 40 30 30 40 nil 36 nil 76 16 740 nil 746 nil 775 5 8.0 16 70 )) (800 . (975.0 920.0 30.0 24 813.00 819.00 40 30 30 44 nil 36 nil 76 16 842 nil 850 nil 880 5 8.0 16 70 )) (900 . (1075 1020 30.0 24 914.00 920.00 48 34 34 48 nil 36 nil 78 16 942 nil 950 nil 980 5 8.0 16 70 )) (1000 . (1175 1120 30.0 28 1016 1022 52 38 38 52 nil 36 nil 82 16 1045 nil 1050 nil 1080 5 8.0 18 70 )) (1200 . (1405 1340 33.0 32 1219 1025 60 42 42 60 nil 36 nil 104 20 1248 nil 1264 nil 1295 5 8.8 20 90 )) (1400 . (1630 1560 36.0 36 1422 1428 72 56 56 68 nil 36 nil 114 20 1452 nil 1480 nil 1510 5 8.8 nil nil )) (1600 . (1830 1760 36.0 40 1626 1632 80 63 63 76 nil 36 nil 119 20 1655 nil 1680 nil 1710 5 10.0 nil nil )) (1800 . (2045 1970 39.0 44 1829 1835 88 69 69 84 nil 36 nil 133 20 1855 nil 1878 nil 1920 5 11.0 nil nil )) (2000 . (2265 2180 42.0 48 2032 2038 96 74 74 92 nil 36 nil 146 25 2058 nil 2082 nil 2125 5 12.5 nil nil )) ) ) ) ((= PN_brd "PN10") (setq PN10 '( ;; 0 F32 c1 20 21 22 H4 H4 25 26 27 28 29 30 ;;;; D K L nb A B1 c1 c2 c3 c4 c5 c6 h1 h2 h3 N1 N2 N3 B6 d1 f1 s11 F35 35 36 h5 F36 F37 s35 s36 s37 (10 . (90.0 60.0 14.0 4 17.20 18.00 14 16 16 16 12 14 22 35 6 28.0 30.0 28.0 t 40.0 2 2.0 5 35 35 7 2 2.5 3 2 2)) (15 . (95.0 65.0 14.0 4 21.30 22.00 14 16 16 16 12 14 22 35 6 32.0 35.0 32.0 t 45.0 2 2.0 5 38 38 7 2 2.5 3 2 2)) (20 . (105.0 75.0 14.0 4 26.90 27.50 16 18 18 18 14 16 26 40 6 40.0 45.0 40.0 t 58.0 2 2.3 6 40 40 8 2.5 3 3 2.6 2)) (25 . (115.0 85.0 14.0 4 33.70 34.50 16 18 18 18 14 16 26 40 6 46.0 52.0 50.0 t 68.0 2 2.6 7 40 40 10 2.5 3 3 2.6 2)) (32 . (140.0 100.0 18.0 4 42.40 43.50 18 18 18 18 14 18 28 42 6 56.0 60.0 60.0 t 78.0 2 2.6 8 42 42 12 3 3 3 3.2 2)) (40 . (150.0 110.0 18.0 4 48.30 49.50 18 18 18 18 14 18 32 45 7 64.0 70.0 70.0 t 88.0 3 2.6 8 45 45 15 3 3 3 3.2 2)) (50 . (165.0 125.0 18.0 4 60.30 61.50 20 18 18 18 16 20 28 45 8 74.0 85.0 84.0 t 102.0 3 2.9 8 45 45 20 3 4 3 3.2 2)) (65 . (185.0 145.0 18.0 8 76.10 77.50 20 18 18 18 16 20 32 45 10 92.0 104.0 104.0 t 122.0 3 2.9 8 45 45 20 3 4 4 3.2 2)) (80 . (200.0 160.0 18.0 8 88.90 90.50 20 20 20 20 16 20 34 50 10 105.0 118.0 120.0 t 138.0 3 3.2 10 50 50 25 3 4 4 3.2 2)) (100 . (220.0 180.0 18.0 8 114.30 116.00 22 20 20 20 18 22 40 52 12 131.0 140.0 140.0 t 158.0 3 3.6 10 52 52 25 4 4 4 3.2 3.2)) (125 . (250.0 210.0 18.0 8 139.70 141.50 22 22 22 22 18 22 44 55 12 156.0 168.0 170.0 t 188.0 3 4.0 10 55 55 25 4 4 5 4 3.2)) (150 . (285.0 240.0 22.0 8 168.30 170.50 24 22 22 22 20 24 44 55 12 184.0 195.0 190.0 t 212.0 3 4.5 10 55 55 25 4 4 6 5 3.5)) (200 . (340.0 295.0 22.0 8 219.10 221.50 24 24 24 24 20 24 44 62 16 234.0 246.0 246.0 t 268.0 3 6.3 11 62 62 30 5 4 6 5 4.5)) (250 . (395.0 350.0 22.0 12 273.00 276.50 26 26 26 26 22 26 46 68 16 292.0 298.0 298.0 t 320.0 3 6.3 12 68 68 nil 8 nil 8 8)) (300 . (445.0 400.0 22.0 12 323.90 327.50 26 26 26 26 22 26 46 68 16 342.0 350.0 348.0 t 370.0 4 7.1 12 68 68 nil 8 nil 8 8)) (350 . (505.0 460.0 22.0 16 355.60 359.50 30 26 26 26 22 30 53 68 16 385.0 400.0 408.0 t 430.0 4 7.1 13 68 68 nil 8 nil 8 8)) (400 . (565.0 515.0 26.0 16 406.40 411.00 32 26 26 26 24 32 57 72 16 440.0 456.0 456.0 t 482.0 4 7.1 14 72 72 nil 8 nil 8 8)) (450 . (615.0 565.0 26.0 20 457.00 462.50 36 28 28 28 24 36 63 72 16 488.0 502.0 502.0 t 532.0 4 7.1 15 72 nil nil nil nil 8 8)) (500 . (670.0 620.0 26.0 20 508.00 513.50 38 28 28 28 26 38 67 75 16 542.0 559.0 559.0 t 585.0 4 7.1 16 75 nil nil nil nil 8 8)) (600 . (780.0 725.0 30.0 20 610.00 616.50 42 30 34 34 26 42 75 82 18 642.0 658.0 658.0 t 685.0 5 8.0 18 80 nil nil nil nil 10 nil)) (700 . (895.0 840 30 24 711.00 711.00 50 35 35 38 nil 50 nil 85 18 746.0 nil 772.0 t 800 5 8.8 26 100 nil nil nil nil 10 nil)) (800 . (1015.0 950 33 24 813.00 813.00 56 38 38 48 nil 56 nil 96 18 850.0 nil 876.0 t 905 5 8.8 28 105 nil nil nil nil 12 nil)) (900 . (1115.0 1050 33 28 914.00 914.00 62 38 38 50 nil 62 nil 99 20 950.0 nil 976.0 t 1005 5 12.5 30 110 nil nil nil nil 12 nil)) (1000 . (1230.0 1160 36 28 1016.00 1016.0 70 44 44 54 nil 70 nil 105 20 1052 nil 1080 t 1110 5 12.5 35 120 nil nil nil nil 12 nil)) (1200 . (1455.0 1380 39 32 1219.00 1219.0 83 55 55 66 nil 83 nil 132 25 1256 nil 1292 t 1330 5 12.5 nil nil nil nil nil nil 16 nil)) (1400 . (1675.0 1590 42 36 1422.00 1422.0 95 65 65 nil nil 95 nil 143 25 1460 nil 1496 t 1535 5 14.2 nil nil nil nil nil nil nil nil)) (1600 . (1915.0 1820 48 40 1626.00 1626.0 95 75 75 nil nil 95 nil 159 25 1666 nil 1712 t 1760 5 16.0 nil nil nil nil nil nil nil nil)) (1800 . (2115.0 2020 48 44 1829.00 1829.0 95 85 85 nil nil 95 nil 175 30 1868 nil 1910 t 1960 5 17.5 nil nil nil nil nil nil nil nil)) ) ) ) ((= PN_brd "PN16") (setq PN16 '( ;; F32 c1 20 21 22 H4 H4 25 26 27 28 29 30 ;;;; D K L nb A B1 c1 c2 c3 c4 c5 c6 h1 h2 h3 N1 N2 N3 B6 d1 f1 s11 F35 35 36 h5 F36 F37 s35 s36 s37 (10 . (90.0 60.0 14.0 4 17.20 18.00 14 16 16 16 12 14 22 35 6 28.0 30.0 28.0 t 40.0 2 2.0 5 35 35 7 2 2.5 3 2.0 2.0)) (15 . (95.0 65.0 14.0 4 21.30 22.00 14 16 16 16 12 14 22 38 6 32.0 35.0 32.0 t 45.0 2 2.0 5 38 38 7 2 2.5 3 2.0 2.0)) (20 . (105.0 75.0 14.0 4 26.90 27.50 16 18 18 18 14 16 26 40 6 40.0 45.0 40.0 t 58.0 2 2.3 6 40 40 8 2.5 3 3 2.6 2.0)) (25 . (115.0 85.0 14.0 4 33.70 34.50 16 18 18 18 14 16 28 40 6 46.0 52.0 50.0 t 68.0 2 2.6 7 40 40 10 2.5 3 3 2.6 2.0)) (32 . (140.0 100.0 18.0 4 42.40 43.50 18 18 18 18 14 18 30 42 6 56.0 60.0 60.0 t 78.0 2 2.6 8 42 42 12 3 3 3 3.2 2.0)) (40 . (150.0 110.0 18.0 4 48.30 49.50 18 18 18 18 14 18 32 45 7 64.0 70.0 70.0 t 88.0 3 2.6 8 45 45 15 3 3 3 3.2 2.0)) (50 . (165.0 125.0 18.0 4 60.30 61.50 20 18 18 18 16 20 28 45 8 74.0 84.0 84.0 t 102.0 3 2.9 8 45 45 20 3 4 3 3.2 2.0)) (65 . (185.0 145.0 18.0 8 76.10 77.50 20 18 18 18 16 20 32 45 10 92.0 104.0 104.0 t 122.0 3 2.9 8 45 45 20 3 4 4 3.2 2.0)) (80 . (200.0 160.0 18.0 8 88.90 90.50 20 20 20 20 16 20 34 50 10 105.0 118.0 120.0 t 138.0 3 3.2 10 50 50 25 3 4 4 3.2 3.2)) (100 . (220.0 180.0 18.0 8 114.3 116.00 22 20 20 20 18 22 40 52 12 131.0 140.0 140.0 t 158.0 3 3.6 10 52 52 25 4 4 4 3.2 3.2)) (125 . (250.0 210.0 18.0 8 139.7 141.50 22 22 22 22 18 22 44 55 12 156.0 168.0 170.0 t 188.0 3 4.0 10 55 55 25 4 4 5 3.2 3.5)) (150 . (285.0 240.0 22.0 8 168.3 170.50 24 22 22 22 20 24 44 55 12 184.0 195.0 190.0 t 212.0 3 4.5 10 55 55 25 5 5 6 3.2 4.5)) (200 . (340.0 295.0 22.0 12 219.1 221.50 26 24 24 24 20 26 44 62 16 235.0 246.0 246.0 t 268.0 3 6.3 11 62 62 30 6 6 6 3.2 5.6)) (250 . (405.0 355.0 26.0 12 273.0 276.50 29 26 26 26 22 29 46 70 16 292.0 298.0 296.0 t 320.0 3 6.3 12 70 68 nil 10 nil 8 3.2 nil)) (300 . (460.0 410.0 26.0 12 323.9 327.50 32 28 28 28 24 32 46 78 16 344.0 350.0 350.0 t 378.0 4 7.1 14 78 68 nil 10 nil 10 4.0 nil)) (350 . (520.0 470.0 26.0 16 355.6 359.00 35 30 30 30 26 35 57 82 16 390.0 400.0 410.0 t 438.0 4 8.0 18 82 68 nil 10 nil 10 4.0 nil)) (400 . (580.0 525.0 30.0 16 406.4 411.00 38 32 32 32 28 38 63 85 16 445.0 456.0 458.0 t 490.0 4 8.0 20 85 72 nil 10 nil 12 4.0 nil)) (450 . (640.0 585.0 30.0 20 457.0 462.50 42 34 40 40 30 42 68 83 16 490.0 502.0 516.0 t 550.0 4 8.0 22 87 nil nil 10 nil 12 nil nil)) (500 . (715.0 650.0 33.0 20 508.0 513.50 46 36 44 44 32 46 73 84 16 548.0 559.0 576.0 t 610.0 4 8.0 22 90 nil nil nil nil 12 nil nil)) (600 . (840.0 770.0 36.0 20 610.0 616.50 55 40 54 54 32 55 83 88 18 670.0 658.0 690.0 t 725.0 5 10.0 24 95 nil nil nil nil 12 nil nil)) (700 . (910.0 840.0 36.0 24 711.0 711.0 63 40 nil 58 nil 63 83 104 18 755.0 760.0 760.0 t 795.0 5 10.0 26 100 nil nil nil nil 14 nil nil)); b1 (800 . (1025 950.0 39.0 24 813.0 813.00 74 41 nil 62 nil 74 90 108 20 855.0 864.0 862.0 t 900.0 5 12.5 28 105 nil nil nil nil 16 nil nil)); b1 (900 . (1125 1050.0 39.0 28 914.0 914.00 82 48 nil 64 nil 82 94 118 20 955.0 968 962 t 1000 5 12.5 30 110 nil nil nil nil 18 nil nil)) (1000 . (1255 1170.0 42.0 28 1016 1016 90 59 nil 68 nil 90 100 137 22 1058 1072 1076 t 1115 5 12.5 35 110 nil nil nil nil 18 nil nil)) (1200 . (1485 1390.0 48.0 32 1219 1219 100 78 nil nil nil 100 nil 160 30 1262 nil 1282 t 1330 5 14.2 nil 110 nil nil nil nil nil nil nil)) (1400 . (1685 1590.0 48.0 36 1422 1422 110 84 nil nil nil 110 nil 177 30 1465 nil 1482 t 1530 5 16.0 nil 110 nil nil nil nil nil nil nil)) (1600 . (1930 1820.0 56.0 40 1626 1626 120 102 nil nil nil 120 nil 204 35 1668 nil 1696 t 1750 5 17.5 nil 110 nil nil nil nil nil nil nil)) (1800 . (2130 2020.0 56.0 44 1829 1829 130 110 nil nil nil 130 nil 218 35 1870 nil 1896 t 1950 5 20.0 nil 110 nil nil nil nil nil nil nil)) (2000 . (2345 2230.0 62.0 48 2032 2032 140 124 nil nil nil 140 nil 238 40 2072 nil 2100 t 2150 5 22.0 nil 110 nil nil nil nil nil nil nil)) ) ) ) ((= PN_brd "PN25") (setq PN25 '( ;; F32 c1 20 21 22 H4 H4 25 26 27 28 29 30 ;;;; D K L nb A B1 c1 c2 c3 c4 c5 c6 h1 h2 h3 N1 N2 N3 B6 d1 f1 s11 F35 35 36 h5 F36 F37 s35 s36 s37 (10 . (90.0 60.0 14.0 4 17.20 18.00 14 16 16 16 12 14 22 35 6 28.0 30.0 28.0 6.10 40.0 2 2.0 5 35 nil nil nil nil 3)) (15 . (95.0 65.0 14.0 4 21.30 22.00 14 16 16 16 12 14 22 38 6 32.0 35.0 32.0 12.70 45.0 2 2.0 5 38 nil nil nil nil 3)) (20 . (105.0 75.0 14.0 4 26.90 27.50 16 18 18 18 14 16 26 40 6 40.0 45.0 40.0 19.00 58.0 2 2.3 6 40 nil nil nil nil 3)) (25 . (115.0 85.0 14.0 4 33.70 34.50 16 18 18 18 14 16 28 40 6 46.0 52.0 50.0 25.40 68.0 2 2.6 7 40 nil nil nil nil 3)) (32 . (140.0 100.0 18.0 4 42.40 43.50 18 18 18 18 14 18 30 42 6 56.0 60.0 60.0 31.80 78.0 2 2.6 8 42 nil nil nil nil 3)) (40 . (150.0 110.0 18.0 4 48.30 49.50 18 18 18 18 14 18 32 45 7 64.0 70.0 70.0 38.00 88.0 3 2.6 8 45 nil nil nil nil 3)) (50 . (165.0 125.0 18.0 4 60.30 61.50 20 20 20 20 16 20 34 48 8 75.0 84.0 84.0 50.80 102.0 3 2.9 10 48 nil nil nil nil 4)) (65 . (185.0 145.0 18.0 8 76.10 77.50 22 22 22 22 16 22 38 52 10 90.0 104.0 104.0 63.50 122.0 3 2.9 11 52 nil nil nil nil 5)) (80 . (200.0 160.0 18.0 8 88.90 90.50 24 24 24 24 18 24 40 58 12 105.0 118.0 120.0 76.20 138.0 3 3.2 12 58 nil nil nil nil 6)) (100 . (235.0 190.0 22.0 8 114.3 116.00 26 24 24 24 20 26 44 65 12 134.0 145.0 142.0 101.60 162.0 3 3.6 14 65 nil nil nil nil 6)) (125 . (270.0 220.0 26.0 8 139.7 141.50 28 26 26 26 22 28 48 68 12 162.0 170.0 162.0 127.00 188.0 3 4.0 16 68 nil nil nil nil 6)) (150 . (300.0 250.0 26.0 8 168.3 170.50 30 28 28 28 24 30 52 75 12 192.0 200.0 192.0 152.40 218.0 3 4.5 18 75 nil nil nil nil 8)) (200 . (360.0 310.0 26.0 12 219.1 221.50 32 30 30 30 26 32 52 80 16 244.0 256.0 252.0 203.20 278.0 3 6.3 18 80 nil nil nil nil 8)) (250 . (425.0 370.0 30.0 12 273.0 276.50 35 32 32 32 26 35 60 88 18 298.0 310.0 304.0 254.00 335.0 3 7.1 18 88 nil nil nil nil 10)) (300 . (485.0 430.0 30.0 16 323.9 327.50 38 34 34 34 28 38 67 92 18 352.0 364.0 364.0 304.80 395.0 4 8.0 20 92 nil nil nil nil 10)) (350 . (555.0 490.0 33.0 16 355.6 359.50 42 38 38 38 32 42 72 100 20 398.0 418.0 418.0 355.60 450.0 4 8.0 22 100 nil nil nil nil 12)) (400 . (620.0 550.0 36.0 16 406.4 411.00 48 40 40 40 34 48 78 110 20 452.0 472.0 472.0 406.40 505.0 4 8.8 24 110 nil nil nil nil 14)) (450 . (670.0 600.0 36.0 20 457.0 462.00 54 46 46 50 36 54 84 110 20 500.0 520.0 520.0 457.20 555.0 4 8.8 26 110 nil nil nil nil 15)) (500 . (730.0 660.0 36.0 20 508.0 513.50 58 48 48 51 38 58 90 125 20 558.0 580.0 580.0 508.00 615.0 4 10.0 28 125 nil nil nil nil 16)) (600 . (845.0 770.0 39.0 20 610.0 616.50 68 48 58 66 40 68 100 125 20 660.0 684.0 684.0 609.60 720.0 5 11.0 30 115 nil nil nil nil 18)) (700 . (960.0 875.0 42.0 24 711.0 714.00 85 50 nil nil nil 85 nil 129 20 760.0 nil 780.0 nil 820.0 5 14.2 30 125 nil nil nil nil 20)) (800 . (1085 990.0 48.0 24 813.0 816.00 95 53 nil nil nil 95 nil 138 22 864.0 nil 882.0 nil 930.0 5 16.0 35 135 nil nil nil nil 20)) (900 . (1185 1090 48.0 28 914.0 nil 100 57 nil nil nil 95 nil 148 24 968.0 nil 982.0 nil 1030 5 17.5 nil nil nil nil nil nil nil)) (1000 . (1320 1210 56.0 28 1016.0 nil 100 63 nil nil nil 95 nil 160 24 1070 nil 1086 nil 1140 5 20.0 nil nil nil nil nil nil nil)) ) ) ) ((= PN_brd "PN40") (setq PN40 '( ;F c1 21 22 H4 H4 25 26 27 28 ;;;; D K L nb A B1 c1 c2 c3 c4 c5 c6 h1 h2 h3 N1 N2 N3 B6 d1 f1 s11 F35 35 36 h5 F36 F37 s35 (10 . (90.0 60.0 14.0 4 17.20 18.00 14 16 16 16 12 16 22 35 6 28.0 30.0 28.0 t 40.0 2 1.8 5 35)) (15 . (95.0 65.0 14.0 4 21.30 22.00 14 16 16 16 12 16 22 38 6 32.0 35.0 32.0 t 45.0 2 2.0 5 38)) (20 . (105.0 75.0 14.0 4 26.90 27.50 16 18 18 18 14 16 26 40 6 40.0 45.0 40.0 t 58.0 2 2.3 6 40)) (25 . (115.0 85.0 14.0 4 33.70 34.50 16 18 18 18 14 18 28 40 6 46.0 52.0 50.0 t 68.0 2 2.6 7 40)) (32 . (140.0 100.0 18.0 4 42.40 43.50 18 18 18 18 14 18 30 42 6 56.0 60.0 60.0 t 78.0 2 2.6 8 42)) (40 . (150.0 110.0 18.0 4 48.30 49.00 18 18 18 18 14 18 32 45 7 64.0 70.0 70.0 t 88.0 3 2.6 8 45)) (50 . (165.0 125.0 18.0 4 60.30 61.50 20 20 20 20 16 20 34 48 8 75.0 84.0 84.0 t 102.0 3 2.9 10 48)) (65 . (185.0 145.0 18.0 8 76.10 77.50 22 22 22 22 16 20 38 52 10 90.0 104.0 104.0 t 122.0 3 2.9 11 52)) (80 . (200.0 160.0 18.0 8 88.90 90.50 24 24 24 24 18 22 40 58 12 105.0 118.0 120.0 t 138.0 3 3.2 12 58)) (100 . (235.0 190.0 22.0 8 114.30 116.00 26 24 24 24 20 22 44 65 12 134.0 145.0 142.0 t 162.0 3 3.6 14 65)) (125 . (270.0 220.0 26.0 8 139.70 141.50 28 26 26 26 22 24 48 68 12 162.0 170.0 162.0 t 188.0 3 4.0 16 68)) (150 . (300.0 250.0 26.0 8 168.30 170.50 30 28 28 28 22 24 52 75 12 192.0 200.0 192.0 t 218.0 3 4.5 18 75)) (200 . (375.0 320.0 30.0 12 219.10 221.50 36 34 34 36 26 30 52 88 16 244.0 260.0 254.0 t 285.0 3 6.3 20 88)) (250 . (450.0 385.0 33.0 12 273.00 276.50 42 38 38 38 30 36 60 105 18 306.0 312.0 312.0 t 345.0 3 7.1 22 105)) (300 . (515.0 450.0 33.0 16 323.90 327.50 52 42 42 42 34 40 67 115 18 362.0 380.0 378.0 t 410.0 4 8.0 25 115)) (350 . (580.0 510.0 36.0 16 355.60 359.50 58 46 46 46 38 46 72 125 20 408.0 424.0 432.0 t 465.0 4 8.8 28 125)) (400 . (660.0 585.0 39.0 16 406.40 411.00 65 50 50 50 42 50 78 135 20 462.0 478.0 498.0 t 535.0 4 11.0 32 135)) (450 . (685.0 610.0 39.0 20 457.00 462.00 75 57 57 57 46 75 84 135 20 500.0 522.0 522.0 t 560.0 4 12.5 nil nil)) (500 . (755.0 670.0 42.0 20 508.00 513.50 85 57 57 57 50 85 90 140 20 562.0 576.0 576.0 t 615.0 4 14.2 nil nil)) (600 . (890.0 795.0 48.0 20 610.00 610.50 95 72 72 72 54 95 100 150 20 666.0 686.0 686.0 t 735.0 5 16.0 nil nil)) ) ) ) ((= PN_brd "PN50") (setq PN50 '( ;;;; D K L nb A B1 c1 c2 c3 c4 c5 c6 h1 h2 h3 N1 N2 N3 B6 d1 f1 s (15 . (95.0 66.70 15.80 4 21.30 22.40 nil 14.2 nil nil nil nil 22 52 6.4 38.0 nil nil 12.70 34.90 1.6 2.6 )) (20 . (117.0 82.60 19.00 4 26.90 27.70 nil 15.7 nil nil nil nil 25 57 6.4 48.0 nil nil 19.00 42.90 1.6 2.9 )) (25 . (124.0 88.90 19.00 4 33.70 34.50 nil 17.5 nil nil nil nil 27 62 6.4 54.0 nil nil 25.40 50.80 1.6 3.2 )) (32 . (133.0 98.40 19.00 4 42.40 43.20 nil 19.0 nil nil nil nil 27 65 6.4 63.0 nil nil 31.80 63.50 1.6 3.6 )) (40 . (156.0 114.30 22.20 4 48.30 49.50 nil 20.6 nil nil nil nil 30 68 6.4 70.0 nil nil 38.00 73.00 1.6 3.6 )) (50 . (165.0 127.00 19.00 8 60.30 62.00 nil 22.4 nil nil nil nil 33 70 6.4 84.0 nil nil 50.80 92.10 1.6 4.0 )) (65 . (190.0 149.20 22.20 8 76.10 77.80 nil 25.4 nil nil nil nil 38 76 6.4 100.0 nil nil 63.50 104.80 1.6 4.5 )) (80 . (210.0 168.30 22.20 8 88.90 90.70 nil 28.4 nil nil nil nil 43 79 6.4 117.0 nil nil 76.20 127.00 1.6 5.0 )) (100 . (254.0 200.00 22.20 8 114.30 116.10 nil 31.8 nil nil nil nil 48 86 6.4 146.0 nil nil 101.60 157.20 1.6 5.6 )) (125 . (279.0 235.00 22.20 8 139.70 142.20 nil 35.0 nil nil nil nil 51 98 6.4 178.0 nil nil 127.00 185.70 1.6 6.3 )) (150 . (318.0 269.90 22.20 12 168.30 170.70 nil 36.6 nil nil nil nil 52 98 6.4 206.0 nil nil 152.40 215.90 1.6 7.1 )) (200 . (381.0 330.20 25.40 12 219.10 221.50 nil 41.1 nil nil nil nil 62 111 6.4 260.0 nil nil 203.20 269.90 1.6 8.0 )) (250 . (444.0 387.40 28.50 16 273.00 276.40 nil 47.8 nil nil nil nil 66 117 6.4 320.0 nil nil 254.00 323.80 1.6 8.8 )) (300 . (521.0 450.80 31.80 16 323.90 327.20 nil 50.8 nil nil nil nil 73 130 6.4 375.0 nil nil 304.80 381.00 1.6 10.0 )) (350 . (584.0 514.40 31.80 20 355.60 359.20 nil 53.8 nil nil nil nil 76 143 6.4 425.0 nil nil 355.60 412.80 1.6 11.0 )) (400 . (648.0 571.50 35.00 20 406.40 410.50 nil 57.2 nil nil nil nil 83 146 6.4 483.0 nil nil 406.40 469.90 1.6 12.5 )) (450 . (711.0 628.60 35.00 24 457.00 461.80 nil 60.5 nil nil nil nil 89 159 6.4 533.0 nil nil 457.20 533.40 1.6 14.2 )) (500 . (775.0 685.80 35.00 24 508.00 513.10 nil 63.5 nil nil nil nil 95 162 6.4 587.0 nil nil 508.00 584.20 1.6 16.0 )) (600 . (914.0 812.80 41.10 24 610.00 616.00 nil 69.9 nil nil nil nil 106 168 6.4 701.0 nil nil 609.60 692.20 1.6 17.5 )) ) ) ) ((= PN_brd "PN100") (setq PN100 '( ;;;; D K L nb A B1 c1 c2 c3 c4 c5 c6 h1 h2 h3 N1 N2 N3 B6 d1 f1 s (15 . (95.0 66.70 15.80 4 21.30 22.40 nil 14.2 nil nil nil nil 22 58.40 6.4 38.0 nil nil 12.70 34.90 6.4 nil )) (20 . (117.0 82.60 19.00 4 26.90 27.70 nil 15.7 nil nil nil nil 25 63.40 6.4 48.0 nil nil 19.00 42.90 6.4 nil )) (25 . (124.0 88.90 19.00 4 33.70 34.50 nil 17.5 nil nil nil nil 27 68.40 6.4 54.0 nil nil 25.40 50.80 6.4 nil )) (32 . (133.0 98.40 19.00 4 42.40 43.20 nil 20.6 nil nil nil nil 29 73.40 6.4 64.0 nil nil 31.80 63.50 6.4 nil )) (40 . (156.0 114.30 22.20 4 48.30 49.50 nil 22.4 nil nil nil nil 32 76.40 6.4 70.0 nil nil 38.00 73.00 6.4 nil )) (50 . (165.0 127.00 19.00 8 60.30 62.00 nil 25.4 nil nil nil nil 37 79.40 6.4 84.0 nil nil 50.80 92.10 6.4 nil )) (65 . (190.0 149.20 22.20 8 76.10 77.80 nil 28.4 nil nil nil nil 41 85.40 6.4 100.0 nil nil 63.50 104.80 6.4 nil )) (80 . (210.0 168.30 22.20 8 88.90 90.70 nil 31.8 nil nil nil nil 46 89.40 6.4 118.0 nil nil 76.20 127.00 6.4 nil )) (100 . (273.0 215.90 25.40 8 114.30 116.10 nil 38.1 nil nil nil nil 54 108.40 6.4 152.0 nil nil 101.60 157.20 6.4 nil )) (125 . (330.0 266.70 28.50 8 139.70 142.20 nil 44.5 nil nil nil nil 60 120.40 6.4 189.0 nil nil 127.00 185.70 6.4 nil )) (150 . (356.0 292.10 28.50 12 168.30 170.70 nil 47.8 nil nil nil nil 67 123.40 6.4 222.0 nil nil 152.40 215.90 6.4 nil )) (200 . (419.0 349.20 31.80 12 219.10 221.50 nil 55.6 nil nil nil nil 76 139.40 6.4 273.0 nil nil 203.20 269.90 6.4 nil )) (250 . (508.0 431.80 35.00 16 273.00 276.40 nil 63.5 nil nil nil nil 86 158.40 6.4 343.0 nil nil 254.00 323.80 6.4 nil )) (300 . (559.0 489.00 35.00 20 323.90 327.20 nil 66.5 nil nil nil nil 92 162.40 6.4 400.0 nil nil 304.80 381.00 6.4 nil )) (350 . (603.0 527.00 38.10 20 355.60 359.20 nil 69.9 nil nil nil nil 94 171.40 6.4 432.0 nil nil 355.60 412.80 6.4 nil )) (400 . (686.0 603.20 41.10 20 406.40 410.50 nil 76.2 nil nil nil nil 106 184.40 6.4 495.0 nil nil 406.40 469.90 6.4 nil )) (450 . (743.0 654.00 44.50 20 457.00 461.80 nil 82.6 nil nil nil nil 117 190.40 6.4 546.0 nil nil 457.20 533.40 6.4 nil )) (500 . (813.0 723.90 44.50 24 508.00 513.10 nil 88.9 nil nil nil nil 127 196.40 6.4 610.0 nil nil 508.00 584.20 6.4 nil )) (600 . (940.0 838.20 50.80 24 610.00 616.00 nil 101.6 nil nil nil nil 140 209.40 6.4 718.0 nil nil 609.60 692.20 6.4 nil )) ) ) ) ((= PN_brd "PN150") (setq PN150 '( ;;;; D K L nb A B1 c1 c2 c3 c4 c5 c6 h1 h2 h3 N1 N2 N3 B6 d1 f1 s (15 . (121.0 82.60 22.20 4 21.30 22.40 nil 22.4 nil nil nil nil 32 66.40 6.4 38.0 nil nil 12.70 34.90 6.4 nil )) (20 . (130.0 88.90 22.20 4 26.90 27.70 nil 25.4 nil nil nil nil 35 76.40 6.4 44.0 nil nil 19.00 42.90 6.4 nil )) (25 . (149.0 101.60 25.40 4 33.70 34.50 nil 28.4 nil nil nil nil 41 79.40 6.4 52.0 nil nil 25.40 50.80 6.4 nil )) (32 . (159.0 111.10 25.40 4 42.40 43.20 nil 28.4 nil nil nil nil 41 79.40 6.4 63.0 nil nil 31.80 63.50 6.4 nil )) (40 . (178.0 123.80 28.50 4 48.30 49.50 nil 31.8 nil nil nil nil 44 89.40 6.4 70.0 nil nil 38.00 73.00 6.4 nil )) (50 . (216.0 165.10 25.40 8 60.30 62.00 nil 38.1 nil nil nil nil 57 108.40 6.4 105.0 nil nil 50.80 92.10 6.4 nil )) (65 . (244.0 190.50 28.50 8 76.10 77.80 nil 41.1 nil nil nil nil 63 111.40 6.4 124.0 nil nil 63.50 104.80 6.4 nil )) (80 . (241.0 190.50 25.40 8 88.90 90.70 nil 38.1 nil nil nil nil 54 108.40 6.4 127.0 nil nil 76.20 127.00 6.4 nil )) (100 . (292.0 235.00 31.80 8 114.30 116.10 nil 44.5 nil nil nil nil 70 120.40 6.4 159.0 nil nil 101.60 157.20 6.4 nil )) (125 . (349.0 279.40 35.00 8 139.70 142.20 nil 50.8 nil nil nil nil 79 133.40 6.4 190.0 nil nil 127.00 185.70 6.4 nil )) (150 . (381.0 317.50 31.80 12 168.30 170.70 nil 55.6 nil nil nil nil 86 146.40 6.4 235.0 nil nil 152.40 215.90 6.4 nil )) (200 . (470.0 393.70 38.10 12 219.10 221.50 nil 63.5 nil nil nil nil 102 168.40 6.4 298.0 nil nil 203.20 269.90 6.4 nil )) (250 . (546.0 469.90 38.10 16 273.00 276.40 nil 69.9 nil nil nil nil 108 190.40 6.4 368.0 nil nil 254.00 323.80 6.4 nil )) (300 . (610.0 533.40 38.10 20 323.90 327.20 nil 79.2 nil nil nil nil 117 206.40 6.4 419.0 nil nil 304.80 381.00 6.4 nil )) (350 . (641.0 558.80 41.10 20 355.60 359.20 nil 85.9 nil nil nil nil 130 219.40 6.4 451.0 nil nil 355.60 412.80 6.4 nil )) (400 . (705.0 616.00 44.50 20 406.40 410.50 nil 88.9 nil nil nil nil 133 222.40 6.4 508.0 nil nil 406.40 469.90 6.4 nil )) (450 . (787.0 685.80 50.80 20 457.00 461.80 nil 101.6 nil nil nil nil 152 235.40 6.4 565.0 nil nil 457.20 533.40 6.4 nil )) (500 . (857.0 749.30 53.80 20 508.00 513.10 nil 108.0 nil nil nil nil 159 254.40 6.4 622.0 nil nil 508.00 584.20 6.4 nil )) (600 . (1041.0 901.70 66.50 20 610.00 616.00 nil 139.7 nil nil nil nil 203 298.40 6.4 749.0 nil nil 609.60 692.20 6.4 nil )) ) ) ) ((= PN_brd "PN250") (setq PN250 '( ;;;; D K L nb A B1 c1 c2 c3 c4 c5 c6 h1 h2 h3 N1 N2 N3 B6 d1 f1 s (15 . (121.0 82.60 22.20 4 21.30 22.40 nil 22.4 nil nil nil nil 32 66.40 6.4 38.0 nil nil 12.70 34.90 6.4 nil )) (20 . (130.0 88.90 22.20 4 26.90 27.70 nil 25.4 nil nil nil nil 35 76.40 6.4 44.0 nil nil 19.00 42.90 6.4 nil )) (25 . (149.0 101.60 25.40 4 33.70 34.50 nil 28.4 nil nil nil nil 41 79.40 6.4 52.0 nil nil 25.40 50.80 6.4 nil )) (32 . (159.0 111.10 25.40 4 42.40 43.20 nil 28.4 nil nil nil nil 41 79.40 6.4 63.0 nil nil 31.80 63.50 6.4 nil )) (40 . (178.0 123.80 28.50 4 48.30 49.50 nil 31.8 nil nil nil nil 44 89.40 6.4 70.0 nil nil 38.00 73.00 6.4 nil )) (50 . (216.0 165.10 25.40 8 60.30 62.00 nil 38.1 nil nil nil nil 57 108.40 6.4 105.0 nil nil 50.80 92.10 6.4 nil )) (65 . (244.0 190.50 28.50 8 76.10 77.80 nil 41.1 nil nil nil nil 63 111.40 6.4 124.0 nil nil 63.50 104.80 6.4 nil )) (80 . (267.0 203.20 31.80 8 88.90 0 nil 47.8 nil nil nil nil 0 124.40 6.4 133.0 nil nil 76.20 127.00 6.4 nil )) (100 . (311.0 241.30 35.00 8 114.30 0 nil 53.8 nil nil nil nil 0 130.40 6.4 162.0 nil nil 101.60 157.20 6.4 nil )) (125 . (375.0 292.10 41.10 8 139.70 0 nil 73.2 nil nil nil nil 0 161.40 6.4 197.0 nil nil 127.00 185.70 6.4 nil )) (150 . (394.0 317.50 38.10 12 168.30 0 nil 82.6 nil nil nil nil 0 177.40 6.4 229.0 nil nil 152.40 215.90 6.4 nil )) (200 . (483.0 393.70 44.50 12 219.10 0 nil 91.9 nil nil nil nil 0 219.40 6.4 292.0 nil nil 203.20 269.90 6.4 nil )) (250 . (584.0 482.60 50.80 12 273.00 0 nil 108.0 nil nil nil nil 0 260.40 6.4 368.0 nil nil 254.00 323.80 6.4 nil )) (300 . (673.0 571.50 53.80 16 323.90 0 nil 124.0 nil nil nil nil 0 289.40 6.4 451.0 nil nil 304.80 381.00 6.4 nil )) (350 . (749.0 635.00 60.50 16 355.60 0 nil 133.4 nil nil nil nil 0 304.40 6.4 495.0 nil nil 355.60 412.80 6.4 nil )) (400 . (826.0 704.80 66.50 16 406.40 0 nil 146.0 nil nil nil nil 0 317.40 6.4 552.0 nil nil 406.40 469.90 6.4 nil )) (450 . (914.0 774.70 73.20 16 457.00 0 nil 162.0 nil nil nil nil 0 333.40 6.4 597.0 nil nil 457.20 533.40 6.4 nil )) (500 . (984.0 831.80 79.20 16 508.00 0 nil 177.6 nil nil nil nil 0 362.40 6.4 641.0 nil nil 508.00 584.20 6.4 nil )) (600 . (1168.0 990.60 91.90 16 610.00 0 nil 203.2 nil nil nil nil 0 412.40 6.4 762.0 nil nil 609.60 692.20 6.4 nil )) ) ) ) ((= PN_brd "PN420") (setq PN420 '( ;;;; D K L nb A B1 c1 c2 c3 c4 c5 c6 h1 h2 h3 N1 N2 N3 B6 d1 f1 s (15 . (133.0 88.90 22.20 4 21.30 nil nil 30.2 nil nil nil nil nil 79.40 6.4 43.0 nil nil 12.70 34.90 6.4 nil )) (20 . (140.0 95.30 22.20 4 26.90 nil nil 31.8 nil nil nil nil nil 85.40 6.4 51.0 nil nil 19.00 42.90 6.4 nil )) (25 . (159.0 108.00 25.40 4 33.70 nil nil 35.0 nil nil nil nil nil 95.40 6.4 57.0 nil nil 25.40 50.80 6.4 nil )) (32 . (184.0 130.00 28.50 4 42.40 nil nil 38.1 nil nil nil nil nil 101.40 6.4 73.0 nil nil 31.80 63.50 6.4 nil )) (40 . (203.0 146.00 31.80 4 48.30 nil nil 44.5 nil nil nil nil nil 117.40 6.4 79.0 nil nil 38.00 73.00 6.4 nil )) (50 . (235.0 171.50 28.50 8 60.30 nil nil 50.8 nil nil nil nil nil 133.40 6.4 95.0 nil nil 50.80 92.10 6.4 nil )) (65 . (267.0 196.90 31.80 8 76.10 nil nil 57.2 nil nil nil nil nil 149.60 6.4 114.0 nil nil 63.50 104.80 6.4 nil )) (80 . (305.0 228.60 35.00 8 88.90 nil nil 66.5 nil nil nil nil nil 174.40 6.4 133.0 nil nil 76.20 127.00 6.4 nil )) (100 . (356.0 273.00 41.10 8 114.30 nil nil 76.2 nil nil nil nil nil 196.40 6.4 165.0 nil nil 101.60 157.20 6.4 nil )) (125 . (419.0 323.90 47.80 8 139.70 nil nil 91.9 nil nil nil nil nil 235.40 6.4 203.0 nil nil 127.00 185.70 6.4 nil )) (150 . (483.0 368.30 53.80 8 168.30 nil nil 108.0 nil nil nil nil nil 279.40 6.4 235.0 nil nil 152.40 215.90 6.4 nil )) (200 . (552.0 438.20 53.80 12 219.10 nil nil 127.0 nil nil nil nil nil 323.40 6.4 305.0 nil nil 203.20 269.90 6.4 nil )) (250 . (673.0 539.80 66.50 12 273.00 nil nil 165.1 nil nil nil nil nil 425.40 6.4 375.0 nil nil 254.00 323.80 6.4 nil )) (300 . (762.0 619.30 73.20 12 323.90 nil nil 184.2 nil nil nil nil nil 470.40 6.4 441.0 nil nil 304.80 381.00 6.4 nil )) ) ) ) ) (setq l_data (eval (read PN_brd))) (setq l_str nil) (initget 1 (apply 'strcat (mapcar 'strcat (repeat (length l_data) (setq l_str (cons "DN" l_str))) (mapcar 'itoa (mapcar 'car l_data)) (repeat (length l_data) (setq l_str (cons " " l_str)))))) (setq l_str nil) (setq model_brd (getkword (strcat "\nDiamètre Nominal [" (apply 'strcat (mapcar 'strcat (repeat (length l_data) (setq l_str (cons "DN" l_str))) (mapcar 'itoa (mapcar 'car l_data)) (repeat (length l_data) (setq l_str (cons "/" l_str))))) "]?: ")) ) (setq l_val (cdr (assoc (atoi (substr model_brd 3)) l_data))) ;;;;;;;;;;;; (initget 1 "PLATE TOURNANTE COLLERETTE SLIP-ON LWN TAMPON") (setq typ_brd (getkword "\nType de bride [PLATE/TAMPON/TOURNANTE/COLLERETTE/SLIP-ON]?: ")) (setq d_tuy (* 0.5 (nth 4 l_val) unit_draw)) (cond ((eq typ_brd "TAMPON") ;;;; type 05 (setq e1 (* (nth 9 l_val) unit_draw) nomb (strcat typ_brd "_" model_brd "_" PN_brd )) (if (not ep:joint) (setq ep:joint 3)) (setq joint (getdist (strcat "\n Entrer l'épaisseur de joint <"(rtos ep:joint)"> :"))) (if (not joint) (setq joint ep:joint)) ) ((eq typ_brd "PLATE") ;;;; type 01 (if (and (nth 5 l_val) (nth 6 l_val)) (setq e1 (- (* (nth 6 l_val) unit_draw) (* (nth 20 l_val) unit_draw)) nomb (strcat "BRIDE" "_" typ_brd "_" model_brd "_" PN_brd )) ) ) ((eq typ_brd "COLLERETTE") ;;;; type 11 (cond ((or (nth 7 l_val) (nth 8 l_val)) (if (nth 7 l_val) (setq e1 (- (* (nth 7 l_val) unit_draw) (* (nth 20 l_val) unit_draw))) (setq e1 (- (* (nth 8 l_val) unit_draw) (* (nth 20 l_val) unit_draw))) ) (if (member PN_brd '("PN100" "PN150" "PN250" "PN420")) (setq e1 (+ (* (nth 7 l_val) unit_draw) (* (nth 20 l_val) unit_draw))) ) (if (nth 21 l_val) (setq j (* (nth 21 l_val) unit_draw) nomb (strcat "BRIDE" "_" typ_brd "_" model_brd "_" PN_brd )) (progn (setq j (* 0.5 (nth 4 l_val) unit_draw)) (while (>= j (* 0.5 (nth 4 l_val) unit_draw)) (initget 1) (setq j (getdist "\nEntrer l'épaisseur du talon :")) ) (setq nomb (strcat "BRIDE" "_" typ_brd "_" model_brd "_" PN_brd "_" "talon_" (rtos j 2 2) )) ) ) ;;;;;;;; deplace plus bas ) ) ) ((eq typ_brd "TOURNANTE") (cond ((nth 10 l_val) ;; (and (nth 10 l_val)) (cond ((or (= PN_brd "PN25")(= PN_brd "PN40")) (initget "32 35 34") (setq typ_collet (getkword "\nType de collets [32/35/34]?: ")) ) ((or (= PN_brd "PN10")(= PN_brd "PN16")) (initget "32 35 36 37 34") (setq typ_collet (getkword "\nType de collets [32/35/36/37/34]?: ")) ) (t (initget "32 35 36 37") (setq typ_collet (getkword "\nType de collets [32/35/36/37]?: ")) ;; PN6 ) ) (setq e1 (* (nth 6 l_val) unit_draw)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (cond ((eq typ_collet "34") (command "_.circle" "_none" (list (car pt_ins) (cadr pt_ins) (+ e1 (* (nth 10 l_val) unit_draw))) (* 0.5 (nth 4 l_val) unit_draw)) (command "_.extrude" (entlast) "" (- (* (nth 13 l_val) unit_draw) (* (nth 10 l_val) unit_draw) e1)) ;;;;;;;;;;;;;;;;;;;;; modif alésage collet 09-01-09 (setq js_add (ssadd (entlast) js_add)) (command "_.circle" "_none" (list (car pt_ins) (cadr pt_ins) (+ e1 (* (nth 10 l_val) unit_draw)))(- (* 0.5 (nth 4 l_val) unit_draw) (* (nth 21 l_val) unit_draw) )) ;; talon (command "_.extrude" (entlast) "" (- (* (nth 13 l_val) unit_draw) (* (nth 10 l_val) unit_draw) e1)) (command "_.subtract" js_add "" (entlast) "") ;;;;;;;;;;;;;;;;;;;; ) ;;;; e1 -> epaisseur bride hors portée de joint ;;;; 0 1 2 3 4 5 6 7 8 9 F c1 12 13 14 15 16 17 18 19 20 21 22 H4 H4 25 26 27 28 29 30 ;;;; D K L nb A B1 c1 c2 c3 c4 c5 c6 h1 h2 h3 N1 N2 N3 B6 d1 f1 s11 F35 35 36 h5 F36 F37 s35 s36 s37 ((or (eq typ_collet "35") (eq typ_collet "36") (eq typ_collet "37")) ;; concerne la partie tubulaire du collet (command "_.circle" "_none" (list (car pt_ins) (cadr pt_ins) (+ e1 (* (cond ((eq typ_collet "35")(nth 22 l_val))((eq typ_collet "36")(nth 26 l_val))((eq typ_collet "37")(nth 27 l_val))) unit_draw))) (* 0.5 (nth 4 l_val) unit_draw) ) (command "_.extrude" (entlast) "" (- (* (cond ((eq typ_collet "35") (nth 23 l_val)) ((eq typ_collet "36") (nth 24 l_val)) ((eq typ_collet "37") (nth 25 l_val))) unit_draw) (* (cond ((eq typ_collet "35") (nth 22 l_val)) ((eq typ_collet "36") (nth 26 l_val)) ((eq typ_collet "37") (nth 27 l_val))) unit_draw) e1) ) ;;;;;;;;;;;;;;;;;;;;; alésage collet (setq js_add (ssadd (entlast) js_add)) (command "_.circle" "_none" (list (car pt_ins) (cadr pt_ins) (+ e1 (* (cond ((eq typ_collet "35")(nth 22 l_val)) ((eq typ_collet "36")(nth 26 l_val)) ((eq typ_collet "37")(nth 27 l_val))) unit_draw))) (- (* 0.5 (nth 4 l_val) unit_draw) (* (cond ((eq typ_collet "35")(nth 28 l_val)) ((eq typ_collet "36")(nth 29 l_val)) ((eq typ_collet "37")(nth 30 l_val))) unit_draw)) ) (command "_.extrude" (entlast) "" (- (* (cond ((eq typ_collet "35")(nth 23 l_val))((eq typ_collet "36")(nth 24 l_val))((eq typ_collet "37")(nth 25 l_val))) unit_draw) (* (cond ((eq typ_collet "35")(nth 22 l_val))((eq typ_collet "36")(nth 26 l_val))((eq typ_collet "37")(nth 27 l_val))) unit_draw) e1) ) (command "_.subtract" js_add "" (entlast) "") ;;;;;;;;;;;;;;;;;;;; ) ) ) ) (setq nomb (strcat "BRIDE" "_" typ_brd "_" model_brd "_" PN_brd "_" "collet_" typ_collet )) ) ((eq typ_brd "SLIP-ON") ;;; type 12 (if (nth 12 l_val) (progn (if (not (nth 7 l_val)) (setq e1 (- (* (nth 8 l_val) unit_draw) (* (nth 20 l_val) unit_draw))) (if (member PN_brd '("PN100" "PN150" "PN250" "PN420")) (setq e1 (* (nth 7 l_val) unit_draw)) (setq e1 (- (* (nth 7 l_val) unit_draw) (* (nth 20 l_val) unit_draw))) ) ) (setq nomb (strcat "BRIDE" "_" typ_brd "_" model_brd "_" PN_brd )) ) ) ) ((eq typ_brd "LWN") ;;; type 21 (if (member PN_brd '("PN100" "PN150" "PN250" "PN420")) (setq e1 (- (* (nth 7 l_val) unit_draw) (* (nth 20 l_val) unit_draw))) ) (if (and (not (nth 7 l_val)) (nth 8 l_val)) (setq e1 (- (* (nth 8 l_val) unit_draw) (* (nth 20 l_val) unit_draw))) (setq e1 (- (* (nth 7 l_val) unit_draw) (* (nth 20 l_val) unit_draw))) ) (setq nomb (strcat "BRIDE" "_" typ_brd "_" model_brd "_" PN_brd )) ) ) (if (tblsearch "block" nomb) ;; recherche bloc dans dessin (progn ;;;; insertion bloc (setq atdia (getvar "attdia")) (setvar "attdia" 1) (command "._-insert" nomb "_non" '(0. 0. 0.) "" "" "0" ) (setvar "attdia" atdia) ) (progn ;; le bloc n´existe pas ;;;; reprise type bride avec creation solide 3 d (cond ((eq typ_brd "COLLERETTE") (cond ((or (nth 7 l_val) (nth 8 l_val)) (command "_.circle" "_none" (list (car pt_ins) (cadr pt_ins) (+ e1 (* (nth 20 l_val) unit_draw))) (* 0.5 (nth 15 l_val) unit_draw)) (setq d1 (- (* (nth 13 l_val) unit_draw) (+ e1 (* (nth 20 l_val) unit_draw) (* (nth 14 l_val) unit_draw))) d2 (- (* 0.5 (nth 15 l_val) unit_draw) (* 0.5 (nth 4 l_val) unit_draw)) ) (command "_.extrude" (entlast) "" "_taper" (angtos (atan (/ d2 d1)) (getvar "AUNITS") 12) d1) (setq js_add (ssadd (entlast) js_add)) (command "_.circle" "_none" (list (car pt_ins) (cadr pt_ins) (+ e1 d1 (* (nth 20 l_val) unit_draw))) (* 0.5 (nth 4 l_val) unit_draw)) (command "_.extrude" (entlast) "" (* (nth 14 l_val) unit_draw)) (command "_.union" js_add (entlast) "") (setq js_add (ssadd)) (setq js_add (ssadd (entlast) js_add)) (command "_.circle" "_none" (list (car pt_ins) (cadr pt_ins) (+ e1 (* (nth 20 l_val) unit_draw))) (- (* 0.5 (nth 4 l_val) unit_draw) j)) (command "_.extrude" (entlast) "" (+ d1 (* (nth 14 l_val) unit_draw))) (command "_.subtract" js_add "" (entlast) "") (setq js_add (ssadd)) (setq js_add (ssadd (entlast) js_add)) ) ) ) ;;; fin collerette ((eq typ_brd "TOURNANTE") ;; suite (cond ((eq typ_collet "34") (command "_.circle" "_none" (list (car pt_ins) (cadr pt_ins) (+ e1 (* (nth 10 l_val) unit_draw))) (* 0.5 (nth 4 l_val) unit_draw)) (command "_.extrude" (entlast) "" (- (* (nth 13 l_val) unit_draw) (* (nth 10 l_val) unit_draw) e1)) ;;;;;;;;;;;;;;;;;;;;; modif alésage collet 09-01-09 (setq js_add (ssadd (entlast) js_add)) (command "_.circle" "_none" (list (car pt_ins) (cadr pt_ins) (+ e1 (* (nth 10 l_val) unit_draw)))(- (* 0.5 (nth 4 l_val) unit_draw) (* (nth 21 l_val) unit_draw) )) ;; talon (command "_.extrude" (entlast) "" (- (* (nth 13 l_val) unit_draw) (* (nth 10 l_val) unit_draw) e1)) (command "_.subtract" js_add "" (entlast) "") ;;;;;;;;;;;;;;;;;;;; ) ;;;; e1 -> epaisseur bride hors portée de joint ;;;; 0 1 2 3 4 5 6 7 8 9 F c1 12 13 14 15 16 17 18 19 20 21 22 H4 H4 25 26 27 28 29 30 ;;;; D K L nb A B1 c1 c2 c3 c4 c5 c6 h1 h2 h3 N1 N2 N3 B6 d1 f1 s11 F35 35 36 h5 F36 F37 s35 s36 s37 ((or (eq typ_collet "35") (eq typ_collet "36") (eq typ_collet "37")) ;; concerne la partie tubulaire du collet (command "_.circle" "_none" (list (car pt_ins) (cadr pt_ins) (+ e1 (* (cond ((eq typ_collet "35")(nth 22 l_val))((eq typ_collet "36")(nth 26 l_val))((eq typ_collet "37")(nth 27 l_val))) unit_draw))) (* 0.5 (nth 4 l_val) unit_draw) ) (command "_.extrude" (entlast) "" (- (* (cond ((eq typ_collet "35") (nth 23 l_val)) ((eq typ_collet "36") (nth 24 l_val)) ((eq typ_collet "37") (nth 25 l_val))) unit_draw) (* (cond ((eq typ_collet "35") (nth 22 l_val)) ((eq typ_collet "36") (nth 26 l_val)) ((eq typ_collet "37") (nth 27 l_val))) unit_draw) e1) ) ;;;;;;;;;;;;;;;;;;;;; alésage collet (setq js_add (ssadd (entlast) js_add)) (command "_.circle" "_none" (list (car pt_ins) (cadr pt_ins) (+ e1 (* (cond ((eq typ_collet "35")(nth 22 l_val)) ((eq typ_collet "36")(nth 26 l_val)) ((eq typ_collet "37")(nth 27 l_val))) unit_draw))) (- (* 0.5 (nth 4 l_val) unit_draw) (* (cond ((eq typ_collet "35")(nth 28 l_val)) ((eq typ_collet "36")(nth 29 l_val)) ((eq typ_collet "37")(nth 30 l_val))) unit_draw)) ) (command "_.extrude" (entlast) "" (- (* (cond ((eq typ_collet "35")(nth 23 l_val))((eq typ_collet "36")(nth 24 l_val))((eq typ_collet "37")(nth 25 l_val))) unit_draw) (* (cond ((eq typ_collet "35")(nth 22 l_val))((eq typ_collet "36")(nth 26 l_val))((eq typ_collet "37")(nth 27 l_val))) unit_draw) e1) ) (command "_.subtract" js_add "" (entlast) "") ;;;;;;;;;;;;;;;;;;;; ) ) );;; fin tournante ((eq typ_brd "SLIP-ON") ;; suite (if (nth 12 l_val) (progn (command "_.circle" "_none" (list (car pt_ins) (cadr pt_ins) (+ e1 (* (nth 20 l_val) unit_draw))) (if (not (nth 16 l_val)) (* 0.5 (nth 15 l_val) unit_draw) (* 0.5 (nth 16 l_val) unit_draw))) (command "_.extrude" (entlast) "" (- (* (nth 12 l_val) unit_draw) e1)) (setq js_add (ssadd (entlast) js_add)) (command "_.circle" "_none" (list (car pt_ins) (cadr pt_ins) (+ e1 (* (nth 20 l_val) unit_draw))) (* 0.5 (nth 5 l_val) unit_draw)) (command "_.extrude" (entlast) "" (- (* (nth 12 l_val) unit_draw) e1)) (command "_.subtract" js_add "" (entlast) "") (setq js_add (ssadd)) (setq js_add (ssadd (entlast) js_add)) ) ) ) ;;; fin SLIP-ON ((eq typ_brd "LWN") ;;; suite (if (nth 18 l_val) ;; valeur --> (- (nth 4 l_val) (* 2 (nth 21 l_val))) (progn (command "_.circle" "_none" (list (car pt_ins) (cadr pt_ins) (+ e1 (* (nth 20 l_val) unit_draw))) (if (not (nth 17 l_val)) (* 0.5 (nth 15 l_val) unit_draw) (* 0.5 (nth 17 l_val) unit_draw))) (command "_.extrude" (entlast) "" (- (* (nth 13 l_val) unit_draw) e1)) (setq js_add (ssadd (entlast) js_add)) (command "_.circle" "_none" (list (car pt_ins) (cadr pt_ins) (+ e1 (* (nth 20 l_val) unit_draw))) (* 0.5 (- (nth 4 l_val) (* 2 (nth 21 l_val))) unit_draw)) (command "_.extrude" (entlast) "" (- (* (nth 13 l_val) unit_draw) e1)) (command "_.subtract" js_add "" (entlast) "") (setq js_add (ssadd)) (setq js_add (ssadd (entlast) js_add)) ) ) ) ;;;fin LWN ) (if e1 (progn (if (not (eq typ_brd "TAMPON")) (progn ;;; d1 (19) portee de joint ; F (10) ou f1 (20) hauteur (command "_.circle" "_none" pt_ins (* (nth 19 l_val) 0.5 unit_draw)) (command "_.extrude" (entlast) "" (+ e1 (if (eq typ_brd "TOURNANTE") (* (cond ((or (eq typ_collet "32")(eq typ_collet "34"))(nth 10 l_val))((eq typ_collet "35")(nth 22 l_val))((eq typ_collet "36")(nth 26 l_val))((eq typ_collet "37")(nth 27 l_val))) unit_draw) (* (nth 20 l_val) unit_draw) ) ) ) (setq js_add (ssadd (entlast) js_add)) (command "_.circle" "_none" (list (car pt_ins) (cadr pt_ins) (if (eq typ_brd "TOURNANTE") (* (cond ((or (eq typ_collet "32")(eq typ_collet "34"))(nth 10 l_val))((eq typ_collet "35")(nth 22 l_val))((eq typ_collet "36")(nth 26 l_val))((eq typ_collet "37")(nth 27 l_val))) unit_draw) (* (nth 20 l_val) unit_draw))) (* (car l_val) 0.5 unit_draw) ) (command "_.extrude" (entlast) "" e1) ;;;; e1 -> epaisseur bride hors portée de joint (command "_.union" js_add (entlast) "") (setq js_add (ssadd) js_add (ssadd (entlast) js_add)) ;;;;;;; alésage bride ou collet (command "_.circle" "_none" pt_ins (cond ((eq typ_brd "LWN") (* 0.5 (- (nth 4 l_val) (* 2 (nth 21 l_val))) unit_draw)) ((eq typ_brd "COLLERETTE") (- (* 0.5 (nth 4 l_val) unit_draw) j)) ((eq typ_collet "34") (- (* 0.5 (nth 4 l_val) unit_draw) (* (nth 21 l_val) unit_draw))) ((eq typ_collet "35") (- (* 0.5 (nth 4 l_val) unit_draw) (* (nth 28 l_val) unit_draw))) ((eq typ_collet "36") (- (* 0.5 (nth 4 l_val) unit_draw) (* (nth 29 l_val) unit_draw))) ((eq typ_collet "37") (- (* 0.5 (nth 4 l_val) unit_draw) (* (nth 30 l_val) unit_draw))) (t (* 0.5 (nth 4 l_val) unit_draw)) ) ;;;; e1 -> epaisseur bride hors portée de joint ;;;; 0 1 2 3 4 5 6 7 8 9 F c1 12 13 14 15 16 17 18 19 20 21 22 H4 H4 25 26 27 28 29 30 ;;;; D K L nb A B1 c1 c2 c3 c4 c5 c6 h1 h2 h3 N1 N2 N3 B6 d1 f1 s11 F35 35 36 h5 F36 F37 s35 s36 s37 ) (command "_.extrude" (entlast) "" (+ e1 (if (eq typ_brd "TOURNANTE") (* (cond ((or (eq typ_collet "32")(eq typ_collet "34"))(nth 10 l_val))((eq typ_collet "35")(nth 22 l_val))((eq typ_collet "36")(nth 26 l_val))((eq typ_collet "37")(nth 27 l_val))) unit_draw) (* (nth 20 l_val) unit_draw)) ) ) (setq js_remove (ssadd (entlast) js_remove)) ;;; alesage complementaire pour bride sur collet "32" et "37" (if (or (eq typ_collet "32") (eq typ_collet "37")) (progn ;; environ (command "_.circle" "_none" (list (car pt_ins) (cadr pt_ins) (* (if (eq typ_collet "37")(nth 25 l_val) (nth 10 l_val)) unit_draw)) (* 0.5 (+ 5 (nth 4 l_val)) unit_draw)) (command "_.extrude" (entlast) "" e1) (setq js_remove (ssadd (entlast) js_remove)) ) ); if ) ; progn ;; si "TAMPON" (progn (command "_.circle" "_none" (list (car pt_ins) (cadr pt_ins) (* joint unit_draw)) (* (car l_val) 0.5 unit_draw)) (command "_.extrude" (entlast) "" e1) ;; e1 ayant la valeur c4 (setq js_add (ssadd) js_add (ssadd (entlast) js_add)) ) ) ; if ;; trous boulons (command "_.circle" "_none" (polar (list (car pt_ins) (cadr pt_ins) (cond ((eq typ_brd "TOURNANTE") (* (cond ((or (eq typ_collet "32")(eq typ_collet "34"))(nth 10 l_val))((eq typ_collet "35")(nth 22 l_val))((eq typ_collet "36")(nth 26 l_val))((eq typ_collet "37")(nth 27 l_val))) unit_draw)) ((eq typ_brd "TAMPON") (* joint unit_draw)) (t (* (nth 20 l_val) unit_draw)) ) ) (/ pi (cadddr l_val)) (* (cadr l_val) 0.5 unit_draw) ) (* (caddr l_val) 0.5 unit_draw) ) (command "_.extrude" (entlast) "" e1) (setq js_remove (ssadd (entlast) js_remove)) (setq e_name (entlast)) (command "_.array" (entlast) "" "_polar" "_none" pt_ins (cadddr l_val) "" "_yes") (while (setq e_name (entnext e_name)) (setq js_remove (ssadd e_name js_remove))) (command "_.subtract" js_add "" js_remove "") ;;; fin trous boulons (setq bridesolide (entlast)) ;;; change le calque du solide pour création bloc dans calque "0" (setq lent (entget bridesolide)) (setq lent (subst (cons 8 "0") (assoc 8 lent) lent)) (entmod lent) ;;;;;;;; (cond ((= "10" model_brd) (setq pouce "1/4")) ((= "15" model_brd) (setq pouce "1/2")) ((= "20" model_brd) (setq pouce "3/4")) ((= "25" model_brd) (setq pouce "1")) ((= "32" model_brd) (setq pouce "1 1/4")) ((= "40" model_brd) (setq pouce "1 1/2")) ((= "50" model_brd) (setq pouce "2")) ((= "65" model_brd) (setq pouce "2 1/2")) ((= "100" model_brd) (setq pouce "4")) ((= "125" model_brd) (setq pouce "5")) ((= "150" model_brd) (setq pouce "6")) ((= "200" model_brd) (setq pouce "8")) ((= "250" model_brd) (setq pouce "10")) ((= "300" model_brd) (setq pouce "12")) ((= "350" model_brd) (setq pouce "14")) ((= "400" model_brd) (setq pouce "16")) ((= "450" model_brd) (setq pouce "18")) ((= "500" model_brd) (setq pouce "20")) ((= "600" model_brd) (setq pouce "24")) ((= "700" model_brd) (setq pouce "28")) ((= "800" model_brd) (setq pouce "32")) ((= "900" model_brd) (setq pouce "36")) ((= "1000" model_brd) (setq pouce "40")) ) ;; création attributs (setq st (getvar "textstyle")) (setvar "textstyle" "standard") (setq tsize (getvar "textsize")) (setq af (getvar "aflags")) (setq ht (* 0.07 d_tuy (/ 1.0 unit_draw))) ; hauteur texte (setq it (* 1.3 ht)) ; intervale ligne texte (setvar "aflags" 9) ;;; prédéfini et invisible (command "._-attdef" "" "TYPE" "TYPE" (strcat "BRIDE" " " typ_brd) "_non" '(0. 0. 0.) ht "0") (setq att1 (entlast)) (command "._-attdef" "" "DN" "DN" model_brd "_non" (polar '(0. 0. 0.)(* 1.5 pi)(+ it ht)) ht "0") (setq att2 (entlast)) (command "._-attdef" "" "PN" "PN" PN_brd "_non" (polar '(0. 0. 0.)(* 1.5 pi)(* 2 (+ it ht))) ht "0") (setq att3 (entlast)) (command "._-attdef" "" "MATIERE" "MATIERE" "" "_non" (polar '(0. 0. 0.)(* 1.5 pi)(* 3 (+ it ht))) ht "0") (setq att4 (entlast)) (command "._-attdef" "" "FLUIDE" "FLUIDE" "" "_non" (polar '(0. 0. 0.)(* 1.5 pi)(* 4 (+ it ht))) ht "0") (setq att5 (entlast)) (command "._-attdef" "" "REPERE" "REPERE" "" "_non" (polar '(0. 0. 0.)(* 1.5 pi)(* 5 (+ it ht))) ht "0") (setq att6 (entlast)) (if typ_collet (progn (command "._-attdef" "" "COLLET" "TYPE" typ_collet "_non" (polar '(0. 0. 0.)(* 1.5 pi)(* 6 (+ it ht))) ht "0") (setq att7 (entlast)) )) (if talon (progn (command "._-attdef" "" "TALON" "EPAISSEUR" (rtos j 2 2) "_non" (polar '(0. 0. 0.)(* 1.5 pi)(* 6 (+ it ht))) ht "0") (setq att7 (entlast)) )) ;;;; creation bloc (if (or talon typ_collet) (progn (command "_change" att1 att2 att3 att4 att5 att6 att7 "" "_p" "_la" "0" "_c" "DUBLOC" "") (command "._-block" nomb "_non" '(0. 0. 0.) att1 att2 att3 att4 att5 att6 att7 bridesolide "") ) (progn (command "_change" att1 att2 att3 att4 att5 att6 "" "_p" "_la" "0" "_c" "DUBLOC" "") (command "._-block" nomb "_non" '(0. 0. 0.) att1 att2 att3 att4 att5 att6 bridesolide "") ) ) ;;;; insertion bloc (setq atdia (getvar "attdia")) (setvar "attdia" 1) (command "._-insert" nomb "_non" '(0. 0. 0.) "" "" "0" ) (setvar "attdia" atdia) (setvar "aflags" af) (setvar "textsize" tsize ) (setvar "textstyle" st) ) (princ "\nPas de valeur dans base données pour ce type de bride") ) )) ;;; fin if tblsearch bloc (if sv_dm (setvar "DYNMODE" sv_dm)) ;(cond (pt_ins (command "_.ucs" "_p") (setq pf nil))) (repeat 2 (command "_ucs" "_p")) (setvar "delobj" delobjet) (command "_undo" "_e") (setq *error* m:err m:err nil) (setvar "CMDECHO" 1) (prin1) )

Charmante photo, mais la main tendue est impossible dans le cas présent. Ce serait les soutenir et ils te trancheraient la main sitôt qu'ils ne verraient plus d'intérêt à l'alliance. Ce serait revenir à l'époque de Vichy.

Un petit mot pour dire que je suis impressionné par la "une" du journal, un tel humanisme après pareille sauvagerie mérite le respect, bravo. Ce sont eux les vrais chrétiens. Ceux qui saccagent tout une fois de plus pour leur prophète sont des ânes stupides qui ne comprennent rien à rien et surtout rien à Dieu. Je suis Charlie et je m'abonne!

Salut Titi95 Voilà, tu peux le tester, n'hésite pas pour les améliorations et autres. Je n'ai pas creusé pour l'épaisseur et l'option "autre DN" n'est pas disponible, a voir si c'est utile. ; Réduction Inox Iso en 3D et en bloc ; usegomme ; 09/04/2015 création de bloc ; 29/04/2015 correction orientation ; 30/04/2015 creation "catalogue" reduction ; 20/05/2015 rajout attributs "type" & "DN" (defun c:RedIB (/ pd pdd pdir pf pfd r1 r1i r2 r2i a h d1 d2 sv_dm dm dn1 dn2 ta gdn reduc st tsize af ht it att1 att2) (command "_undo" "_be") (setq pd (getpoint "\nPoint de départ de la reduction :")) (if pd (setq pdir (getpoint pd "\n direction de la réduction <>: "))) (cond ((and pd pdir) (command "_ucs" "_zaxis" "_non" pd "_non" pdir) (setq pd '(0. 0. 0.)) ) ) (cond (pd (setq sv_dm (getvar "DYNMODE")) (cond ((< sv_dm 0) (setq dm (* sv_dm -1)) (setvar "DYNMODE" dm)) (t (setq sv_dm nil dm nil)) ) (setq d1 nil d2 nil) (while (not d1) (initget "Autre 8 10 15 20 25 32 40 50 65 80 100 125 150 200 250 300") (setq dn (getkword "\n DN [Autre/8/10/15/20/25/32/40/50/65/80/100/125/150/200/250/300]:")) (cond ((= dn "8") (setq d1 13.5)) ((= dn "10") (setq d1 17.2)) ((= dn "15") (setq d1 21.3)) ((= dn "20") (setq d1 26.9)) ((= dn "25") (setq d1 33.7)) ((= dn "32") (setq d1 42.4)) ((= dn "40") (setq d1 48.3)) ((= dn "50") (setq d1 60.3)) ((= dn "65") (setq d1 76.1)) ((= dn "80") (setq d1 88.9)) ((= dn "100") (setq d1 114.3)) ((= dn "125") (setq d1 139.7)) ((= dn "150") (setq d1 168.3)) ((= dn "200") (setq d1 219.1)) ((= dn "250") (setq d1 273)) ((= dn "300") (setq d1 323.9)) ((= dn "Autre") (setq d1 (getdist "\nDiamètre de la reduction en mm:"))) (t (princ)) ) ) (setq dn1 dn) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (while (not d2) (cond ((= dn "8") (initget "10 15 20 25") (setq dn (getkword "\n DN [10/15/20/25]:")) (cond ((= dn "10")(setq d2 17.2 h 11 ))((= dn "15")(setq d2 21.3 h 23 )) ((= dn "20")(setq d2 26.9 h 40 ))((= dn "25")(setq d2 33.7 h 60 )) ) ) ((= dn "10") (initget "8 15 20 25 32 40 50") (setq dn (getkword "\n DN [8/15/20/25/32/40/50]:")) (cond ((= dn "8")(setq d2 13.5 h 11 ))((= dn "15")(setq d2 21.3 h 12 )) ((= dn "20")(setq d2 26.9 h 29 ))((= dn "25")(setq d2 33.7 h 49 ))((= dn "32")(setq d2 42.4 h 75 )) ((= dn "40")(setq d2 48.3 h 93 ))((= dn "50") (setq d2 60.3 h 129)) ) ) ((= dn "15") (initget "8 10 20 25 32 40 50") (setq dn (getkword "\n DN [8/10/20/25/32/40/50]:")) (cond ((= dn "8")(setq d2 13.5 h 23 )) ((= dn "10")(setq d2 17.2 h 12 )) ((= dn "20")(setq d2 26.9 h 17 ))((= dn "25")(setq d2 33.7 h 37 ))((= dn "32")(setq d2 42.4 h 63 )) ((= dn "40")(setq d2 48.3 h 81 )) ((= dn "50")(setq d2 60.3 h 117 )) ) ) ((= dn "20") (initget "8 10 15 25 32 40 50 65 80") (setq dn (getkword "\n DN [8/10/15/25/32/40/50/65/80]:")) (cond ((= dn "8")(setq d2 13.5 h 40 ))((= dn "10")(setq d2 17.2 h 29 )) ((= dn "15")(setq d2 21.3 h 17 ))((= dn "25")(setq d2 33.7 h 20 )) ((= dn "32")(setq d2 42.4 h 46 ))((= dn "40")(setq d2 48.3 h 64 )) ((= dn "50")(setq d2 60.3 h 100 ))((= dn "65")(setq d2 76.1 h 149 ))((= dn "80")(setq d2 88.9 h 185 )) ) ) ((= dn "25") (initget "8 10 15 20 32 40 50 65 80") (setq dn (getkword "\n DN [8/10/15/20/32/40/50/65/80]:")) (cond ((= dn "8")(setq d2 13.5 h 60 ))((= dn "10")(setq d2 17.2 h 49 ))((= dn "15")(setq d2 21.3 h 37)) ((= dn "20")(setq d2 26.9 h 20 ))((= dn "32")(setq d2 42.4 h 26 ))((= dn "40")(setq d2 48.3 h 44 )) ((= dn "50")(setq d2 60.3 h 80 ))((= dn "65")(setq d2 76.1 h 127 ))((= dn "80")(setq d2 88.9 h 166 )) ) ) ((= dn "32") (initget "8 10 15 20 25 40 50 65") (setq dn (getkword "\n DN [8/10/15/20/25/40/50/65]:")) (cond ((= dn "8")(setq d2 13.5 h 87 ))((= dn "10")(setq d2 17.2 h 75 ))((= dn "15")(setq d2 21.3 h 63)) ((= dn "20")(setq d2 26.9 h 46 ))((= dn "25")(setq d2 33.7 h 26 ))((= dn "40")(setq d2 48.3 h 18 )) ((= dn "50")(setq d2 60.3 h 54 ))((= dn "65")(setq d2 76.1 h 101)) ) ) ((= dn "40") (initget "10 15 20 25 32 50 65 80") (setq dn (getkword "\n DN [10/15/20/25/32/50/65/80]:")) (cond ((= dn "10")(setq d2 17.2 h 93 ))((= dn "15")(setq d2 21.3 h 81)) ((= dn "20")(setq d2 26.9 h 64 ))((= dn "25")(setq d2 33.7 h 44 ))((= dn "32")(setq d2 42.4 h 18 )) ((= dn "50")(setq d2 60.3 h 36 ))((= dn "65")(setq d2 76.1 h 83 ))((= dn "80")(setq d2 88.9 h 122 )) ((= dn "100")(setq d2 114.3 h 198 )) ) ) ((= dn "50") (initget "10 15 20 25 32 40 65 80 100") (setq dn (getkword "\n DN [10/15/20/25/32/40/65/80/100]:")) (cond ((= dn "10")(setq d2 17.2 h 129))((= dn "15")(setq d2 21.3 h 117))((= dn "20")(setq d2 26.9 h 100)) ((= dn "25")(setq d2 33.7 h 80 ))((= dn "32")(setq d2 42.4 h 54 ))((= dn "40")(setq d2 48.3 h 36 )) ((= dn "65")(setq d2 76.1 h 63 ))((= dn "80")(setq d2 88.9 h 86 ))((= dn "100")(setq d2 114.3 h 162)) ((= dn "150")(setq d2 168.3 h 324)) ) ) ((= dn "65") (initget "20 25 32 40 50 80 100") (setq dn (getkword "\n DN [20/25/32/40/50/80/100]:")) (cond ((= dn "20")(setq d2 26.9 h 149))((= dn "25")(setq d2 33.7 h 127)) ((= dn "32")(setq d2 42.4 h 101))((= dn "40")(setq d2 48.3 h 83 ))((= dn "50")(setq d2 60.3 h 63 )) ((= dn "80")(setq d2 88.9 h 38 ))((= dn "100")(setq d2 114.3 h 115 )) ) ) ((= dn "80") (initget "20 25 32 40 50 65 100 125 150") (setq dn (getkword "\n DN [20/25/32/40/50/65/100/125/150]:")) (cond ((= dn "20")(setq d2 26.9 h 185))((= dn "25")(setq d2 33.7 h 166))((= dn "32")(setq d2 42.4 h 139)) ((= dn "40")(setq d2 48.3 h 122 ))((= dn "50")(setq d2 60.3 h 86 ))((= dn "65")(setq d2 76.1 h 38 )) ((= dn "100")(setq d2 114.3 h 76 ))((= dn "125")(setq d2 139.7 h 152 ))((= dn "150")(setq d2 168.3 h 238 )) ) ) ((= dn "100") (initget "20 25 32 40 50 65 80 125 150 200") (setq dn (getkword "\n DN [20/25/32/40/50/65/80/125/150/200]:")) (cond ((= dn "20")(setq d2 26.9 h 262))((= dn "25")(setq d2 33.7 h 240))((= dn "32")(setq d2 42.4 h 216)) ((= dn "40")(setq d2 48.3 h 198 )) ((= dn "50")(setq d2 60.3 h 162 ))((= dn "65")(setq d2 76.1 h 115 ))((= dn "80")(setq d2 88.9 h 76 )) ((= dn "125")(setq d2 139.7 h 152))((= dn "150")(setq d2 168.3 h 162 ))((= dn "200")(setq d2 219.1 h 315 )) ) ) ((= dn "125") (initget "50 65 80 100 150 200") (setq dn (getkword "\n DN [50/65/80/100/150/200]:")) (cond ((= dn "50")(setq d2 60.3 h 238 ))((= dn "65")(setq d2 76.1 h 191 )) ((= dn "80")(setq d2 88.9 h 152 ))((= dn "100")(setq d2 114.3 h 76 ))((= dn "150")(setq d2 168.3 h 86 )) ((= dn "200")(setq d2 219.1 h 238 )) ) ) ((= dn "150") (initget "50 65 80 100 125 200 250") (setq dn (getkword "\n DN [50/65/80/100/125/200/250]:")) (cond ((= dn "50")(setq d2 60.3 h 324 ))((= dn "65")(setq d2 76.1 h 276 )) ((= dn "80")(setq d2 88.9 h 238 ))((= dn "100")(setq d2 114.3 h 162 ))((= dn "125")(setq d2 139.7 h 86 )) ((= dn "200")(setq d2 219.1 h 152 ))((= dn "250")(setq d2 273 h 314 )) ) ) ((= dn "200") (initget "100 125 150 250 300") (setq dn (getkword "\n DN [100/125/150/250/300]:")) (cond ((= dn "100")(setq d2 114.3 h 315 ))((= dn "125")(setq d2 139.7 h 238 )) ((= dn "150")(setq d2 168.3 h 152 ))((= dn "250")(setq d2 273 h 161 )) ((= dn "300")(setq d2 323.9 h 312 )) ) ) ((= dn "250") (initget "150 200 300") (setq dn (getkword "\n DN [150/200/300]:")) (cond ((= dn "150")(setq d2 168.3 h 314 ))((= dn "200")(setq d2 219.1 h 161 )) ((= dn "300")(setq d2 323.9 h 152 )) ) ) ((= dn "300") (initget "200 250") (setq dn (getkword "\n DN [200/250]:")) (cond ((= dn "200")(setq d2 219.1 h 312 ))((= dn "250")(setq d2 273 h 152 )) ) ) ) ) (setq dn2 dn) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (if sv_dm (setvar "DYNMODE" sv_dm)) ) ) (cond (d2 (if (> d1 d2) (setq gdn dn1 dn dn2) (setq gdn dn2 dn dn1)) ;; pour nom bloc (if (= d1 d2) (setq h nil) (setq h (* 3 (abs (- d1 d2))))) (setq pf (list (car pd)(cadr pd) h)) (setq r1 (/ d1 2) r2 (/ d2 2)) ;;; cercles pour visualisation (command "_circle" "_non" pd r1) (setq b (entlast)) (command "_circle" "_non" pf r2) (setq b2 (entlast)) (if (< d1 d2) (command "_ucs" "_zaxis" "_non" pf "_non" pd)) (initget "Aucun") (if (> d1 d2) (setq ta (getpoint pf "\nSi excentrique TANGENT de quel coté?[<Aucun>]:")) (setq ta (getpoint '(0. 0. 0.) "\nSi excentrique TANGENT de quel coté?[<Aucun>]:")) ) (if (= ta "Aucun")(setq ta nil)) (if ta (if (and (= 0 (car ta))(= 0 (cadr ta)))(setq ta nil))) (if ta (setq a (angle pf ta))(setq a 0.0)) (if (< d1 d2) (command "_ucs" "_p")) ;;; supprime cercles pour visualisation (entdel B) (entdel b2) (if ta (setq nomb (strcat "REDUCT" "_" "EXC" "_" "ISO" "_DN" gdn "x" dn )) (setq nomb (strcat "REDUCT" "_" "CONC" "_" "ISO" "_DN" gdn "x" dn )) ) (if (tblsearch "block" nomb) ;; recherche bloc dans dessin (progn ;;;; insertion bloc (if (< d1 d2) (command "_ucs" "_zaxis" "_non" pf "_non" pd)) (command "_-insert" nomb "_non" '(0. 0. 0.) "" "" (* a (/ 180 pi))) (if (and (< d1 d2) ta)(command "_move" (entlast) "" "_non" '(0. 0. 0.) "_non" (polar '(0. 0. 0.) a (- r1 r2)))) (if (< d1 d2) (command "_ucs" "_p")) ) (progn ;; le bloc n´existe pas ;;;; creation solide 3 d ;; si excentré tangent sur angle 0 (cond ((and ta (< r1 r2)) (setq pdd (polar pd (* 2 pi) (- r1 r2))) (command "_circle" "_non" pdd r1) (setq b (entlast)) (command "_circle" "_non" pf r2) (setq b2 (entlast)) ) ((and ta (> r1 r2)) (setq pfd (polar pf 0 (- r1 r2))) (command "_circle" "_non" pd r1) (setq b (entlast)) (command "_circle" "_non" pfd r2) (setq b2 (entlast)) ) (t (command "_circle" "_non" pd r1) (setq b (entlast)) (command "_circle" "_non" pf r2) (setq b2 (entlast)) ) ) (command "_loft" b b2 "" "") (setq trc (entlast)) (setq epr 2) ;;;;;;;;;;;;;;;;;;;;;;;;;; EPAISSEUR PAR DEFAUT (setq r1i (- r1 epr)) (if (and ta (< r1 r2)) (command "_circle" "_non" pdd r1i) (command "_circle" "_non" pd r1i)) (setq b (entlast)) (setq r2i (- r2 epr)) (if (and ta (> r1 r2)) (command "_circle" "_non" pfd r2i) (command "_circle" "_non" pf r2i)) (setq b2 (entlast)) (command "_loft" b b2 "" "") (command "_subtract" trc "" "_L" "") (setq reduc (entlast)) ;;; change le calque du solide pour création bloc dans calque "0" (setq lent (entget reduc)) (setq lent (subst (cons 8 "0") (assoc 8 lent) lent)) (entmod lent) ;; création attributs (setq st (getvar "textstyle")) (setvar "textstyle" "standard") (setq tsize (getvar "textsize")) (setq af (getvar "aflags")) (setq ht (* 0.07 d1 )) ; hauteur texte (setq it (* 1.3 ht)) ; intervale ligne texte (setvar "aflags" 9) ;;; prédéfini et invisible (command "_-attdef" "" "TYPE" "TYPE" (strcat "REDUCT_" (if ta "EXC" "CONC") "_ISO") "_non" '(0. 0. 0.) ht "0") (setq att1 (entlast)) (command "_-attdef" "" "DN" "DN" (strcat gdn " x " dn) "_non" (polar '(0. 0. 0.) (* 1.5 pi) (+ (* 1 it) (* 0.2 ht))) ht "0") (setq att2 (entlast)) (setvar "aflags" af) (setvar "textsize" tsize ) (setvar "textstyle" st) ;; change calque attributs (command "_change" att1 att2 "" "_p" "_la" "0" "_c" "DUBLOC" "") ;; création bloc (if (< r1 r2) (command "_ucs" "_zaxis" "_non" pf "_non" pd)) (command "_-block" nomb "_non" '(0. 0. 0.) att1 att2 reduc "") (if (< r1 r2) (command "_ucs" "_p")) ;;;; insertion bloc (if (< d1 d2) (command "_ucs" "_zaxis" "_non" pf "_non" pd)) (command "_-insert" nomb "_non" '(0. 0. 0.) "" "" (* a (/ 180 pi))) (if (and (< d1 d2) ta)(command "_move" (entlast) "" "_non" '(0. 0. 0.) "_non" (polar '(0. 0. 0.) a (- r1 r2)))) (if (< d1 d2) (command "_ucs" "_p")) ) ) ) ) (gc) (if pdir (command "_ucs" "_p")) (command "_undo" "_e") (princ "Longueur ")(princ h) (princ) )

Bravo, super lisp qui pourra être bien utile.

Merci pour le retour. J'aurais du le faire, maintenant c'est fait, j'ai mis un point devant toutes les commandes. Bonne journée

Bien le bonjour Voici une nouvelle version du tuyau 3d "tuy.lsp". Cette fois-ci j'ai la possibilité d'avoir les tubes en blocs avec attributs en + des coudes et d'avoir les axes qui vont jusqu'aux points d'épure. Je n'ai mis que l'entête du lisp car il commence à être long. Il faut le récupérer à cette adresse . ;; commandes: TUY: tuyau 3D, TSA: tuyau sans axe, TU: tube depuis axe, CDT: coude seul et CD: axe coude, CALOS: calo depuis axe ou 2 points. ;; version 4 le 12-6-2011 ajout commande CDB pour relier 2 lignes par un coude en bloc avec attributs (pas de coude emboité sauf si déjà créé avec tuyb ou tuycb) ;; version 5 le 01-7-2011 ajout commande TUB pour génèrer le tube en bloc avec attributs à partir de la ligne sélectionné ;; version 6 le 28-8-2011 ajout commande TUYCB et TSACB = TUY ou TSA avec coudes en bloc et attributs ;; version 6.1 correction bug dans division par 45 ;; 6.2 restauration rayon de raccord ;; " Amélioration "coudbloc" et "tub", bloc créé dans calque 0 et couleur "dubloc" ;; version 7 le 07-12-2013 ajout commande TUYB et TSAB avec tubes et coudes en bloc avec attribut ;; le 16-01-2014 (setq epure T) ;;;;Axes jusqu'aux points d'épure (variable à désactiver si on n'en veut pas) ;;;Récap des commandes dispo: TUY ,TSA ,TU ,CD, CDT, CALOS ou avec des blocs TUYB, TUYCB,TSAB,TSACB, TUB, CDB Comme indiqué ci-dessus il y a 2 nouvelles commandes pour avoir tout en blocs : TUYB ou TSAB. Et pour les axes jusqu'aux points d'épure, c'est la variable "epure" qui le gère:(setq epure T) pour rester dans l'ancien mode écrire (setq epure nil) ou mettre un ; devant par exemple dans: (defun c:tuy (/ ftrad delobjet epure) (setq m:err *error* *error* erreurtuy) (setq ftrad (getvar "filletrad")) (setq delobjet (getvar "delobj")) (setvar "delobj" 1) ;;; avec des axes ;; CI-DESSOUS (setq epure T) ;;;tracé des axes jusqu'aux points d'épure (tuy) (setvar "delobj" delobjet) (setvar "FILLETRAD" ftrad) (setq *error* m:err m:err nil) (princ) ) Bon tuyautage

Bonjour Voici la version 2.11, qu'elle est la dernière ? ;;;================================================================= ;;; ;;; OU.LSP V2.11 ;;; ;;; Localiser des blocs ;;; ;;; Copyright (C) Patrick_35 ;;; ;;;================================================================= (defun c:ou(/ bas cle doc ent fic lst nbl pos pt sel tbl tot totg xd xt dessine_ligne msgbox recherche_nom) ;;;--------------------------------------------------------------- ;;; ;;; Message ;;; ;;;--------------------------------------------------------------- (defun MsgBox (Titre Bouttons Message / Reponse WshShell) (vl-load-com) (setq WshShell (vlax-create-object "WScript.Shell")) (setq Reponse (vlax-invoke WshShell 'Popup Message 0 Titre (itoa Bouttons))) (vlax-release-object WshShell) Reponse ) ;;;--------------------------------------------------------------- ;;; ;;; Filtre les blocs anonymes et ceux associés aux xrefs ;;; ;;;--------------------------------------------------------------- (defun recherche_nom(ent) (or (wcmatch (vla-get-name ent) "`**,*|*") (eq (vla-get-isxref ent) :vlax-true) (setq tbl (cons (vla-get-name ent) tbl)) ) ) ;;;--------------------------------------------------------------- ;;; ;;; Dessine une ligne de 0,0 au point d'insertion du bloc ;;; ;;;--------------------------------------------------------------- (defun dessine_ligne(ent / bl lay) (setq lay (vla-item (vla-get-layers doc) (vla-get-layer ent))) (if (vlax-property-available-p ent 'EffectiveName) (setq bl (vla-get-effectivename ent)) (setq bl (vla-get-name ent)) ) (if (eq nbl bl) (setq totg (1+ totg)) ) (and (eq (vla-get-freeze lay) :vlax-false) (eq (vla-get-layeron lay) :vlax-true) (eq (vla-get-lock lay) :vlax-false) (eq nbl bl) (not (member (vlax-make-variant (vla-get-name lay)) lst)) (entmake (list (cons 0 "LINE") (cons 8 (vla-get-name lay)) (cons 10 (trans pt 1 0)) (cons 11 (vlax-get ent 'insertionpoint)) (cons 410 (vla-get-name (vla-get-layout (vla-objectidtoobject (vla-get-database ent)(vla-get-ownerid ent))))) ) ) (setq tot (1+ tot)) ) (princ) ) ;;;--------------------------------------------------------------- ;;; ;;; Routine principale ;;; ;;;--------------------------------------------------------------- (vl-load-com) (setq doc (vla-get-activedocument (vlax-get-acad-object)) cle "HKEY_CURRENT_USER\\Software\\Autodesk\\Autocad\\Patrick_35" ) (if (vl-registry-read cle "Base_Ou_X") (setq pt (list (atof (vl-registry-read cle "Base_Ou_X")) (atof (vl-registry-read cle "Base_Ou_Y")) (atof (vl-registry-read cle "Base_Ou_Z")) ) ) (setq pt '(0.0 0.0 0.0)) ) (vla-startundomark doc) (while (not bas) (initget "Choix Origine") (setq sel (entsel "\nSélectionnez un Bloc / Choix / Origine : ")) (if (eq sel "Origine") (progn (if (setq bas (getpoint (strcat "\nVeuillez saisir le point d'origine (" (rtos (car pt) (getvar "lunits") 2) "," (rtos (cadr pt) (getvar "lunits") 2) "," (rtos (caddr pt) (getvar "lunits") 2) ") : "))) (progn (setq pt bas) (vl-registry-write cle "Base_Ou_X" (rtos (car pt))) (vl-registry-write cle "Base_Ou_Y" (rtos (cadr pt))) (vl-registry-write cle "Base_Ou_Z" (rtos (caddr pt))) ) ) (setq bas nil) ) (setq bas T) ) ) (if (eq sel "Choix") (if (setq fic (findfile "ou.dcl")) (progn (setq fic (load_dialog fic) pos "0") (vlax-map-collection (vla-get-blocks doc) 'recherche_nom) (new_dialog "ou" fic "") (start_list "bl") (mapcar 'add_list (setq tbl (acad_strlsort tbl))) (end_list) (set_tile "titre" "OU V2.11") (set_tile "bl" pos) (mode_tile "cancel" 2) (action_tile "bl" "(setq pos $value)") (action_tile "accept" "(done_dialog 1)") (action_tile "cancel" "(done_dialog 0)") (if (eq (start_dialog) 1) (setq nbl (nth (atoi pos) tbl)) ) (unload_dialog fic) ) (msgbox "OU" 16 "Le fichier OU.DCL est introuvable.") ) (if sel (if (eq (cdr (assoc 0 (entget (car sel)))) "INSERT") (progn (setq ent (vlax-ename->vla-object (car sel))) (if (not (vlax-property-available-p ent 'Path)) (if (vlax-property-available-p ent 'EffectiveName) (setq nbl (vla-get-effectivename ent)) (setq nbl (vla-get-name ent)) ) ) ) (princ "\nCe n'est pas un bloc.") ) ) ) (if nbl (if (ssget "x" (list (cons 0 "INSERT") (cons 2 (strcat nbl ",`**")))) (progn (if (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-get-activepviewport (list doc)))) (progn (vla-getxdata (vla-get-activepviewport doc) "" 'xt 'xd) (setq lst (vlax-safearray->list xd)) ) ) (setq totg 0 tot 0) (vlax-map-collection (setq sel (vla-get-activeselectionset doc)) 'dessine_ligne) (vla-delete sel) (princ (strcat "\n" (itoa totg) " " nbl " trouvé(s) et " (itoa tot) " ligne(s) de dessinée(s).")) ) ) ) (vla-endundomark doc) (princ) ) (setq nom_lisp "OU") (if (/= app nil) (if (= (strcase (substr app (1+ (- (strlen app) (strlen nom_lisp))) (strlen nom_lisp))) nom_lisp) (princ (strcat "..." nom_lisp " chargé.")) (princ (strcat "\n" nom_lisp ".LSP Chargé.....Tapez " nom_lisp " pour l'éxecuter."))) (princ (strcat "\n" nom_lisp ".LSP Chargé......Tapez " nom_lisp " pour l'éxecuter."))) (setq nom_lisp nil) (princ) et la boite de dialogue // ================================================================= // // OU.DCL V2.11 // // Copyright (C) Patrick_35 // // ================================================================= ou : dialog { key = "titre"; fixed_width = true; alignment = centered; is_cancel = true; width = 40; : list_box {label= "Bloc(s)" ; key="bl"; height = 15; multiple_select = false;} spacer; ok_cancel; }

Bonjour même chose que pour etrier.lsp, j'ai fait une modif pour que le bloc soit créé sur le calque 0 et de la couleur DUBLOC. ;; création bloc (command "_change" att1 att2 tube "" "_p" "_la" "0" "_c" "DUBLOC" "")

Bonjour J'ai fait une petite modif pour que le bloc soit correctement créé sur le caque 0 et de la couleur DUBLOC. C'est une remarque que m'a fait Philsogood à propos de mon lisp pour la tuyauterie 3D. ;; création bloc (command "_change" att1 etrier "" "_p" "_la" "0" "_c" "DUBLOC" "")

Bonjour, A tester. ;;version 09 12 2013 ;; ;; PHILIPPE B (defun c:TUBE (/ p1 p2 dia dn rm lgt ss1 ss2 tube p2_SCG nle lda) (setq p1 (getpoint "\nPoint de départ du tube :")) (setq p2 (getpoint p1 "\nPoint d'arrivée du tube :")) (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 dia 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)) ) (setq lgt (distance p1 p2)) ;; longueur tube (setq p2_scg (trans p2 1 0)) (command "_.ucs" "_non" p1 "_non" (trans p2_SCG 0 1 ) "") (setq nomb (strcat "TUBE_DN" dn)) (if (not (tblsearch "block" nomb)) ;; recherche bloc dans dessin (progn ;; le bloc n´existe pas ;;;; creation solide 3 d (setvar "cmdecho" 0) (command "_line" "_non" '(0. 0. 0.) "_non" '(1. 0. 0.) "") (setq ss1 (entlast)) (command "_circle" '(0. 0. 0.) (* dia 0.5)) (setq ss2 (entlast)) (command "_sweep" ss2 "" ss1) (setq tube (entlast)) ;; suppression de l'axe si: (if (or (= 0 (getvar "DELOBJ"))(= 1 (getvar "DELOBJ"))) (entdel SS1)) ;; création attributs (setq st (getvar "textstyle")) (setvar "textstyle" "standard") (setq af (getvar "aflags")) (setq ht (* 0.07 dia )) ; hauteur texte (setvar "aflags" 9) ;;; prédéfini et invisible (command "_-attdef" "" "Désignation" "Désignation" (strcat "TUBE DN" dn) "_non" '(0. 0. 0.) ht "0") (setq att1 (entlast)) (command "_-attdef" "" "LONG" "Longueur" "" "_non" (polar '(0. 0. 0.)(* 1.5 pi)(+ 1.3 ht)) ht "0") (setq att2 (entlast)) (setvar "aflags" af) (setvar "textstyle" st) ;; création bloc (command "_change" att1 att2 tube "" "_p" "_la" "0" "_c" "DUBLOC" "") (command "_-block" nomb "_non" '(0. 0. 0.) att1 att2 tube "") ) ) ;;;; insertion bloc (command "._-insert" nomb "X" lgt "Y" 1 "Z" 1 "_non" '(0. 0. 0.) "0" ) (setvar "cmdecho" 1) ;;;;;;;; modif attribut longueur du tube ;;;;;;;;;;;; (setq nle (entlast)) (while (and (/= (cdr (assoc 2 (setq lda (entget (setq nle (entnext nle)))))) "LONG") (/= "SEQEND" (cdr (assoc 0 lda))) ) ) (setq lda (subst (cons 1 (rtos lgt 2 2)) (assoc 1 lda) lda)) ;liste données attribut (entmod lda) (entupd nle) ;attribut LONG mise à jour (prin1) )

Bonjour, Je t'ai fait la modification, mais testé rapidement. Fait quand même attention à ce que tu recopies, j'ai fait vite et je n'ai pas tout bien nettoyé. ;;version 09 12 2013 ;; ;; PHILIPPE B (defun c:ETRIER (/ pdir l1 l2 p1 R dn d1 d2 sv_dm dm poi prix af ht ETRIER diam_n st) (setq p1 (getpoint "\nPoint de départ de l'etrier :")) (if p1 (setq pdir (getpoint p1 "\n direction de l'étrier <>: "))) (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 diam_n (setq dn (getkword "\n dn [10/15/20/25/32/40/50/65/80/100/125/150/200/250/300]:"))) (cond ((= dn "10") (setq dn 17.2) (setq l2 27.4) (setq d1 6) (setq poi 0.020) (setq prix 0.82)) ((= dn "15") (setq dn 21.3) (setq l2 29.35) (setq d1 6)) ((= dn "20") (setq dn 26.9) (setq l2 36.55) (setq d1 8)) ((= dn "25") (setq dn 33.7) (setq l2 38.15) (setq d1 8)) ((= dn "32") (setq dn 42.4) (setq l2 46.8) (setq d1 8)) ((= dn "40") (setq dn 48.3) (setq l2 45.85) (setq d1 8)) ((= dn "50") (setq dn 60.3) (setq l2 49.85) (setq d1 8)) ((= dn "65") (setq dn 76.1) (setq l2 61.95) (setq d1 8)) ((= dn "80") (setq dn 88.9) (setq l2 70.55) (setq d1 10)) ((= dn "100") (setq dn 114.3) (setq l2 98.85) (setq d1 10)) ((= dn "125") (setq dn 139.7) (setq l2 104.15) (setq d1 10)) ((= dn "150") (setq dn 168.3) (setq l2 118.85) (setq d1 12)) ((= dn "200") (setq dn 219.1)) ((= dn "250") (setq dn 273)) ((= dn "300") (setq dn 323.9)) ((= dn "Autre") (setq dn (getdist "\nDiamètre en mm:"))) (t (princ)) ) (setq nomb (strcat "ETRIER_DN" diam_n)) (if (tblsearch "block" nomb) ;; recherche bloc dans dessin ;;;; insertion bloc (command "_-insert" nomb "_non" '(0. 0. 0.) "" "" "0" ) (progn ;; le bloc n´existe pas ;;;; creation solide 3 d (setvar "cmdecho" 0) (setq l1 (+ dn d1)) (command "_pline" (list (- (nth 0 p1) (/ l1 2)) (- (nth 1 p1) l2) (nth 2 p1)) (list (- (nth 0 p1) (/ l1 2)) (nth 1 p1) (nth 2 p1)) "_A" "_CE" p1 "_A" -180 "_LI" (list (+ (nth 0 p1) (/ l1 2)) (- (nth 1 p1) l2) (nth 2 p1)) "") (setq ss1 (entlast)) (setq R (/ d1 2)) (command "_circle" p1 R) (setq ss2 (entlast)) (command "_sweep" ss2 "" ss1) (setq etrier (entlast)) ;; création attributs (setq st (getvar "textstyle")) (setvar "textstyle" "standard") (setq af (getvar "aflags")) (setq ht (* 0.07 dn )) ; hauteur texte (setvar "aflags" 9) ;;; prédéfini et invisible (command "_-attdef" "" "Désignation" "Désignation" (strcat "ETRIER DN" diam_n) "_non" '(0. 0. 0.) ht "0") (setq att1 (entlast)) (setvar "aflags" af) (setvar "textstyle" st) ;; création bloc (command "_change" att1 etrier "" "_p" "_la" "0" "_c" "DUBLOC" "") (command "_-block" nomb "_non" '(0. 0. 0.) att1 etrier "") ;;;; insertion bloc (command "_-insert" nomb "_non" '(0. 0. 0.) "" "" "0" ) (setvar "cmdecho" 1) ) ) (prin1) )