Macro pour usinage

  • Auteur de la discussion raphaelm
  • Date de début
R

raphaelm

Nouveau
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
 
J

JLuc69

Compagnon
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
 
R

raphaelm

Nouveau
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 ^^
 
R

raphaelm

Nouveau
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
 
R

raphaelm

Nouveau
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.
 

Sujets similaires

J
Réponses
3
Affichages
774
lolo
G
Réponses
1
Affichages
1 229
Greg de Nîmes
G
lolo
Réponses
1
Affichages
745
lolo
N
Réponses
5
Affichages
583
Nabduf
N
R
Réponses
11
Affichages
1 216
Rico le bricolo
R
G
Réponses
123
Affichages
19 013
gaston83
G
F
Réponses
6
Affichages
25 594
fraiddy
F
zygo4619
Réponses
34
Affichages
35 391
zygo4619
zygo4619
V
Réponses
62
Affichages
5 195
vibram
V
Haut