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