Фрезерование резьб

[z90 13]

вечером скину макрос.

[Айвар 0]

В 26.06.2017 в 19:13, z90 сказал:

вечером скину макрос.

ДОБРЫЙ ДЕНЬ можете и мне скинуть макрос на резьбу 

буду благодарен

[Metal_Cutter 124]

В 19.11.2017 в 14:06, Айвар сказал:

ДОБРЫЙ ДЕНЬ можете и мне скинуть макрос на резьбу 

буду благодарен

  8099 rezbofrez krugovoy massiv otv V2.tap 8099 rezbofrez krugovoy massiv otv.doc 8085 rezbofrez otv V2.tap

Последние мои версии резьбовых макросов. Сначала прогоните "по воздуху". В CIMCO тестировались и единожды на станке. 

 

[SERGEY MIKOLAEVICH 7]

http://elmarc.tripod.com/schmarje/formulas.html

[sumar 2]

В 24.11.2017 в 14:55, Metal_Cutter сказал:

  8099 rezbofrez krugovoy massiv otv V2.tap 8099 rezbofrez krugovoy massiv otv.doc 8085 rezbofrez otv V2.tap

Последние мои версии резьбовых макросов. Сначала прогоните "по воздуху". В CIMCO тестировались и единожды на станке. 

 

Отличный макрос!!

Для красоты, осталось довести процедуру до логического конца.. Поменять номер программы с 8099 на 9015 (к примеру),

поставить в параметр 6055 значение *100* и вызов макроса будет похож на вызов обычного цикла.

G100 I13 R0 Z-40 Q4 K8 D250 A22.5 M36 S2 W8 B20 F100;

Я-бы ещё очередность указания аргументов поменял, тоже для красоты.

[Metal_Cutter 124]

@sumar Спасибо за совет.

[Hиkolaй 0]

Подскажите пожалуйста для фанука MF нету цыкла или G  кода для резьборезерования ?

[oleksandr2 0]

В 30.01.2018 в 07:08, sumar сказал:

Отличный макрос!!

Для красоты, осталось довести процедуру до логического конца.. Поменять номер программы с 8099 на 9015 (к примеру),

поставить в параметр 6055 значение *100* и вызов макроса будет похож на вызов обычного цикла.

G100 I13 R0 Z-40 Q4 K8 D250 A22.5 M36 S2 W8 B20 F100;

Я-бы ещё очередность указания аргументов поменял, тоже для красоты.

пробовал запустить несмог

немогу понять как запустить подпрограму 8085 и как выьирать шаг и диаметр резьбы

[333 0]

Подскажите пожалуйста как изменить этот макрос чтоб он начинал с 0 и фрезеровал до нужной мне глубины к примеру -20

