Bibli Lisp 2D en 3D?

bonuscad · le 29 décembre 2008

Bonjour,

J'ai modifié le code au message 18

Il serait bien qu'une personne de la partie que ça intéresse contrôle les résultats obtenus.

Tout comme les matrices fournies par etude0.

En tout cas voici où en est rendu la routine à ce jour, censée dessiner des brides en 3D de forme:

Plate Tournante Collerette Slip-on et LWN

Pour moi tout cela ne me parle pas trop... :casstet:

Alors bons tests ...

usegomme · le 30 décembre 2008

Merci , bonuscad

Il me tarde de retourner travaillé pour essayer ça (enfin , euh , pas trop qu'en même).

FRAXA · le 30 décembre 2008

Bonjour Bonuscad!

J'ai essayé ton lisp sur 2005 et je n'obtiens que de des cercles!!

Sinon juste une petite remarque, après avoir choisi la Pression Nominal, on choisi le Diamètre Nominal de la tuyauterie et non d'une poutre.

En tout cas, je me pose des questions sur l'utilité de ce lips. En effet, je trouve regrettable de dessinner des brides 3d alors que beaucoup de fabriquants proposent de télécharger gratuitement des blocs "bride" dessinnés en 3d ( voir sur tracepart) mais ce n'est que mon avis.

lili2006 · le 30 décembre 2008

Bonjour à toutes et tous,

Sur une V2009, tout semble fonctionner (non testé en profondeur) =>

Encore un joli travail de bonuscad, :P

http://images4.hiboox.com/images/0108/151f50e3abf1463fba833e2b7a7b60a1.jpg

kohen.g · le 30 décembre 2008

Bonsoir,

SUr un des post tu me demandais le fichier source complet je veux bien te l'envoyer mais comment je peux faire, tu ne me donnes pas ton adresse et sans ça je sais pas faire

@+

Est il possible d'associer des attribut de bloc a ton Lisp;

En tout cas merci ça fais plaisir qu'autant de monde travail à ce sujet

Merci et bonne Fêtes

(gile) · le 30 décembre 2008

Est il possible d'associer des attribut de bloc a ton Lisp;

On associe des attributs à un bloc, pas à un LISP.

Comme FRAXA, pour ce type de pièce, je pense vraiment qu'il est plus rationnel de faire des blocs que de réclamer des LISP qui créent à chaque fois un nouveau solide.

Les blocs permettent d'alléger le fichier, d'utiliser des attributs et de faire des nomenclatures (extraction).

bonuscad · le 31 décembre 2008

il est plus rationnel de faire des blocs

En fait, je pense aussi...

Le seul cas où le bloc, n'est pas adapté, c'est pour les brides à collerettes où un paramètre est demandé à l'utilisateur (épaisseur du talon). Ce paramètre influe sur le dessin, je ne sais pas si ce paramètre est libre ou doit correspondre à des normes précises. (je rappelle que je ne suis pas de la partie)

Bon ce lisp peut permettre quand même de re/générer la bibliothèque facilement et rapidement un modifiant les données et/ou en rajoutant de nouvelles, car cela fait quand même beaucoup de possibilités, donc beaucoup de blocs à créer.

Est il possible d'associer des attribut de bloc a ton Lisp

Non, mais des Xdata associées aux entités solides oui.

Peut être plus puissant que les attributs, mais beaucoup plus ardu à mettre en place. (Il faut bien savoir ce qu'on veut faire avec ces données par la suite pour bien les mettre en place au départ, donc une bonne réflexion est indispensable)

Par exemple un filtrage de sélection peut être fait sur un ou plusieurs paramètre de Xdata.

(sélection de tout les objet dont le DN est associé; brides, tuyaux, vannes... à ce paramètre)

Je l'ai fait dans un domaine que je maitrise, je ne le ferais pas dans celui-ci.

Et je pense que les blocs avec attributs seraient plus adaptés...

L'utilisation des Xdata ne peut être faite pleinement que si on programme un tant soit peu, autrement elles perdent de leur intérêt dans l'exploitation.

kohen.g · le 31 décembre 2008

Bonuscad salut as tu regarder le pgm que je t'ai filé?

kohen.g · le 1 janvier 2009

Bonne année à toutes et tous!!!

Dite moi est ce possible de rajouter des éléments genre bride spéciale

si oui ou dans le lisp il faut rajouter les dimmensions ou alors c'est Bcp plus compliqué que cela

Merci

usegomme · le 7 janvier 2009

Bonjour,

Bonuscad , j'ai quelques remarques concernant bride.lsp :

Pour les brides tournantes il ne s'agit pas du nombre de collet mais du type 02 ou 04 , il existe aussi le type 03 en tôle emboutie qui est intéressant.

Pour les brides à collerette le talon est normalisé du PN10 au PN 50 inclus.

Si tu veux je peux rajouter les épaisseurs de talon en avant dernière valeur de liste de valeurs de ton lisp car j'ai vu que tu utilises : (last l_val)

Encore merci , super boulot.

[Edité le 7/1/2009 par usegomme]

bonuscad · le 7 janvier 2009

Salut usegomme,

Si tu te sens de corriger des erreurs, vas y!

Moi dans ce domaine, je ne connais rien aux normes. Je me suis appuyé, en le décortiquant, sur le lisp de etude0 sans toujours bien comprendre les valeurs utilisées.

Voici, si ça peut t'aider, mon interprétation du programme d'origine pour concevoir le lisp (etude0 n'a pu m'éclairer correctement sur ces valeurs)

J'espère d'ailleurs que la société IMPAC ne seras pas surprise de retrouver des sources publiées sur le net. (j'ai un doute...)

;|
D  diametre exterieur bride
K  diametre axe boulonnerie
L  diametre taraudage boulonnerie
nb nombre de boulons
A1 diametre interieur tuyau/exterieur collerrette
B1 diametre interieur bride
c1 épaisseur totale bride (avec epaisseur porte joint)
c2 épaisseur collerette + porte joint (collerette = c2-f1)
c3 épaisseur collerette + porte joint (collerette = c3-f1) LWN
c4 épaisseur contre-collerette + porte joint (contre-collerette= C4-f1) option t
c5 épaisseur 1er collet (2eme collet= h2-c5)
c6 épaisseur collerette bride tournante
h1 épaisseur totale bride slip-on
h2 épaisseur totale bride tournante avec collet "4" (1er et 2eme) ou LWN
h3 hauteur cylindre au dessus du cone collerette
N1 diametre exterieure de la base du cone collerette
N2 diametre exterieure slip-on
N3 diamètre exterieure LWN
B6 diamètre intérieure LWN
d1 diametre interieur bride
f1 epaisseur porte joint
|;
;(setq matrice '(dn . (D K L nb A1 B1 c1 c2 c3 c4 c5 c6 h1 h2 h3 N1 N2 N3 B6 d1 f1)))
;                     (0 1 2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20)
;  D (/ D 2)
;  K (/ K 2)
;  L (/ L 2)
; A1 (/ A1 2)
; B1 (/ B1 2)
; N1 (/ N1 2)
; B6 (/ B6 2)
; d1 (/ d1 2)

(setq PN6   ;'(dn . (D K L nb A1 B1 c1  -  -  - c5 c6  - h2  -  -  -  -  - d1 f1)) c4=c1
(setq PN10  ;'(dn . (D K L nb A1 B1 c1 c2 c3 c4 c5 c6 h1 h2 h3 N1 N2 N3 B6 d1 f1))
(setq PN16  ;'(dn . (D K L nb A1 B1 c1 c2 c3 c4 c5 c6 h1 h2 h3 N1 N2 N3 B6 d1 f1))
(setq PN20  ;'(dn . (D K L nb A1 B1 c1 c2 c3  -  -  - h1 h2 h3 N1  -  - B6 d1 f1)) c4=c2 N2=N1 N3=N1
(setq PN25  ;'(dn . (D K L nb A1 B1  -  - c3 c4 c5 c6 h1 h2 h3 N1 N2 N3 B6 d1 f1)) c2=c3
(setq PN40  ;'(dn . (D K L nb A1 B1  -  - c3 c4 c5 c6 h1 h2 h3 N1 N2 N3 B6 d1 f1)) c2=c3
(setq PN50  ;'(dn . (D K L nb A1 B1  - c2  -  -  -  - h1 h2 h3 N1  -  - B6 d1 f1)) c3=c2 c4=c2 N2=N1 N3=N1
(setq PN100 ;'(dn . (D K L nb A1 B1  - c2  -  -  -  - h1 h2 h3 N1  -  - B6 d1 f1)) c2=c2+f1 c3=C2 c4=c2 N2=N1 N3=N1
(setq PN150 ;'(dn . (D K L nb A1 B1  - c2  -  -  -  - h1 h2 h3 N1  -  - B6 d1 f1)) c2=c2+f1 c3=c2 c4=c2 N2=N1 N3=N1
(setq PN250 ;'(dn . (D K L nb A1 B1  - c2  -  -  -  - h1 h2 h3 N1  -  - B6 d1 f1)) c2=c2+f1 c3=c2 c4=c2 N2=N1 N3=N1
(setq PN420 ;'(dn . (D K L nb A1  -  - c2  -  -  -  -  - h2 h3 N1  -  - B6 d1 f1)) c2=c2+f1 c3=c2 c4=c2 N3=N1

Ceci sous toute réserve, je le rappelle car je n'y connais pas grand chose et je l'ai fait plutôt avec logique, (et comme cela à l'air de coller....)

usegomme · le 7 janvier 2009

Salut bonuscad

Si tu te sens de corriger des erreurs, vas y!

Eh bien pas trop à vrai dire , je suis "trés leger" par rapport à toi , je pensais compléter les tableaux de valeurs pour te donner un coup de main , mais bon je peux essayer si j'arrive à tout comprendre.

J'espère d'ailleurs que la société IMPAC ne seras pas surprise de retrouver des sources publiées sur le net. (j'ai un doute...)

Je pense qu'ils seront bons joueurs car tout ça n'est plus tout jeune et j'ai aussi retrouvé 3 de mes lisp sans mon nom ,mais avec améliorations dans leur collection , etude0 m' ayant fait parvenir l' ensemble.

je le rappelle car je n'y connais pas grand chose et je l'ai fait plutôt avec logique

Chapeau !

kohen.g · le 7 janvier 2009

Bonuscad j'arrive pas a te contacter par mail as tu pu regarder le pgm complet est il viable?

je vais prendre un peu plus de temps pour vérifier ta modif du Lisp

Effectivement le 04 c'est un type de bride

En tout cas chapeau bas

bonuscad · le 7 janvier 2009

je pensais compléter les tableaux de valeurs pour te donner un coup de main

Je ne peut que t'encourager à faire évoluer cette routine, chacun peut y mettre son coup de patte, j'en fais pas ma propriété.

Je te donne les fichiers qui m'ont servis pour l'élaboration, ça pourra te simplifier la tâche.

Il y a deux fichiers dwg:

bride-dim.dwg

qui est un fichier généré avec insbride.lsp de etude0, légèrement corrigé pour fonctionner de façon à avoir un rendu du code original.

bride.dwg

qui est un fichier en 2d recensant toutes les possibilités de dimensionnement de bride

insbride.lsp

qui est le lisp d'etude0 (qui fonctionne a peu près)

bride.lsp

qui est mon fichier intégral que j'ai posté dans ce fil.

Voila avec ça tu pourra peut être mieux comprendre ce que j'ai utilisé ET VOIR SI C'EST JUSTE.

J'y je peux continuer à donner un coup de main pour des modifs.... on verra la suite.

bonuscad · le 7 janvier 2009

as tu pu regarder le pgm complet est il viable?

Oui je l'ai bien reçu.

J'ai regarder j'ai essayer importer les MNU pour en faire des CUI sous 2008/2009, mais il y a eu des problèmes de conversion.

Je pense que c'est des menu d'ancienne version, qui n'étaient pas forcément bien écrit (des Label d'étiquette se répétaient) ce qui fait foirer la migration.

Du coup les menus ne fonctionnent pas correctement, et c'est un peu la prise de tête pour voir ce qui cloche. J'ai laissé tomber pour débuger ces menus.(ça me prendrait trop de temps pour un néophyte en matière de tuyau comme moi pour décortiquer tout ça).

J'ai pu avoir certain trucs valide, mais il faut soit déclarer plein de chemins de recherche, soit tout rapatrier dans un seul dossier (BMP,SLD,LSP,etc..) et malgré cela beaucoup de lisp ne fonctionne pas. Y'a du boulot... en somme!

usegomme · le 8 janvier 2009

salut , je n'ai pas encore tout compris , mais suffisamment pour entrée les valeurs de "talon" normalisée que j'ai placées en fin de listes par commodité et donc j'ai remplacé (last l_val) par (nth 20 l_val) + un if pour l'absence de valeur du "talon".

A+

;;; bonuscad 22-12-2008
;;;dernières modifications:
;; Usegomme   28/02/2010 corrigé choix unité dessin
;;;           27/03/2010 changé affichage DN
;;;           08/11/2010 orientation bride 8 trous et +
;;;           21/01/2011 gestion erreur et delobj     + scu

;;  norme NF E 29-203  1986 (périmée)

(defun erreurbride (msg)
 (setvar "delobj" delobjet)
 (if sv_dm (setvar "DYNMODE" sv_dm))
 (setvar "CMDECHO" 1)
 (setq *error* m:err m:err nil)
 (princ)
)


(defun c:bride ( / 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)

 (setq m:err *error* *error* erreurbride)
 (setq delobjet (getvar "delobj"))
 (setvar "delobj" 2)

 (setq sv_dm (getvar "DYNMODE"))
    (cond ((< sv_dm 0) (setq dm (* sv_dm -1)) (setvar "DYNMODE" dm))
           (t (setq sv_dm nil dm nil))
    )
 (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 PN6
   '(
     (10 . (75.0 50.0 11.0 4 17.20 18.00 12 nil nil nil 8 10 nil 28 nil nil nil nil nil 35.0 2 nil ))
     (15 . (80.0 55.0 11.0 4 21.30 22.00 12 nil nil nil 8 10 nil 30 nil nil nil nil nil 40.0 2 nil ))
     (20 . (90.0 65.0 11.0 4 26.90 27.50 14 nil nil nil 10 10 nil 32 nil nil nil nil nil 50.0 2 nil ))
     (25 . (100.0 75.0 11.0 4 33.70 34.50 14 nil nil nil 10 12 nil 35 nil nil nil nil nil 60.0 2 nil ))
     (32 . (120.0 90.0 14.0 4 42.40 43.50 16 nil nil nil 10 12 nil 35 nil nil nil nil nil 70.0 2 nil ))
     (40 . (130.0 100.0 14.0 4 48.30 49.00 16 nil nil nil 10 12 nil 38 nil nil nil nil nil 80.0 3 nil ))
     (50 . (140.0 110.0 14.0 4 60.30 61.50 16 nil nil nil 12 12 nil 38 nil nil nil nil nil 90.0 3 nil ))
     (65 . (160.0 130.0 14.0 4 76.10 77.50 16 nil nil nil 12 12 nil 38 nil nil nil nil nil 110.0 3 nil ))
     (80 . (190.0 150.0 18.0 4 88.90 90.50 18 nil nil nil 14 14 nil 42 nil nil nil nil nil 128.0 3 nil ))
     (100 . (210.0 170.0 18.0 4 114.30 116.00 18 nil nil nil 14 14 nil 45 nil nil nil nil nil 148.0 3 nil ))
     (125 . (240.0 200.0 18.0 8 139.70 141.50 20 nil nil nil 14 14 nil 48 nil nil nil nil nil 178.0 3 nil ))
     (150 . (265.0 225.0 18.0 8 168.30 170.50 20 nil nil nil 14 14 nil 48 nil nil nil nil nil 202.0 3 nil ))
     (200 . (320.0 280.0 18.0 8 219.10 222.00 22 nil nil nil 16 16 nil 55 nil nil nil nil nil 258.0 3 nil ))
     (250 . (375.0 335.0 18.0 12 273.00 276.50 24 nil nil nil 18 20 nil 60 nil nil nil nil nil 312.0 3 nil ))
     (300 . (440.0 395.0 22.0 12 323.90 327.50 24 nil nil nil 18 24 nil 62 nil nil nil nil nil 365.0 4 nil ))
     (350 . (490.0 445.0 22.0 12 355.60 359.50 26 nil nil nil 18 26 nil 62 nil nil nil nil nil 415.0 4 nil ))
     (400 . (540.0 495.0 22.0 16 406.40 411.00 28 nil nil nil 20 28 nil 65 nil nil nil nil nil 465.0 4 nil ))
     (450 . (595.0 550.0 22.0 16 457.00 462.50 30 nil nil nil 20 30 nil 65 nil nil nil nil nil 520.0 4 nil ))
     (500 . (645.0 600.0 22.0 20 508.00 513.50 30 nil nil nil 22 32 nil 68 nil nil nil nil nil 570.0 4 nil ))
     (600 . (755.0 705.0 26.0 20 610.00 616.50 30 nil nil nil 22 36 nil 70 nil nil nil nil nil 670.0 5 nil ))
   )
 )
 (setq PN10
   '(
     (10 . (90.0 60.0 14.0 4 17.20 18.00 14 14 16 14 10 14 20 35 6 28.0 30.0 30.0 6.10 40.0 2 2.0 ))
     (15 . (95.0 65.0 14.0 4 21.30 22.00 14 14 16 14 10 14 20 35 6 32.0 35.0 37.0 12.70 45.0 2 2.0 ))
     (20 . (105.0 75.0 14.0 4 26.90 27.50 16 16 18 16 12 16 24 38 6 40.0 45.0 44.0 19.00 58.0 2 2.0 ))
     (25 . (115.0 85.0 14.0 4 33.70 34.50 16 16 18 16 12 16 24 38 6 45.0 52.0 53.0 25.40 68.0 2 2.3 ))
     (32 . (140.0 100.0 18.0 4 42.40 43.50 16 16 18 18 12 16 26 40 6 56.0 60.0 60.0 31.80 78.0 2 2.6 ))
     (40 . (150.0 110.0 18.0 4 48.30 49.00 16 16 18 18 12 16 26 42 7 64.0 70.0 68.0 38.00 88.0 3 2.6 ))
     (50 . (165.0 125.0 18.0 4 60.30 61.50 18 18 18 18 14 16 28 45 8 75.0 85.0 80.0 50.80 102.0 3 2.9 ))
     (65 . (185.0 145.0 18.0 4 76.10 77.50 18 18 18 20 14 18 32 45 10 90.0 105.0 93.0 63.50 122.0 3 2.9 ))
     (80 . (200.0 160.0 18.0 8 88.90 90.50 22 20 20 20 16 18 34 50 10 105.0 118.0 110.0 76.20 138.0 3 3.2 ))
     (100 . (220.0 180.0 18.0 8 114.30 116.00 22 20 20 22 16 18 38 52 12 131.0 140.0 130.0 101.60 158.0 3 3.6 ))
     (125 . (250.0 210.0 18.0 8 139.70 141.50 24 22 22 22 18 18 44 55 12 156.0 168.0 159.0 127.00 188.0 3 4.0 ))
     (150 . (285.0 240.0 22.0 8 168.30 170.50 24 22 22 24 18 18 44 55 12 184.0 195.0 184.0 152.40 212.0 3 4.5 ))
     (200 . (340.0 295.0 22.0 8 219.10 222.00 24 24 24 24 20 20 44 62 16 235.0 247.0 236.0 203.20 268.0 3 5.6 ))
     (250 . (395.0 350.0 22.0 12 273.00 276.50 26 26 26 26 22 22 46 68 16 292.0 300.0 290.0 254.00 320.0 3 6.3 ))
     (300 . (445.0 400.0 22.0 12 323.90 327.50 26 26 26 26 22 26 46 68 16 344.0 352.0 342.0 304.80 370.0 4 7.1 ))
     (350 . (505.0 460.0 22.0 16 355.60 359.50 28 26 26 26 22 28 53 68 16 385.0 398.0 396.0 355.60 430.0 4 8.0 ))
     (400 . (565.0 515.0 26.0 16 406.40 411.00 32 26 26 28 24 32 57 72 16 440.0 448.0 448.0 406.40 482.0 4 8.8 ))
     (450 . (615.0 565.0 26.0 20 457.00 462.50 38 28 28 28 24 34 62 72 16 488.0 502.0 498.0 457.20 532.0 4 10.0 ))
     (500 . (670.0 620.0 26.0 20 508.00 513.50 38 28 28 30 26 38 67 75 16 542.0 552.0 552.0 508.00 585.0 4 11.0 ))
     (600 . (780.0 725.0 30.0 20 610.00 616.50 40 28 30 34 26 44 75 80 18 642.0 658.0 652.0 609.60 685.0 5 12.5 ))
   )
 )
 (setq PN16
   '(
     (10 . (90.0 60.0 14.0 4 17.20 18.00 14 14 16 14 10 14 20 35 6 28.0 30.0 30.0 6.10 40.0 2 2.0 ))
     (15 . (95.0 65.0 14.0 4 21.30 22.00 14 14 16 14 10 14 20 35 6 32.0 35.0 37.0 12.70 45.0 2 2.0 ))
     (20 . (105.0 75.0 14.0 4 26.90 27.50 16 16 18 16 12 16 24 38 6 40.0 45.0 44.0 19.00 58.0 2 2.0 ))
     (25 . (115.0 85.0 14.0 4 33.70 34.50 16 16 18 16 12 16 24 38 6 45.0 52.0 53.0 25.40 68.0 2 2.3 ))
     (32 . (140.0 100.0 18.0 4 42.40 43.50 16 16 18 18 12 16 26 40 6 56.0 60.0 60.0 31.80 78.0 2 2.6 ))
     (40 . (150.0 110.0 18.0 4 48.30 49.00 16 16 18 18 12 16 26 42 7 64.0 70.0 68.0 38.00 88.0 3 2.6 ))
     (50 . (165.0 125.0 18.0 4 60.30 61.50 18 18 18 18 14 16 28 45 8 75.0 85.0 80.0 50.80 102.0 3 2.9 ))
     (65 . (185.0 145.0 18.0 4 76.10 77.50 18 18 18 20 14 18 32 45 10 90.0 105.0 93.0 63.50 122.0 3 2.9 ))
     (80 . (200.0 160.0 18.0 8 88.90 90.50 22 20 20 20 16 18 34 50 10 105.0 118.0 110.0 76.20 138.0 3 3.2 ))
     (100 . (220.0 180.0 18.0 8 114.30 116.00 22 20 20 22 16 18 38 52 12 131.0 140.0 130.0 101.60 158.0 3 3.6 ))
     (125 . (250.0 210.0 18.0 8 139.70 141.50 24 22 22 22 18 18 44 55 12 156.0 168.0 159.0 127.00 188.0 3 4.0 ))
     (150 . (285.0 240.0 22.0 8 168.30 170.50 24 22 22 24 18 18 44 55 12 184.0 195.0 184.0 152.40 212.0 3 4.5 ))
     (200 . (340.0 295.0 22.0 12 219.10 222.00 26 24 24 26 20 20 44 62 16 235.0 247.0 236.0 203.20 268.0 3 5.6 ))
     (250 . (405.0 355.0 26.0 12 273.00 276.50 32 26 26 26 22 24 46 70 16 292.0 300.0 290.0 254.00 320.0 3 6.3 ))
     (300 . (460.0 410.0 26.0 12 323.90 327.50 32 28 28 28 24 28 46 78 16 344.0 355.0 348.0 304.80 378.0 4 7.1 ))
     (350 . (520.0 470.0 26.0 16 355.60 359.50 36 30 30 30 26 32 57 82 16 390.0 400.0 396.0 355.60 438.0 4 8.0 ))
     (400 . (580.0 525.0 30.0 16 406.40 411.00 38 32 32 32 28 36 63 85 16 445.0 456.0 448.0 406.40 490.0 4 8.8 ))
     (450 . (640.0 585.0 30.0 20 457.00 462.50 42 34 36 36 30 40 68 85 16 490.0 502.0 516.0 457.20 550.0 4 10.0 ))
     (500 . (715.0 650.0 33.0 20 508.00 513.50 44 34 36 40 32 44 73 90 16 548.0 559.0 554.0 508.00 610.0 4 11.0 ))
     (600 . (840.0 770.0 36.0 20 610.00 616.50 48 36 40 44 0 0 83 95 18 652.0 658.0 660.0 609.60 725.0 5 12.5 ))
   )
 )
 (setq PN20
   '(
     (15 . (89.0 60.30 15.80 4 21.30 22.40 12 11.2 11.5 nil nil nil 16 48 6.4 30.0 nil nil 12.70 34.90 1.6 2.6 ))
     (20 . (99.0 69.80 15.80 4 26.90 27.70 14 12.7 13.0 nil nil nil 16 52 6.4 38.0 nil nil 19.00 42.90 1.6 2.9 ))
     (25 . (108.0 79.40 15.80 4 33.70 34.50 16 14.3 14.5 nil nil nil 17 56 6.4 49.0 nil nil 25.40 50.80 1.6 3.2 ))
     (32 . (117.0 88.90 15.80 4 42.40 43.20 18 15.9 16.0 nil nil nil 21 57 6.4 59.0 nil nil 31.80 63.50 1.6 3.6 ))
     (40 . (127.0 98.40 15.80 4 48.30 49.50 19 17.5 17.5 nil nil nil 22 62 6.4 65.0 nil nil 38.00 73.00 1.6 3.6 ))
     (50 . (152.0 120.60 19.00 4 60.30 62.00 21 19.1 15.9 nil nil nil 25 63 6.4 78.0 nil nil 50.80 92.10 1.6 4.0 ))
     (65 . (178.0 139.70 19.00 4 76.10 77.80 24 22.3 17.5 nil nil nil 29 70 6.4 90.0 nil nil 63.50 104.80 1.6 4.5 ))
     (80 . (190.0 152.40 19.00 4 88.90 90.70 26 23.9 19.1 nil nil nil 30 70 6.4 108.0 nil nil 76.20 127.00 1.6 5.0 ))
     (100 . (229.0 190.50 19.00 8 114.30 116.10 27 23.9 23.9 nil nil nil 33 76 6.4 135.0 nil nil 101.60 157.20 1.6 5.6 ))
     (125 . (254.0 215.90 22.20 8 139.70 142.20 28 23.9 23.9 nil nil nil 37 89 6.4 164.0 nil nil 127.00 185.70 1.6 6.3 ))
     (150 . (279.0 241.30 22.20 8 168.30 170.70 31 25.4 25.4 nil nil nil 40 89 6.4 192.0 nil nil 152.40 215.90 1.6 7.1 ))
     (200 . (343.0 298.40 22.20 8 219.10 221.50 34 28.6 28.6 nil nil nil 44 102 6.4 246.0 nil nil 203.20 269.90 1.6 8.0 ))
     (250 . (406.0 362.00 25.40 12 273.00 276.40 38 30.2 30.2 nil nil nil 49 102 6.4 305.0 nil nil 254.00 323.80 1.6 8.8 ))
     (300 . (483.0 431.80 25.40 12 323.90 327.20 42 31.8 31.8 nil nil nil 56 114 6.4 365.0 nil nil 304.80 381.00 1.6 10.0 ))
     (350 . (533.0 476.20 28.50 12 355.60 359.20 43 35.0 35.0 nil nil nil 57 127 6.4 400.0 nil nil 355.60 412.80 1.6 11.0 ))
     (400 . (597.0 539.80 28.50 16 406.40 410.50 48 36.6 36.6 nil nil nil 63 127 6.4 457.0 nil nil 406.40 469.90 1.6 12.5 ))
     (450 . (635.0 577.80 31.80 16 457.00 461.80 52 39.7 39.7 nil nil nil 68 140 6.4 505.0 nil nil 457.20 533.40 1.6 14.2 ))
     (500 . (698.0 635.00 31.80 20 508.00 513.10 56 42.9 42.9 nil nil nil 73 144 6.4 559.0 nil nil 508.00 584.20 1.6 16.0 ))
     (600 . (813.0 749.30 35.00 20 610.00 616.00 62 47.7 47.7 nil nil nil 83 152 6.4 664.0 nil nil 609.60 692.20 1.6 17.5 ))
   )
 )
 (setq PN25
   '(
     (10 . (90.0 60.0 14.0 4 17.20 18.20 nil nil 16 14 12 16 22 35 6 28.0 30.0 30.0 6.10 40.0 2 2.3 ))
     (15 . (95.0 65.0 14.0 4 21.30 22.00 nil nil 16 14 12 16 22 38 6 32.0 35.0 37.0 12.70 45.0 2 2.6 ))
     (20 . (105.0 75.0 14.0 4 26.90 27.50 nil nil 18 16 14 16 26 40 6 40.0 45.0 44.0 19.00 58.0 2 2.9 ))
     (25 . (115.0 85.0 14.0 4 33.70 34.50 nil nil 18 16 14 18 28 40 6 46.0 52.0 53.0 25.40 68.0 2 3.2 ))
     (32 . (140.0 100.0 18.0 4 42.40 43.50 nil nil 18 18 14 18 30 42 6 56.0 60.0 60.0 31.80 78.0 2 3.6 ))
     (40 . (150.0 110.0 18.0 4 48.30 49.00 nil nil 18 18 14 18 32 45 7 64.0 70.0 68.0 38.00 88.0 3 3.6 ))
     (50 . (165.0 125.0 18.0 4 60.30 61.50 nil nil 20 20 16 20 34 48 8 75.0 85.0 80.0 50.80 102.0 3 4.0 ))
     (65 . (185.0 145.0 18.0 8 76.10 77.50 nil nil 22 22 16 20 38 52 10 90.0 105.0 99.0 63.50 122.0 3 4.5 ))
     (80 . (200.0 160.0 18.0 8 88.90 90.50 nil nil 24 24 18 22 40 58 12 105.0 118.0 116.0 76.20 138.0 3 5.0 ))
     (100 . (235.0 190.0 22.0 8 114.30 116.00 nil nil 24 26 20 22 44 65 12 134.0 145.0 136.0 101.60 162.0 3 5.6 ))
     (125 . (270.0 220.0 26.0 8 139.70 141.50 nil nil 26 28 22 24 48 68 12 162.0 170.0 165.0 127.00 188.0 3 6.3 ))
     (150 . (300.0 250.0 26.0 8 168.30 170.50 nil nil 28 30 22 24 52 75 12 192.0 200.0 192.0 152.40 218.0 3 7.1 ))
     (200 . (360.0 310.0 26.0 12 219.10 222.00 nil nil 30 32 24 26 52 80 16 244.0 256.0 246.0 203.20 278.0 3 8.0 ))
     (250 . (425.0 370.0 30.0 12 273.00 276.50 nil nil 32 32 26 30 60 88 18 298.0 310.0 298.0 254.00 335.0 3 8.8 ))
     (300 . (485.0 430.0 30.0 16 323.90 327.50 nil nil 34 34 28 34 67 92 18 352.0 364.0 352.0 304.80 395.0 4 10.0 ))
     (350 . (555.0 490.0 33.0 16 355.60 359.50 nil nil 38 38 32 38 72 100 20 398.0 418.0 408.0 355.60 450.0 4 11.0 ))
     (400 . (620.0 550.0 36.0 16 406.40 411.00 nil nil 40 40 34 42 78 110 20 452.0 472.0 460.0 406.40 505.0 4 12.5 ))
     (450 . (670.0 600.0 36.0 20 457.00 462.50 nil nil 42 44 0 0 84 110 20 500.0 520.0 520.0 457.20 550.0 4 14.2 ))
     (500 . (730.0 660.0 36.0 20 508.00 513.50 nil nil 44 48 38 50 90 125 20 558.0 580.0 566.0 508.00 615.0 4 16.0 ))
     (600 . (845.0 770.0 39.0 20 610.00 616.50 nil nil 46 54 0 0 100 125 20 660.0 684.0 670.0 609.60 720.0 5 17.5 ))
   )
 )
 (setq PN40
   '(
     (10 . (90.0 60.0 14.0 4 17.20 18.20 nil nil 16 14 12 16 22 35 6 28.0 30.0 30.0 6.10 40.0 2 2.3 ))
     (15 . (95.0 65.0 14.0 4 21.30 22.00 nil nil 16 14 12 16 22 38 6 32.0 35.0 37.0 12.70 45.0 2 2.6 ))
     (20 . (105.0 75.0 14.0 4 26.90 27.50 nil nil 18 16 14 16 26 40 6 40.0 45.0 44.0 19.00 58.0 2 2.9 ))
     (25 . (115.0 85.0 14.0 4 33.70 34.50 nil nil 18 16 14 18 28 40 6 46.0 52.0 53.0 25.40 68.0 2 3.2 ))
     (32 . (140.0 100.0 18.0 4 42.40 43.50 nil nil 18 18 14 18 30 42 6 56.0 60.0 60.0 31.80 78.0 2 3.6 ))
     (40 . (150.0 110.0 18.0 4 48.30 49.00 nil nil 18 18 14 18 32 45 7 64.0 70.0 68.0 38.00 88.0 3 3.6 ))
     (50 . (165.0 125.0 18.0 4 60.30 61.50 nil nil 20 20 16 20 34 48 8 75.0 85.0 80.0 50.80 102.0 3 4.0 ))
     (65 . (185.0 145.0 18.0 8 76.10 77.50 nil nil 22 22 16 20 38 52 10 90.0 105.0 99.0 63.50 122.0 3 4.5 ))
     (80 . (200.0 160.0 18.0 8 88.90 90.50 nil nil 24 24 18 22 40 58 12 105.0 118.0 116.0 76.20 138.0 3 5.0 ))
     (100 . (235.0 190.0 22.0 8 114.30 116.00 nil nil 24 26 20 22 44 65 12 134.0 145.0 136.0 101.60 162.0 3 5.6 ))
     (125 . (270.0 220.0 26.0 8 139.70 141.50 nil nil 26 28 22 24 48 68 12 162.0 170.0 165.0 127.00 188.0 3 6.3 ))
     (150 . (300.0 250.0 26.0 8 168.30 170.50 nil nil 28 30 22 24 52 75 12 192.0 200.0 192.0 152.40 218.0 3 7.1 ))
     (200 . (375.0 320.0 30.0 12 219.10 222.00 nil nil 32 36 26 30 52 88 16 244.0 260.0 252.0 203.20 285.0 3 8.0 ))
     (250 . (450.0 385.0 33.0 12 273.00 276.50 nil nil 38 38 30 36 60 105 18 306.0 320.0 308.0 254.00 345.0 3 8.8 ))
     (300 . (515.0 450.0 33.0 16 323.90 327.50 nil nil 42 42 34 40 67 115 18 362.0 380.0 364.0 304.80 410.0 4 10.0 ))
     (350 . (580.0 510.0 36.0 16 355.60 359.50 nil nil 46 46 38 46 72 125 20 408.0 424.0 420.0 355.60 465.0 4 11.0 ))
     (400 . (660.0 585.0 39.0 16 406.40 411.00 nil nil 50 50 42 50 78 135 20 462.0 478.0 476.0 406.40 535.0 4 12.5 ))
     (450 . (685.0 610.0 39.0 20 457.00 462.50 nil nil 50 54 46 50 84 135 20 500.0 522.0 526.0 457.20 560.0 4 14.2 ))
     (500 . (755.0 670.0 42.0 20 508.00 513.50 nil nil 52 60 50 60 90 140 20 562.0 576.0 578.0 508.00 615.0 4 16.0 ))
     (600 . (890.0 795.0 48.0 20 610.00 616.50 nil nil 60 70 0 0 100 150 20 666.0 686.0 690.0 609.60 735.0 5 17.5 ))
   )
 )
 (setq PN50
   '(
     (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 ))
   )
 )
 (setq PN100
   '(
     (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 ))
   )
 )
 (setq PN150
   '(
     (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 ))
   )
 )
 (setq PN250
   '(
     (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 ))
   )
 )
 (setq PN420
   '(
     (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)))))
   "]?: "))
 )
 
 ;; 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] : ")))
       (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))))
   
 )
 
 (setvar "CMDECHO" 0)
 (setq l_val (cdr (assoc (atoi (substr model_brd 3)) l_data)))
 (initget 1)
 (setq pt_ins (getpoint "\nPoint d'insertion?: ") js_add (ssadd) js_remove (ssadd))
 ;; orientation bride 
 (if pt_ins (setq pf ( getpoint  pt_ins "\n direction de la bride <>: ")))
 (cond
   ((and pt_ins pf)
     (command "_ucs" "_zaxis" "_none" pt_ins "_none" pf)
     (setq pt_ins '(0. 0. 0.))
   )
   (pt_ins (command "_ucs" "_none" pt_ins "") (setq pt_ins '(0. 0. 0.)))
 )
 (initget 1 "PLATE TOURNANTE COLLERETTE SLIP-ON LWN")
 (setq typ_brd (getkword "\nType de bride [PLATE/TOURNANTE/COLLERETTE/SLIP-ON/LWN]?: "))
 (setq d_tuy (* 0.5 (nth 4 l_val) unit_draw))
 
 (cond
   ((eq typ_brd "PLATE")
     (if (and (nth 5 l_val) (nth 6 l_val))
       (setq e1 (- (* (nth 6 l_val) unit_draw) (* (nth 20 l_val) unit_draw)))
     )
   )
   ((eq typ_brd "COLLERETTE")
     (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))
           (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 :"))
             )
           )
         )
         
         (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))
       )
     )
   )
   ((eq typ_brd "TOURNANTE")
     (cond
       ((and (nth 10 l_val)(/= PN_brd "PN6"))  
         (initget "2 4")
         (setq typ_collet (getkword "\nType de collets [2/4]?: "))
         (setq e1 (* (nth 11 l_val) unit_draw))
         (if (eq typ_collet "4")
           (progn 
             (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) "")             
             ;;;;;;;;;;;;;;;;;;;;    
           )
         )
       )
       ((nth 10 l_val)                                       
         (setq e1 (* (nth 11 l_val) unit_draw))   
       )
     )
   )
   ((eq typ_brd "SLIP-ON")
     (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)))
           )
         )
         (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))
       )
     )
   )
   ((eq typ_brd "LWN")
     (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)))
     )
     (if (nth 18 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 18 l_val)))
         (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))
       )
     )
   )
 )
 (if e1
   (progn
     (command "_.circle" "_none" pt_ins (* (nth 19 l_val) 0.5 unit_draw))
     (command "_.extrude" (entlast) "" (+ e1 (if (eq typ_brd "TOURNANTE") (* (nth 10 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") (* (nth 10 l_val) unit_draw) (* (nth 20 l_val) unit_draw))) (* (car l_val) 0.5 unit_draw))
     (command "_.extrude" (entlast) "" e1)
     (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 
       (if (eq typ_brd "LWN")
         (* 0.5 (nth 18 l_val)) 
         (if (eq typ_brd "COLLERETTE")
           (- (* 0.5 (nth 4 l_val) unit_draw) j) 
           (if (eq typ_collet "4")  (- (* 0.5 (nth 4 l_val) unit_draw) (* (nth 21 l_val) unit_draw) )   d_tuy )       
         )
       )
     ) 
     (command "_.extrude" (entlast) "" (+ e1 (if (eq typ_brd "TOURNANTE") (* (nth 10 l_val) unit_draw) (* (nth 20 l_val) unit_draw))))
     (setq js_remove (ssadd (entlast) js_remove))
     ;; trous boulons
     (command "_.circle" "_none" (polar (list (car pt_ins) (cadr pt_ins) (if (eq typ_brd "TOURNANTE") (* (nth 10 l_val) unit_draw) (* (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 "")
   )
   (princ "\nPas de valeur dans base données pour ce type de bride")
 )
 (if sv_dm (setvar "DYNMODE" sv_dm))
 
 (cond (pt_ins  (command "_ucs" "_p")  (setq pf nil)))

 (setvar "delobj" delobjet)
 (setq *error* m:err m:err nil)
 (setvar "CMDECHO" 1)
 (prin1)
)

[Edité le 9/1/2009 par usegomme][Edité le 10/1/2009 par usegomme][Edité le 12/1/2009 par usegomme][Edité le 30/3/2010 par usegomme]

[Edité le 21/1/2011 par usegomme]

kohen.g · le 8 janvier 2009

Salut j'ai tester une bride tournante PN10 DN600 pour le type 04 il y a un bug la face surélevé est en plein

bonuscad · le 8 janvier 2009

etude0

Regardes le fichier bride-dim.dwg dans mon post précédent.

Je te rappelle que ce dessin a été généré avec ton prog initial.

Pour moi il y a déjà quelque chose qui va pas (données, code lisp; je ne sais pas) et comme j'ai repris la démarche et les données... forcément on retrouve le même problème.

Il faut bien analyser la où il y a une erreur de donnée ou de conception, et seul quelqu'un de la partie peut le faire.

Après ... quand on a les bonnes billes, ça roule pour faire les corrections :P

usegomme · le 9 janvier 2009

Salut , je viens de remplacer le code ci-dessus , j'ai rajouté la demande d'orientation de la bride pour que ce soit plus pratique et parce que ça déconnait lorsque la bride était insérer en un point avec z /= 0 , je passe par l'intermédiaire d'une ligne c'est bricolage mais sinon je n'arrive pas à convertir les coordonnées d'insertion avec le nouveau scu (?).

J'ai également partiellement corrigé le problème rencontré par etude0 , qui en fait concerne toute la gamme de collet type 04 , mais ce n'est pas encore correct au niveau alésage et avec la norme que j'ai pu récupérer ce matin sur le net .

http://portail.ofppt.org.ma/prog///document/fichier/MS%20-%20CDET_D_Les%20brides.pdf

Le collet type 04 c'est en fait une bride type 04 et un collet type 34 qui possède une collerette comme la bride du même nom.

A+ pour la prochaine modif

M...e , mon lien nest pas complet , je vais me contenter de la norme de 1986 que j'ai.

[Edité le 9/1/2009 par usegomme]

Patrick_35 · le 9 janvier 2009

Bonjour

convertir les coordonnées d'insertion avec le nouveau scu (?)

Regarde la fonction trans

@+

usegomme · le 10 janvier 2009

Salut ,

Regarde la fonction trans

Je l'utilise , Patrick_35, mais je n'ai probablement pas tout compris sur son usage.

(if pt_ins (setq pf ( getpoint pt_ins "\n direction de la bride <>: ")))
(cond ((and pt_ins pf)
(command "_line" "_none" pt_ins "_none" pf "") 
(setq axered (entlast))
(command "_ucs" "_zaxis" "_none" pt_ins "_none" pf)
(setq pt_ins (trans (cdr (assoc 10 (entget axered))) 0 1))
(entdel axered)
))

Comment faire la même chose sans employer la cde ligne ?

Sinon je continue dans les corrections comme ci-dessous où il y a un problème de variable

 ((eq typ_brd "LWN")
(if (member typ_brd '("PN100" "PN150" "PN250" "PN420"))

et encore au niveau des brides tournantes.

Je remplace le code du post 11.

(gile) · le 10 janvier 2009

Salut,

Je n'ai pas vraiment suivi le sujet, je répond juste à la question :

Comment faire la même chose sans employer la cde ligne ?

Pour la fonction command les points doivent être définis dans le SCU courant (comme tu le fait).

Si on connait les coordonnées d'un point dans un SCU et qu'on veut retrouver le même point après un changement de SCU, une méthode consiste à traduire les coordonnées dans le SCG avant le changement de SCU (dans une autre variable, si besoin) puis de retraduire les coordonnées depuis le SCG après le changement de SCU.

(and
 pt_ins
 (setq pt_tmp (trans pt_ins 1 0))
 (setq pf (getpoint pt_ins "\n direction de la bride : "))
 (command "_ucs" "_zaxis" "_none" pt_ins "_none" pf)
 (setq pt_ins (trans pt_tmp 0 1))
)

Dans le cas présent, comme pt_ins sert d'origine au nouveau SCU avec la commande SCU, option _ZAxis pt_ins sera toujours en 0,0,0 dans le nouveau SCU, on peut donc simplement faire :

(and
 pt_ins
 (setq pf (getpoint pt_ins "\n direction de la bride : "))
 (command "_ucs" "_zaxis" "_none" pt_ins "_none" pf)
 (setq pt_ins '(0. 0. 0.))
)

usegomme · le 12 janvier 2009

Merci (gile) pour ces explications , j'ai mis bride.lsp à jour.

A+

FRAXA · le 18 mars 2010

Bonjour à tous!

J'ai dis

En tout cas, je me pose des questions sur l'utilité de ce lips. En effet, je trouve regrettable de dessinner des brides 3d alors que beaucoup de fabriquants proposent de télécharger gratuitement des blocs "bride" dessinnés en 3d ( voir sur tracepart) mais ce n'est que mon avis.

Et je dirais qu'il n'y a que les imbéciles qui ne change pas d'avis.

Usegomme, tu as créé le lips FTDR dans lequel un bloc se crée avec pour attribut le type de poutre, sa longueur etc...

Pourrais tu nous faire la même chose avec ton lips bride ( ou quelqu'un d'autre)?

C'est à dire mettre en attribut tous les choix effectués lors de la saisie.

Merci d'avance

usegomme · le 24 mars 2010

Salut Fraxa , je ne t´oublie pas mais je n´ai pas eu le temps de mis mettre et je pense revenir à des blocs "bride", mais créé si absent dans le dessin par le lisp.

ton lips bride

Rendons à César ce qui lui appartient , même si j´ai un peu travaillé dessus c´est à Bonuscad que l´on doit bride.lsp

Bibli Lisp 2D en 3D?

Messages recommandés

Lien vers le commentaire

Partager sur d’autres sites

Meilleurs contributeurs dans ce sujet

Jours populaires

Meilleurs contributeurs dans ce sujet

Jours populaires

Lien vers le commentaire

Partager sur d’autres sites

Lien vers le commentaire

Partager sur d’autres sites

Lien vers le commentaire

Partager sur d’autres sites

Lien vers le commentaire

Partager sur d’autres sites

Lien vers le commentaire

Partager sur d’autres sites

Lien vers le commentaire

Partager sur d’autres sites

Lien vers le commentaire

Partager sur d’autres sites

Lien vers le commentaire

Partager sur d’autres sites

Lien vers le commentaire

Partager sur d’autres sites

Lien vers le commentaire

Partager sur d’autres sites

Lien vers le commentaire

Partager sur d’autres sites

Lien vers le commentaire

Partager sur d’autres sites

Lien vers le commentaire

Partager sur d’autres sites

Lien vers le commentaire

Partager sur d’autres sites

Lien vers le commentaire

Partager sur d’autres sites

Lien vers le commentaire

Partager sur d’autres sites

Lien vers le commentaire

Partager sur d’autres sites

Lien vers le commentaire

Partager sur d’autres sites

Lien vers le commentaire

Partager sur d’autres sites

Lien vers le commentaire

Partager sur d’autres sites

Lien vers le commentaire

Partager sur d’autres sites

Lien vers le commentaire

Partager sur d’autres sites

Lien vers le commentaire

Partager sur d’autres sites

Lien vers le commentaire

Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Créer un compte

Se connecter

Information importante