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

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

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 пользователей

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



  • Сообщения

    • Snake 60
      Список вырезов сварного изделия

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

      Скорее всего исправляли в конкретной сборке, для конкретных тел. Насколько я помню, надо в самом эскизе профиля заполнить свойство Description
    • Snake 60
      А на солиде можно рассчитывать зубчатые передачи?

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

      Делаете дырку в свае - вставляете в нее трубу и 2 человеко-силы крутят сваю ) Дёшево и сердито и не нужен никакой планетарный редуктор ))
    • gudstartup
      Пароль уровня доступа

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

      вы всегда ищите свой путь или будете делать то что вам советуют? с самого начала прежде чем приступать к экспериментам вам нужно было вынуть носитель и сделать образ. diskcopy делает копию гибкого диска на другой а вам надо сделать образ жесткого диска или карты памяти. делайте как советует @Viktor2004 иначе еще чего нибудь сломаете или вам станок не нужен и вы его приобрели для экспериментов ? вот а печатной машинке из прошлого нельзя а вот на синумерике можно - удивительные вещи в настоящем происходят!! на 100 % уверен что там не модуль а либо писимиси ай либо жд @mircomax81 хотите работать в дос почитайте помощь по командам 
    • PuKoLLleT
      Растачивание отверстий на окружности

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

      Доброго дня всем. Поделитесь опытом,раньше такое не доводилось делать. На торце фланца нужно сделать  восемь отверстий ф17H7 на токарно-фрезерном станке с осью Y ,имеется ManualGuide.В моем понимании нужно просверлить,а затем торцевой фрезой расточить нужный диаметр.Получится такой фокус,или надо разверткой доводить нужный размер?  Стойка Fanuc 0i-Tf.
    • Snake 60
      А на солиде можно рассчитывать зубчатые передачи?

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

      Всё верно, я даже русификатор делал для него (ушло на это где-то около года). Хороший софт был, я всех знакомых на него подсадил в свое время :) У меня даже где-то образ на виртуалке лежит с SW2014+MechSoft, Жаль, что автодеск его поглотил, а не DS :( А по сути вопроса, проектировал двухступенчатый планетарный редуктор в свое время. Что было нужно: Справочник по планетаркам (автора не помню, если надо поищу), из софта MathCAD + GearTeq (софтина идет вместе с GearTrax, только рассчитывает и моделирует несколько зацеплений согласно выбранной схеме, в том числе планетарки) Ой и ошибаетесь. Звездочки - не равно зубчатые колеса в планетарке) Мы намучились с малой точностью изготовления на эл.эрозии, а Вы лазером ))) Был собран опытный образец редуктора с незакаленными деталями, чисто проверить геометрию, отладить сборку. Так потом начальство этот редуктор сказало испытать в бою, как я не противился)) Помер за пару дней интенсивных нагрузок ))) Материал, термообработка и точности изготовления решают )
    • Snake 60
      Сварные детали - глобальные зазоры, обновление чертежа при изменении конфигурации

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

      @Тихоход  Ещё один вариант - изучать программирование и писать свою программу/макрос. Вот пример конфигуратора двери: https://www.youtube.com/watch?v=wv4HryWQBSk
    • mircomax81
      Пароль уровня доступа

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

      Посредством Diskcopy можно сделать адекватную копию на флоппи диск?
    • Andrey_kzn
      Пароль уровня доступа

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

      Да, ведь советовали автору вытащить жёсткий диск и сделать образ. Неужели самому не интересно, как устроен этот старый промкомпьютер? Там может стоять как жёсткий диск, так и CF-карта, или же Disc-on-chip или Disc-on-module.  Как-то очень давно, на подобном промышленном оборудовании (большая печатная машина) я не смог перенести  ПО с родной CF - карты на другую, такого же размера но другой фирмы. Была также станочная оболочка под досом.  Образ я делал Нортон гостом, развернул его на другую CF-карту без проблем. Машина загрузилась нормально и работала ровно 2 дня, на неродной CF-карте,  потом зависла, и отказалась загружаться. Пришлось вызывать сервисника. От него мы узнали, что нельзя просто так взять и заменить карту  - носитель системного ПО, на другую. А полезли мы туда, так как руководство захотело печатать отчёты по работе машины. В станочном ПО такая функция была. Вот только принтер надо было купить у фирмы - производителя этой самой машины. В попытках заставить работать другой принтер мы редактировали файл  AUTOEXEС.BAT, на предмет загрузки драйвера принтера, ничего не получилось, зато перестали открываться некоторые страницы станочного ПО.  Образ у нас был давно снят, и мы развернули его на другую карту памяти. Родную карту я трогать не стал (как чувствовал, что нельзя ). Сервисник восстановил ПО с архивной дискеты на родную карту памяти, и всё заработало. Дискеты с архивами ПО шли вместе с документацией к машине.  Там были дискеты с Досом, станочной оболочкой, параметрами приводов, программой ПЛК. Он же и предупредил нас о предельно аккуратном обращении с родной картой памяти, и посоветовал немедленно сделать образы с архивных дискет, что мы сразу и проделали.. Вот такой сюрприз от машины эпохи Дос.
    • Борман
      Не будем забывать о главном !

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

    • gudstartup
      Пароль уровня доступа

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

      а ведь все работало...
×
×
  • Создать...