O0029
(FANUC-0M-CONTROLLER)
(INTERNAL-THREAD-MILLING)
(CALLED-AS-FOLLOWS)
(G66P9020D.25F10.H11.R1.T.05Z-.25)
(D-MAJOR-DIA)
(F-FEED-RATE)
(H-CRC-REGISTER)
(R-REVOLUTIONS)
(T-PITCH)
(Z-DEPTH)
()
(VALIDATE-INPUT)
IF[#7EQ#0]GOTO7(MAJOR-DIA)
IF[#9EQ#0]GOTO9(FEED-RATE)
IF[#11EQ#0]GOTO11(CRC-REGISTER)
IF[#18EQ#0]GOTO18(REVOLUTIONS)
IF[#20EQ#0]GOTO20(PITCH)
IF[#26EQ#0]GOTO26(Z-DEPTH)
()
(CALCULATE-AND-VALIDATE-LEAD-RADIUS)
#23=[[[[#7/2]-#[2000+#11]]/2]+#[2000+#11]]
IF[#23LT#[2000+#11]]GOTO23
()
(SAVE-SYSTEM-VARS)
#1=#5003(PRESENT-Z-POSITION)
#2=#4003(POSITIONING-MODE)
()
(RAPID-TO-DEPTH)
G0G90Z#26
()
(RAMP-IN)
G1G17G41G91X[[#7/2]-#23]Y-#23H#11F#9
G3X#23Y#23R#23
()
(HELICAL-MOVE)
#3=0
WHILE[#3LT#18]DO1
I-[#7/2]Z#20
#3=#3+1
END1
()
(RAMP-OUT)
X-#23Y#23R#23
G1G40X-[[#7/2]-#23]Y-#23
()
(RAPID-TO-SAVED-Z-POSITION)
G0G90Z#1
()
(RESTORE-POSITIONING-MODE)
IF[#2EQ90]GOTO99
G91
GOTO99
()
(ALARM-MESSAGES)
GOTO99
N7#3000=7(INVALID MAJOR DIA, D VALUE)
GOTO99
N9#3000=9(INVALID FEED RATE, F VALUE)
GOTO99
N11#3000=11(INVALID REGISTER, H VALUE)
GOTO99
N18#3000=18(INVALID REVOLUTIONS, R VALUE)
GOTO99
N20#3000=20(INVALID PITCH, T VALUE)
GOTO99
N23#3000=23(TOOL DIA TO LARGE)
GOTO99
N26#3000=26(INVALID DEPTH, Z VALUE)
()
(PROGRAM-END)
N99M99O0029
(FANUC-0M-CONTROLLER)
(INTERNAL-THREAD-MILLING)
(CALLED-AS-FOLLOWS)
(G66P9020D.25F10.H11.R1.T.05Z-.25)
(D-MAJOR-DIA)
(F-FEED-RATE)
(H-CRC-REGISTER)
(R-REVOLUTIONS)
(T-PITCH)
(Z-DEPTH)
()
(VALIDATE-INPUT)
IF[#7EQ#0]GOTO7(MAJOR-DIA)
IF[#9EQ#0]GOTO9(FEED-RATE)
IF[#11EQ#0]GOTO11(CRC-REGISTER)
IF[#18EQ#0]GOTO18(REVOLUTIONS)
IF[#20EQ#0]GOTO20(PITCH)
IF[#26EQ#0]GOTO26(Z-DEPTH)
()
(CALCULATE-AND-VALIDATE-LEAD-RADIUS)
#23=[[[[#7/2]-#[2000+#11]]/2]+#[2000+#11]]
IF[#23LT#[2000+#11]]GOTO23
()
(SAVE-SYSTEM-VARS)
#1=#5003(PRESENT-Z-POSITION)
#2=#4003(POSITIONING-MODE)
()
(RAPID-TO-DEPTH)
G0G90Z#26
()
(RAMP-IN)
G1G17G41G91X[[#7/2]-#23]Y-#23H#11F#9
G3X#23Y#23R#23
()
(HELICAL-MOVE)
#3=0
WHILE[#3LT#18]DO1
I-[#7/2]Z#20
#3=#3+1
END1
()
(RAMP-OUT)
X-#23Y#23R#23
G1G40X-[[#7/2]-#23]Y-#23
()
(RAPID-TO-SAVED-Z-POSITION)
G0G90Z#1
()
(RESTORE-POSITIONING-MODE)
IF[#2EQ90]GOTO99
G91
GOTO99
()
(ALARM-MESSAGES)
GOTO99
N7#3000=7(INVALID MAJOR DIA, D VALUE)
GOTO99
N9#3000=9(INVALID FEED RATE, F VALUE)
GOTO99
N11#3000=11(INVALID REGISTER, H VALUE)
GOTO99
N18#3000=18(INVALID REVOLUTIONS, R VALUE)
GOTO99
N20#3000=20(INVALID PITCH, T VALUE)
GOTO99
N23#3000=23(TOOL DIA TO LARGE)
GOTO99
N26#3000=26(INVALID DEPTH, Z VALUE)
()
(PROGRAM-END)
N99M99

[333 0]

Извините допустил ошибку дважды вставил тот же макрос .

(FANUC-0M-CONTROLLER)

(INTERNAL-THREAD-MILLING)

(CALLED-AS-FOLLOWS)

(G66P9020D.25F10.H11.R1.T.05Z-.25)

(D-MAJOR-DIA)

(F-FEED-RATE)

(H-CRC-REGISTER)

(R-REVOLUTIONS)

(T-PITCH)

(Z-DEPTH)

()

(VALIDATE-INPUT)

IF[#7EQ#0]GOTO7(MAJOR-DIA)

IF[#9EQ#0]GOTO9(FEED-RATE)

IF[#11EQ#0]GOTO11(CRC-REGISTER)

IF[#18EQ#0]GOTO18(REVOLUTIONS)

IF[#20EQ#0]GOTO20(PITCH)

IF[#26EQ#0]GOTO26(Z-DEPTH)

()

(CALCULATE-AND-VALIDATE-LEAD-RADIUS)

#23=[[[[#7/2]-#[2000+#11]]/2]+#[2000+#11]]

IF[#23LT#[2000+#11]]GOTO23

()

(SAVE-SYSTEM-VARS)

#1=#5003(PRESENT-Z-POSITION)

#2=#4003(POSITIONING-MODE)

()

(RAPID-TO-DEPTH)

G0G90Z#26

()

(RAMP-IN)

G1G17G41G91X[[#7/2]-#23]Y-#23H#11F#9

G3X#23Y#23R#23

()

(HELICAL-MOVE)

#3=0

WHILE[#3LT#18]DO1

I-[#7/2]Z#20

#3=#3+1

END1

()

(RAMP-OUT)

X-#23Y#23R#23

G1G40X-[[#7/2]-#23]Y-#23

()

(RAPID-TO-SAVED-Z-POSITION)

G0G90Z#1

()

(RESTORE-POSITIONING-MODE)

IF[#2EQ90]GOTO99

G91

GOTO99

()

(ALARM-MESSAGES)

GOTO99

N7#3000=7(INVALID MAJOR DIA, D VALUE)

GOTO99

N9#3000=9(INVALID FEED RATE, F VALUE)

GOTO99

N11#3000=11(INVALID REGISTER, H VALUE)

GOTO99

N18#3000=18(INVALID REVOLUTIONS, R VALUE)

GOTO99

N20#3000=20(INVALID PITCH, T VALUE)

GOTO99

N23#3000=23(TOOL DIA TO LARGE)

GOTO99

N26#3000=26(INVALID DEPTH, Z VALUE)

()

(PROGRAM-END)

N99M99

[mannul 314]

14.04.2023 в 16:08, 333 сказал:

Подскажите пожалуйста как изменить этот макрос чтоб он начинал с 0 и фрезеровал до нужной мне глубины к примеру -20

нужно правильно задавать параметры.

G66P9020D25F10H11R20T1Z-20 сделает по Z от 0 до -20 спираль с шагом 1мм и 20 витков.

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

[333 0]

47 минут назад, mannul сказал:

нужно правильно задавать параметры.

G66P9020D25F10H11R20T1Z-20 сделает по Z от 0 до -20 спираль с шагом 1мм и 20 витков.

Я так пробовал не выходит.Инструмент начинает с -20 и идет до нуля.

#3=0

 

WHILE[#3LT#18]DO1

 

I-[#7/2]Z#3

 

#3=#3-1

Менял на этот алгоритм но инструмен уходит глубже походу отсутствует алгоритма проверкиглубины. И в этом я так указал

(RAPID-TO-DEPTH)

 

G0G90Z5

[mannul 314]

@333
 

Скрытый текст

 

(RAPID-TO-DEPTH)

G0G90Z[#26+[#18*#20]]

()

(RAMP-IN)

G1G17G42G91X-[[#7/2]-#23]Y-#23H#11F#9

G2X-#23Y#23R#23

()

(HELICAL-MOVE)

#3=0

WHILE[#3LT#18]DO1

I[#7/2]Z-#20

#3=#3+1

END1

()

(RAMP-OUT)

X#23Y#23R#23

G1G40X[[#7/2]-#23]Y-#23

 

 

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