Перейти к публикации

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

Vengeance

Автор: Vengeance,
в Fanuc

 Рассказать Подписчики 1

Рекомендованные сообщения

  • 4 месяца спустя...


Айвар

Айвар 0

Опубликовано:
Опубликовано:
В 26.06.2017 в 19:13, z90 сказал:

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

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

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

Ссылка на сообщение
Поделиться на других сайтах
Metal_Cutter

Metal_Cutter 126

Опубликовано:
Опубликовано:
В 19.11.2017 в 14:06, Айвар сказал:

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

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

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

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

 

  • Нравится 3
Ссылка на сообщение
Поделиться на других сайтах
  • 2 месяца спустя...
sumar

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;

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

  • Нравится 2
Ссылка на сообщение
Поделиться на других сайтах
  • 1 год спустя...
  • 5 месяцев спустя...
oleksandr2

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;

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

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

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

Ссылка на сообщение
Поделиться на других сайтах
  • 3 года спустя...
333

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

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

mannul 353

Опубликовано:
Опубликовано: (изменено)
14.04.2023 в 16:08, 333 сказал:

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

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

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

Изменено пользователем mannul
Ссылка на сообщение
Поделиться на других сайтах
333

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

mannul 353

Опубликовано:
Опубликовано: (изменено)

@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

 

 

Изменено пользователем mannul
Ссылка на сообщение
Поделиться на других сайтах

Присоединяйтесь к обсуждению

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

Гость
Ответить в тему...

×   Вставлено в виде отформатированного текста.   Вставить в виде обычного текста

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

×
 Рассказать
Подписчики 1
Перейти к списку тем

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу.



  • Сообщения

    • ALEKS
      Презентация Е2025 в Израиле.

      Автор: ALEKS · Опубликовано:

      Презентация пройдёт в Герцлии 5 декабря и в Кейсарии 26 ноября сего года. Записывайтесь у секретаршы Симатрона.
    • Artas28
      Настройка Renishaw

      Автор: Artas28 · Опубликовано:

      Что означает запись, например @135:=@127+@802;//(X*COR*POS) @140:=@135-#10 @  - ?  := ?  
    • Artas28
      Настройка Renishaw

      Автор: Artas28 · Опубликовано:

      Добрый день! Есть у кого программа для Inspection Plus. Измерение отверстия или вала по трем точкам (O9823). Желательно для Syntec. А то в станок O9804 Векторная калибровка радиуса сферического наконечника щупа загрузили, а измерение отв. по 3-м точкам нет:((
    • Guest_by
      G-POST, много вопросов. Хочется понять логику работы.

      Автор: Guest_by · Опубликовано:

      Попробуйте так:   CIMFIL/ON,GOHOME     XX=POSTF(2,1,1867,1)    FEDRAT / 123.000000,  MMPM        XX=POSTF(13)                 XX=POSTF(2,1,1867,0)            XHOME=POSTF(1,3,130)             YHOME=POSTF(1,3,131)   ZHOME=POSTF(1,3,132)   FHOME = 8000 POSTN/ALL           POSTN/OUT,7,1,26,ZHOME,F,FHOME POSTN/OUT,24,XHOME,25,YHOME CIMFIL/OFF
    • mamomot
      Как это делается в T-Flex

      Автор: mamomot · Опубликовано:

      Понятно! Да я о Вас давно все понял... Вы, главное, не беспокойтесь...
    • gudstartup
      Как это делается в T-Flex

      Автор: gudstartup · Опубликовано:

      вы тоже не видите ответа в этом вопросе ... про барабаны не знаю но по головам своих учеников он стучать любил от этого гварнери выглядит таким забитым
    • maxx2000
      Как это делается в T-Flex

      Автор: maxx2000 · Опубликовано:

      @mamomot странная манера у тебя трактовать слова и приписывать эту трактовку в заслуги автора. По моему мнению, все кто требует решения для каждого конкретного случая когда достаточно лишь изучить инструментарий, обезьяны, а не все. Почему? Потому что даже обезьян учат кнопки давить не задумываясь. Нажал на кнопку-получил результат. Коллеги твои плюются может потому что такие же обезьяны-кнопконажиматели. Пусть научатся моделить отливки, а не заниматься хнёй. Уровень в твоей конторе мне примерно понятен, по твоим статьям. НОРМАЛЬно, т.е. и так сойдёт. Пусть изучают Компас, учатся конструировать и у них не будет необходимости просить кого-то что-то делать в ТФ. И не понятно, чё ты так возбудился, уже должен был успокоиться. Вопрос риторический, ответа не требует.   Операция проецирвоания кривой и протягивания это базовый функционал для ВСЕХ CAD @Guhl а, я не говорил что он делал скрипки 
    • Guhl
      Как это делается в T-Flex

      Автор: Guhl · Опубликовано:

      Да я вообще всегда считал, что Страдивари барабаны делает. Но только для конкретных пацанов
    • ID_Hacker
      Проблемы с энкодером. Помогите разобраться.

      Автор: ID_Hacker · Опубликовано:

      Infeed - это выпрямитель-рекуператор. Обычно, на станках можно отключить электропитание силовых цепей (состояние когда гидравлика отключается), где то есть отдельные кнопки, где то кнопкой аварийного останова реализуют. Если так возможности нет, можно через параметры привода перевести устройства в состояние настройки, P10 вроде параметр. Лучше возьмите ПО симатик стартер для этого. Ну и выше уже описали процедуру изменения.
    • maxx2000
      Как это делается в T-Flex

      Автор: maxx2000 · Опубликовано:

      @Guhl Амати учитель Страдивари, в свою очередь у Страдивари было как минимум два ученика. Или ты о каком страдивари? Что тебе не нравится?
×
×
  • Создать...