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

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

Vengeance

Автор: Vengeance,
в Fanuc

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

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

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


Айвар

Айвар 0

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

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

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

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

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

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 тестировались и единожды на станке. 

 

  • Нравится 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 312

Опубликовано:
Опубликовано: (изменено)
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 312

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

@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 эмодзи.

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

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

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

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

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

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


  • Сообщения

    • dps
      HAAS st-10 разрядилась батарейка

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

      Да. На моем случает 5шт кажется опций. И я сейчас уже не вспомню порядок восстановления. Если кто-то возьмется его все же полно и достоверно изложить- было бы очень замечательно. Или может инструкция есть от того же ХААс-а?
    • Александр 36
      g71

      Автор: Александр 36 · Опубликовано:

    • Igor Lipin
      Sinumerik 840 DSL Ошибка 21612

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

      Доброва времени суток, помогите разобраться с неисправностью станка Hiperturn 65-dt на стойке Sinumerik 840 DSL.  После сервисного обслуживания подрядчиком периодически срабатывает ошибка 21612: Канал 1: Ось S1/C11 разрешение сброшено, причина 1. Сервомотор шпинделя оснащен датчиком на валу AMO, других энкодеров на валу не нашел. Неисправность возникает хаотично, на разных операциях программы обработки, но при вращении шпинделя. По рекомендации справки (Help) повышали параметр 36060, на какое-то время помогало, а потом опять ошибка. Пробовали при работе шевелить все соединения в КК двигателя и привода, SMC20, датчики температуры, энкодер AMO.Короче ничего не помогает. Кто встречался с такой ошибкой, посоветуйте.  
    • Jesse
      Глупый вопрос (не знаю как назвать)

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

      по штоку смотрите. Т.е. в миллиметрах. Ну , у нас так..))
    • clavr
      SWPlus.Net (оформление конструкторской документации)

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

      переменные одни и те же? не будет конфликта? 
    • Alexandr97
      Проблема с обновлением созданной библиотеке в tflex docs.

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

      Проблема кроется в следующем. После создания библиотеки стандартных изделий и создания конфигурации системы в tflex docs через cad, невозможно обновить библиотеку на других компьютерах. Вся библиотека была привязана к конфигурации формата tws. Пользователи Tflex cad через меню документов закрепляют у себя библиотеку с помощью выбранной конфигурации, но она автоматически сохраняется у них на диске. Таким образом, если начальный разработчик в библиотеке воспроизведет изменение, то остальные пользователи этого не увидят, данные не обновятся, так как все сохранено у них на компьютере почему-то, и с docs новые изменение не подтягиваются. Вопрос: подскажите, пожалуйста, как же все таки настроить библиотеку в docs так, чтобы при ее обновлении, вся библиотека у всех пользователей автоматически обновилась? Сейчас выходит так:разработчик делает изменение, сохраняет в докс, пользователи этого не видят, так как система не обновляется. Разработчику остается только создать заново конфигурацию и всем пользователям ее заново у себя прикрепить... Так же не должна работать система?
    • Snake 60
      SWPlus.Net (оформление конструкторской документации)

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

      @clavrНет, мои макросы самостоятельные, только делают тоже что и Мпроп заносят свойства в деталь/сборку. Плюс в том, что есть пакетный режим обработки
    • clavr
      SWPlus.Net (оформление конструкторской документации)

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

      там экзешник MProp.exe. его тоже запустит? или именно макрос нужен? p.s. сижу на макросах SWPlus.NET v.1.0
    • Snake 60
      SWPlus.Net (оформление конструкторской документации)

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

      @clavr Мой макрос делает это для сборки: https://snake-60.ru/blog/blog-list/84-onepage-blog/78-fromfilenametoproperties-vba-makros-paketnogo-zaneseniya-svojstv-v-detali-i-ili-podsborki А этот для папки с проектом: https://snake-60.ru/blog/blog-list/84-onepage-blog/80-makros-paketnogo-zaneseniya-svojstv-v-detali-sborki-nakhodyashchiesya-v-papke
    • Kelny
      Прописывание габаритных размеров детали.

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

      Версия должна быть SW2014 и выше: https://help.solidworks.com/2014/RUSSIAN/SolidWorks/sldworks/c_3d_bounding_boxes.htm   Как вариант макросом (но не всегда корректно давал габарит на не прямые поверхности, например, сферы или кривые поверхности): https://kelnyproject.ucoz.ru/load/6-1-0-7 при желании можно поковываться и встроить макрос в документ модели, что бы обнавляло при запуске или обновлении модели.   А в последних версиях так же появилась ГРАНИЧНАЯ РАМКА (см. ссылку на справку выше), которая имеет габариты и эти габариты могут быть вставленны как ссылка на размер, как раз в том виде как вы приводите.
×
×
  • Создать...