1. Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.

Macro pour usinage

Discussion dans 'Fanuc' créé par raphaelm, 25 Octobre 2013.

  1. raphaelm

    raphaelm Nouveau

    Messages:
    4
    Inscrit:
    25 Octobre 2013
    Macro pour usinage
    Bonjour, j'ai un petit problème. Je voudrais usiner une ellipse conique(15°) en iso-paramétré cela fait 3 jours que je cherche la syntaxe pour pouvoir la faire. Etant nouveau sur du fanuc j'ai reussi a faire le programme de l'ellipse seul qui n'etait pas tres bien compliqué. Mais pour faire le cone c'est different si quelqu'un pourrai me donner un petit coup de main ce serai bien gentil. meme une reponse partielle je suis preneur :)
    Je vous donne le programme de l'ellipse que j'ai fait

    G0 Z8
    #12= 3 (valeur z)
    While[#12 GE -50] DO1
    G1 Z#12 F200
    #12= #12-1 (incrémentation en z)
    #1= 0 (angle de départ d'ellipse)
    #2= 14.6 (demi axe x)
    #3= 9.1 (demi axe y)
    N10
    #4= #2*Cos[#1]
    #5= #3*Sin[#1]
    #10= #4*Cos[0]-#5*Sin[0]
    #11= #4*Sin[0]+#5*Cos[0]
    G1 X#10 Y#11
    #1= #1+1
    IF[#1 LT 370] GOTO10
    END1

    du N10 au IF c'est ce qui me permet d'avoir mon ellipse.

    voila mon programme d'ellipse qui marche très bien ^^
    Je vous remercie d'avance si vous pouvais m'aider. Bonne journée
     
  2. JLuc69

    JLuc69 Compagnon

    Messages:
    1 155
    Inscrit:
    19 Juin 2008
    Localité:
    Genas (69)
    Macro pour usinage
    Il serait bien que tu commentes un peu tes variables, à quoi sont elles sensées servir ?
    A la place du N10 et du IF, j'aurais mis un deuxième WHILE
     
  3. raphaelm

    raphaelm Nouveau

    Messages:
    4
    Inscrit:
    25 Octobre 2013
    Macro pour usinage
    Oui dsl je vien d'editer mon poste!! Ca ce n'est que l'ellipse de base. Sachant quel fonctionne très bien, maintenant personnellement je cherche a faire le cone mais n 'ayant jamais fait de macro on va dire que je suis en mode galérien ^^
     
  4. JLuc69

    JLuc69 Compagnon

    Messages:
    1 155
    Inscrit:
    19 Juin 2008
    Localité:
    Genas (69)
    Macro pour usinage
    Je n'ai pas testé, mais je l'écrirais comme ça :

    Code:
    G0 Z8
    #12= 3 (valeur z)
    #2= 14.6 (demi axe x)
    #3= 9.1 (demi axe y)
    WHILE[#12GE-50]DO1
      #102= #102-1 (incrémentation en z)
      #2=#2+[[#12-#102]*COS[12]]
      #3=#3+[[#12-#102]*COS[12]]
      G1 X#2 Y#3
      G1 Z#102 F200
      #1= 0 (angle de départ d'ellipse)
      WHILE[#1LE360]DO2
        #100=#2*Cos[#1]
        #101=#3*Sin[#1]
        G1 X#100 Y#101
        #1= #1+1
      END2
    END1
    
    L'indentation n'est là que pour la lecture :wink:
     
  5. raphaelm

    raphaelm Nouveau

    Messages:
    4
    Inscrit:
    25 Octobre 2013
    Macro pour usinage
    D'accord!! Déjà je te remercie pour la reponse je testerais cela la semaine prochaine!! Je ne peux le tester cette semaine etant en apprentissage donc 1semaine/2 a l'école

    Je repasserais sur le forum quand le test sera fait.

    Encore merci
     
  6. raphaelm

    raphaelm Nouveau

    Messages:
    4
    Inscrit:
    25 Octobre 2013
    Macro pour usinage
    je m'excuse pour la reponse tardive. Toute la semaine dernière et ce week end j'ai chercher une solution et j'ai finalement trouver. je pose mon programme sur le forum sachant qu'il fonctionne bien. Après je pense qu'il doit y avoir des erreurs et que l'on peux mieux ecrire la syntaxe.

    ...
    ..
    .
    G0 G90 G54 X0 Y0 S4500 M03;
    G43 H14 Z20 M08 F5000;
    D14;
    M98 P11004 (Sous Prog Ellipse);
    M5 M9;
    G0 Z20;
    Go G90 G54 X0 Y0 S4500 M03;
    G43 H14 Z20 M08 F5000;
    D14;
    M98 P11001 (Sous Prog Ellipse Conique)
    M5 M9;
    G0 Z20;
    ...
    ..
    .

    1004 (Sous Prog Ellipse)
    #26=3
    While [#26GE-15]DO1;
    G1 Z#26;
    #26=#26-0.5;
    #1=0 (Angle de départ);
    #2= 14.6 (Demi axe X);
    #3= 9.1 (Demi axe Y);
    N26;
    #4= #2xcos[#1];
    #5= #3x sin[#1];
    #10= #4xcos[0]-#5xsin[0];
    #11= #4xsin[0]+#5xcos[0];
    G1 X#10 Y#11;
    #1= #1+1;
    IF [#1LT370] GOTO26;
    END1;
    M99;


    1001 (Sous Prog Ellipse Conique)
    #1= 0 (Angle de depart);
    #10= 22 (Demi axe X debut);
    #11= 16.5 (Demi axe Y début);
    #12= 14.6 (Demi axe X fin);
    #13= 9.1 (Demi axe Y fin);
    #14= 28 (Hauteur d'usinage);
    #15= 0.25 (Incrementation Z);
    #16= #10-#12 (A PR X);
    #17= #11-#13 (A PR Y);
    #18= #16/#14 (Tang & PR X);
    #19= #17/#14 (Tang & PRy);
    #20= #18x#15 (Incrementation A PR X);
    #21= #19x#15 (Incrementation A PR Y);
    N10;
    #4= #10xcos[#1];
    #5= #11xsin[#1];
    #6= #4xcos[0]-#5xsin[0];
    #7= #4xsin[0]+#5xcos[0];
    G1 X#6 Y#7;
    #1= #1+1;
    IF [#1LT370] GOTO10;
    X0 Y0
    #10= #10-#20;
    #10= #11-#21;
    #22= #22+#15;
    Z-#22;
    IF [-#22NE-#23] GOTO10;
    M99;

    Voila en vous remerciant pour les reponses que j'ai obtenu.
     
Chargement...
Articles en relation
  1. haja130
    Réponses:
    8
    Affichages:
    834
  2. Dodo86
    Réponses:
    1
    Affichages:
    683
  3. scotjh
    Réponses:
    5
    Affichages:
    832
  4. tiguen
    Réponses:
    9
    Affichages:
    1 507
  5. rastagood61

    macro

    rastagood61, 23 Juin 2013, dans le forum: Fanuc
    Réponses:
    3
    Affichages:
    1 072

Partager cette page