Télécharger la plaquette Cast3M


fr en

Télécharger @rempcou.procedur

Retour à la liste

Numérotation des lignes : 

  1. * @REMPCOU  PROCEDUR  BAZE      98/11/20    21:23:56     3365           
  2. 'DEBPROC' @REMPCOU TABCOUP*TABLE P1*POINT      P2*POINT  NC*ENTIER
  3.               MODELT*MMODEL EPAI*FLOTTANT GRAP*MOT ECR*MOT  NOM/MOT 
  4.               VTRA/POINT ;
  5.  
  6. * ----------------------------------------------------------------------
  7. ******                     PROCEDURE @REMPCOU                     ******
  8. * ----------------------------------------------------------------------
  9. *
  10. *   CETTE PROCEDURE PERMET DE REMPLIR LA TABLE POUR FORMATION DES COUPES
  11. *
  12. * ----------------------------------------------------------------------
  13. *
  14. *   LES DONNEES SONT :
  15. *    ----> la table a remplir
  16. *    ----> les 2 points extremes de la coupe
  17. *    ----> le nombre de sous-divisions de la coupe
  18. *    ----> le modele contenant strictement la piece ou passe la coupe
  19. *    ----> l'epaisseur du trait de la coupe lors du trace
  20. *    ----> le logique GRAPH permettant ou non les traces ( VRAI ou FAUX)
  21. *    ----> le logique ECRI  permettant ou non les ecritures  ( idem)
  22. *    ----> le mot NOM (optionnel) permettant ou non la sortie d'un
  23. *          fichier pour NOCLIB
  24. *    ----> VTRA direction perpendiculaire a P1 P1 pour axe des Y
  25. *      si absente et 3D on la met a (1 1 1)  
  26. *
  27. * ----------------------------------------------------------------------
  28. *   PAR Joseph MANNINO
  29. * ----------------------------------------------------------------------
  30. N = DIME TABCOUP ;
  31. N = N + 1 ;
  32. UY=TABLE;
  33. TABCOUP.N = UY ;
  34. UY . 1 = P1 ;
  35. UY . 2 = P2 ;
  36. UY . 3  = NC ;
  37. UY . 4  = MODELT ;
  38. UY . 5 = EPAI ;
  39. SI ((EGA GRAP 'N') OU ( EGA GRAP 'n') ); 
  40. UY . 6 = FAUX;
  41. SINON ;
  42. UY . 6 = VRAI ;
  43. FINSI ;
  44. 'SI' (('EGA' ECR 'N' )  'OU' ( 'EGA' ECR 'n' ));
  45. UY . 7  = FAUX  ;
  46. SINON ;
  47. UY . 7  = VRAI ;
  48. FINSI ;
  49. SI ( EXISTE NOM) ;
  50. UY . 8 = NOM ;
  51. SINON ;
  52. UY . 8 = 'BLANC' ;
  53. FINSI ;
  54. 'SI' (NON  ('EXISTE' VTRA));
  55.   'SI' ( 'EGA' ('VALE' DIME) 2 ) ;
  56.   UY . 9 = 0. 0. ;
  57.   'SINON' ;
  58.  MESS  ' VOUS DEVEZ DONNER UNE DIRECTION  POUR ETABLIR 
  59.        LE REPERE D ANALYSE'; 
  60.    QUITTER REMPCOU ;     
  61.   'FINSI' ;
  62. 'SINON' ;     
  63. UY . 9 = VTRA  ;
  64. FINSI ;  
  65. FINPROC ;
  66.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales