Фрезеровка шестигранника с помощью переменных R

[Егорий 1]

Доброго времени суток, нашел программу для фрезеровки шестигранника под фанук, есть спецы чтоб переделать ее через R параметры?

Или может у кого своя есть более крутая. 

%
O1113(SHESTIGRANNIK LUBOI FREZEROVKA);
G17G21G40G49; 
G54G80G90G94;
;
#1=40.9(SHESTIGRANNIK); 
#2=50.(DIAMETR FREZI);
#3=48.(DIAMETR ZAGOTOVKI);
#4=22.5(GLUBINA FREZEROVANIYA);
#5=5.(SHAG UGLUBLENIYA);
#6=550.(OBOROTI FREZI); 
#7=200.(PODACHA MM/MIN);
; 
T4M6;
; 
#8=[[#1+#2]/2]; 
#9=[#8/0.866];
; 
#10=[#9-#2/2];
#11=[#9+5.];
IF[#3/2GT#10]THEN#11=[#3/2+#2/2+5.];
; 
#12=#5;
#13=[#4/#5];
#14=0;
#15=5.(RADIUS);
;
WHILE[#12LE#4]DO1;
G0X0Y#11; 
G43H4Z-#12;
S#6M3;
M8; 
G01X0Y#9F#7;
X[#9*0.866]Y[#9*0.5],R#15; 
Y-[#9*0.5],R#15; 
X0Y-#9,R#15; 
X-[#9*0.866]Y-[#9*0.5],R#15; 
Y[#9*0.5],R#15;
X0Y#9;
#12=[#12+#5]; 
#14=[#14+1];
IF[#12GT#4]THEN#12=#4;
IF[#14GE#13]GOTO1;
END1;
;
N1M05;
M09;
G91G28Z0.;
G28Y0.; 
G90;
M30;
%

0003.txt

[A_1 240]

4 часа назад, Егорий сказал:

переделать ее через R параметры?

Здравствуйте. Можно программу переделать с FANUC на Sinumerik с помощью нескольких замен:

 

#1=40.9(SHESTIGRANNIK) → R1=40.9; SHESTIGRANNIK "#" заменяем на "R", комментарии отделяем ";"

 

#8=[[#1+#2]/2] → R8=((R1+R2)/2) ; квадратные скобки заменяем на круглые

 

IF[#3/2GT#10]THEN#11=[#3/2+#2/2+5.] →

IF R3/2>R10

R11=R3/2+R2/2+5

ENDIF

 

GT → >

LT → <

GE → >=

LE → <=

EQ → ==

NE → <>

 

WHILE[#12LE#4]DO1 → WHILE R12<=R4

 

S#6M3 → S=R6 M3

 

X[#9*0.866]Y[#9*0.5],R#15 → X=R9*0.866 Y=R9*0.5 RND=R15

 

IF[#14GE#13]GOTO1 → IF R14>=R13 GOTOF MARKE1

 

N1 → MARKE1:

 

END1 → ENDWHILE

 

Изменено 17 января пользователем A_1

[Егорий 1]

Спасибо большое, сегодня вечером попробую переделать и прогнать программу. И ещё вопрос есть строчка:

G43H4Z-#12

Ее просто заменить на Z-R12?

7 часов назад, A_1 сказал:

Здравствуйте. Можно программу переделать с FANUC на Sinumerik с помощью нескольких замен:

 

#1=40.9(SHESTIGRANNIK) → R1=40.9; SHESTIGRANNIK "#" заменяем на "R", комментарии отделяем ";"

 

#8=[[#1+#2]/2] → R8=((R1+R2)/2) ; квадратные скобки заменяем на круглые

 

IF[#3/2GT#10]THEN#11=[#3/2+#2/2+5.] →

IF R3/2>R10

R11=R3/2+R2/2+5

ENDIF

 

GT → >

LT → <

GE → >=

LE → <=

EQ → ==

NE → <>

 

WHILE[#12LE#4]DO1 → WHILE R12<=R4

 

S#6M3 → S=R6 M3

 

X[#9*0.866]Y[#9*0.5],R#15 → X=R9*0.866 Y=R9*0.5 RND=R15

 

IF[#14GE#13]GOTO1 → IF R14>=R13 GOTOF MARKE1

 

N1 → MARKE1:

 

END1 → ENDWHILE

 

 

[A_1 240]

18 минут назад, Егорий сказал:

есть строчка:

G43H4Z-#12

Ее просто заменить на Z-R12?

Z=-R12

G43 H4 в Sinumerik нет. Длина инструмента компенсируется D1...D9

 

 

 

[Ander 128]

0003.MPF

А если надо будет скруглять углы? Подход надо делать к грани, а не к углу.

[Егорий 1]

4 часа назад, Ander сказал:

А если надо будет скруглять углы? Подход надо делать к грани, а не к углу.

Да, на станке через симулятор прогнал, в месте захода радиус не делается, уберу радиуса совсем тогда, если что проточку под шестигранник занижу чтоб углы острые не оставались. Вам спасибо большое за старания добрый человек.

[Егорий 1]

17.01.2024 в 16:01, A_1 сказал:

Z=-R12

G43 H4 в Sinumerik нет. Длина инструмента компенсируется D1...D9

 

 

 

 

17.01.2024 в 17:22, Ander сказал:

0003.MPF 758 \u0411 · 6 скачиваний

А если надо будет скруглять углы? Подход надо делать к грани, а не к углу.

Все получилось, спасибо огромное за помощь.