Резьбофрезерование

[Hиkolaй 0]

Всём доброго время суток. Помогите в следующем вопросе.  Это программа для Резьбофрезерование на  стойке Siemens 802c

В основе лежит круговая интерполяция по спирали. При запуске делает проход и заканчивается, а должна зделать 11 витков в низ. 

R1=0(x0)

R2=0(y0)

R3=5(z безопасности.) 

R4=0(z начало обработки) 

R5=1.25(шаг)

R6=11(кол.витков)

R7=6.35(радиус)

R8=0

G54G90G0X=R1Y=R2

M3S1500

M8

T1Z=R3

G1Z=R4F500

G1G42D1G91Y=R7F280

MRK:R8=R8+1

G2 J-R7 Z-R5

If (R8<>R6) GOTOB MRK

G1G40 Y-R7

G0 G90 Z200M9

M30

Не могу понять где допустил ошибку.?

Может кто-то может предложить другую альтернативу программе? 

[cepr 83]

УП должна быть такой

 

R1=0      ;x

R2=0      ;y

R3=5      ;z безопасности.

R4=0      ;z начало обработки 

R5=1.25 ;шаг

R6=11    ;кол.витков

R7=6.35 ;радиус

R8=0

G54G90G0X=R1Y=R2

M3S1500

M8

T1Z=R3

G1Z=R4F500

G1G42D1G91Y=R7F280

MRK:R8=R8+1

G2 J=-R7 Z=-R5

If (R8<R6) GOTOB MRK

G1G40 Y=-R7

G0 G90 Z200M9

M30

 

B CIMCO отрисованы 11 витков

[Hиkolaй 0]

У меня выдаёт ошибку Z нужно писать через K в строке G2 J=-7 Z=-R5. После замены Z на K всё отрабатывает но только по 2 координатам по Z не опускается 

[Ander 122]

[Hиkolaй 0]

2 минуты назад, Ander сказал:

Пробовал при воде TURN= Тоже выдаёт ошибку 

[Hиkolaй 0]

17 минут назад, Ander сказал:

 

Может я что ввёл не так.  Вот смотрите мне нужно Резьбофрезерование скажем М14х1. 25 фреза у меня  R6 

G55G17G90G94S1200T1M3

G0 Z50

G2X7Y0Z-13.75 I0 J0 K0 TURN=11

[X7 Y0 Z-13.75 - конечная точка

I0 J0 K0 - центр окружности 

TURN=11- количество витков] 

[Ander 122]

Это канавка - недолго подправить....

 

N15 r1=1 ; startovyj Z
N20 r2=2 ; shag spirali
N25 r3=-4 ; glubina kanavki
N30 r4=20 ; R naruzhnyj kanavke
N35 r5=2 ; R instrumenta
N40 r6=0 ; pripusk
N45 r7=100 ; ploskost' bezopasnosti posle frezerovki
N50 r40=9000
N55 r41=99
N60 ;************************** konec vvoda parametrov
N65 r13=r4-r5-r6; R kanavki po instrumentu
N70 r14=r1-r3; obshaja glubina
N75 r15=trunc(r14/r2); kolicestvo vitko
N80 r16=r1-r2*r15; Z polnyh vitkov
N85 ;************************************konec rascheta
N90 mcall prog
N95 g0x0y-40m3m85
N100 mcall
N105 m30
N110 prog:g91x=r13y0
N115 z=AC(r1)
N120 g3x0y0z=r16i=-r13j0turn=r15f=r41
N125 if r16==r3 goto prig
N130 x0y0z=r3i=-r13j=0turn=1
N135 prig:g3x0y0i=-r13j0
N140 g0g90z=r7
N145 m17

Изменено 12 февраля 2020 пользователем Ander

[Hиkolaй 0]

С началом  и концовка вроди всё понято но с точками перехода че-то не пойму. Я написал так для М14х1. 25, а потом универсально под любую метрическую зезьбу.

R1=1(безоп. по Z) 

R2=1.25(ШАГ)

R3=-0.6  (глубина канавки резьбы) 

R4=7(наружний радиус резьбы) 

R5=6(радиус инструмента) 

R6=0  (припуск) 

R7=100  (безоп. Плос. После фрез.) 

R40=1200 (обороты) 

R41=200 (подача) 

R13=R4-R5-R6

R14=R1-R3

R15=TRUNC[R14/R2]

R16=R1-R2*R15

Дальше я не понял 

Mall prog - это точка возврата (MRK:) 

G0 X0 Y-40 m3 m85 -   это строка обезательна

 mcall-?? 

 M30

MARK1:G91 X=R13 Y0

Z=R1 

G2 X0 Y0 Z=R16 I=-R13 J0 TRUNC=R15 F=R4

IF R 16==R3 GROTON MRK1

X0 Y0 Z=R3 I=-R13 J=0 TRUNC=1

MAK2:G3 X0 Y0 I=-R13 J0 

G0 G90 Z=R7

 ПОДСКАЖИТЕ С СЕРЕДИНОЙ И МОЖЕТ ВСЁ ПОЛУЧИТСЯ 

[Владимир56 63]

G2 J-R7 Z-R5

Что-то совсем букв мало. Сейчас так пишут на новом оборудование? 

Раньше это в инкременте выглядело так:

G2 X Y I J-R7 Z-R5 или  G2 X Y I J-R7 K-R5, как то так, что нибудь правильно. 

 

 

 

[Ander 122]

[Hиkolaй 0]

Помогите пожалуйста. Я где-то допустил ошибку при написании программы. Не могу понять где. Это программа для резьбо-фрезирования . У меня на фануке всё работает . Только пришлось (While) заменить на (If GotoB) . Программу пишу для Sinumerik 802.

 

G54G17G90G40G94S270F300T1M3

G0X0Y0

R1=0;STAR.ANGLE

R2=180;ANGLE BETWEEN HOLES 

R11=2;NUMBER HOLES

R7=14.6;INITIAL D

R20=1.5;STEP

R6=-10;DEPTH

R18=50;RADIUS CIRCLES HOLES

R24=0;X CENTER CIRCLES

R25=0;Y CENTER CIRCLES

R9=600;F PLOSKOST

;PROGRAMMA

R13=R20*3

R14=R6-R13

R15=R7/2

R16=TRUNC(ABS(R14/R20

G158 X=R24 Y=R25

R26=R16

MRK2:

G17G90

G0 X=R18 Y=R1

Z=R13

G1 G91 G42 X=R15 F=R9

MRK1:

G2 X=-R15 Y0 Z=-R20 CR=R15

R26=R26-1

IF R26>0 GOTOB MRK1

G40

G1 X=-R15

G0Z100

R11=R11-1

R1=R1+R2

R26=R16

IF R11>0 GOTOB MRK2

G0Z100M9

G0X0Y0

M30

 

 

[Hиkolaй 0]

 

Это рабочая с фанука 

G54G17G90G40G94S270F300T1M3

 

G0X0Y0

 

#1=0;STAR.ANGLE

 

#2=180;ANGLE BETWEEN HOLES 

 

#11=2;NUMBER HOLES

 

#7=14.6;INITIAL D

 

#20=1.5;STEP

 

#6=-10;DEPTH

 

#18=50;RADIUS CIRCLES HOLES

 

#24=0;X CENTER CIRCLES

 

#25=0;Y CENTER CIRCLES

 

#9=600;F PLOSKOST

 

;PROGRAMMA

 

#13=#20*3

 

#14=#6-#13

 

#15=#7/2

 

#16=FIX[ABS[#14/#20]]

 

G52 X=#24 Y=#25

 

#26=#16

 

WHILE[#11GT0]DO2

 

G17G90G16

 

G0 X#18 Y#1

G15

 

G43 Z=#13

 

G1 G91 G42 X#15 F#9

 

WhILE[#26GT0]DO1

 

G2 I-#15 J0 Z-#20

 

#26=#26-1

 

END1

 

G40 G1 X-#15

 

G0Z100

 

#11=#11-1

 

#1=#1+#2

 

#26=#16

 

END2

 

G0Z100M9

 

G0X0Y0

 

M30

[ak762 313]

22 hours ago, Hиkolaй said:

Я где-то допустил ошибку при написании программы. Не могу понять где.

а покадрово не пробовали отрабатывать, на каком шаге выдаёт ошибку?

не вдаваясь в правильность заданных операторов, синтаксис команды TRUNC выглядит странным когда используются значения в скобках, обычно скобки закрывают а у вас только открыты

22 hours ago, Hиkolaй said:

R16=TRUNC(ABS(R14/R20

 

[Hиkolaй 0]

3 часа назад, ak762 сказал:

а покадрово не пробовали отрабатывать, на каком шаге выдаёт ошибку?

не вдаваясь в правильность заданных операторов, синтаксис команды TRUNC выглядит странным когда используются значения в скобках, обычно скобки закрывают а у вас только открыты

 

Простите  ошибка когда переписывал сюда