Перейти к содержанию
Alan Derby

Небольшой скрипт на ручную смену инструмента

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

Классно!!!!!!!!!!!!!!

Подскажи пожалуйста.

Написал скрипт

 

XNew = 1

Code "F200"

Code "G0x "&XNew

Code "G04 p5" ' пауза 0.5 с

While IsMoving ()

Wend

 

XNew = 0

Code "F2"

Code "G0x "&XNew

While IsMoving ()

Wend

 

Что дописать чтобы перед началом движения №инструмента изменился на 0

Спасибо......

Поделиться сообщением


Ссылка на сообщение

Строка

 

Call SetOEMDRO (824,0)

 

становит номер инструмента "0".

Поделиться сообщением


Ссылка на сообщение

Не подскажите, как написать скрипт на М3 таким образом, чтобы ось Z от нулевого положения поднялась на ускоренном ходу на 20мм вверх, затем включилась плазма, затем ось Z на том же ускоренном ходу вращаясь по радиусу 1мм опустилась до 0.

Поделиться сообщением


Ссылка на сообщение

Alan Derby, Отличное видео. Тема по станку была? Очень интересно глянуть на решения.

Поделиться сообщением


Ссылка на сообщение
Дата: (изменено)

Мустафа, Вы уверенны, что нужно на G0 опускаться по радиусу 1 мм? Представляете, как станок колбасить будет от ускренного движения по столь малому радиусу? И почему именно М3? М3 это зарезервированная команда круговой интерполяции. Ваша задача решается средствами обычного G-кода. Либо на данную операцию Вам нужно создать собственную М-команду.

 

Mixxp, спасибо.

Да, решил создать тему по станку, куда буду выкладывать примененные решения по мере развития проекта. Окончательная цель данного проекта получить небольшой токарно-фрезерный обрабатывающий центр с автоматической сменой инструмента и даже с автоматической подачей материала. Но это пока фантазии на тему "эх, вот было бы красно если бы..."

Пока дополнил станок только системой быстрой смены инструмента и проектирую инструментальный барабан. Тема тут: http://www.chipmaker.ru/topic/163003/

 

Видео:

 

 

Кстати, вышеприведенные скрипты я несколько усовершенствовал:

1. Надоело каждый раз нажимать Enter при смене инструмента по этому всплывающее окно я убрал, и оставил только паузу. Когда программа доходит до смены инструмента - шпиндель поднимется и программа становится на паузу. Какой инструмент ставить показано в самой программе. После замены достаточно нажать Cycle Start.

2. Измерение инструмента производятся от концевика - Z и шпиндель к нему двигался на ускоренной подаче по команде "Home Z" - DoButton (24), в результате чего концевик мог сработать не точно (+/- 0,07). Если же делать это на низкой скорости, то получается долго. Сделал так - шпиндель движется к датчику на ускоренной подаче, после срабатывания, он опускается на 10 мм, снижает скорость и уже на 20% скорости повторно едет к датчику.

Если надо завтра выложу новые версии скриптов.

Изменено пользователем Alan Derby

Поделиться сообщением


Ссылка на сообщение

Alan Derby, А как железно реализована смена инструмента?

Поделиться сообщением


Ссылка на сообщение

Mixxp, реализовано, как у всех.

Сверху шомпол притянут пачкой тарельчатых пружин, с усилием удержания порядка 500-550 кг. Над ними пневмоцилиндр диаметром 100 мм. При нажатии кнопки срабатывает пневмоклапан и воздух из компрессора под давлением попадает в цилиндр. Шток опускается, давит на шомпол, цанга выдавливается отпуская инструмент. При отпускании кнопки клапан закрывает подачу воздуха и открывается в обратную сторону выпуская воздух из пневпоцилиндра. Шток под действием возвратной пружины возвращается в исходное положение, а тарельчатые пружины притягивают цангу надежно зажимая инструмент.

Сейчас у меня все собрано во временном виде - на резьбовых шпильках М6 держится. Жду серву, чтобы собрать в чистовую. Как соберу, могу снять видео, как это выглядит.

Поделиться сообщением


Ссылка на сообщение

Alan Derby, В конусе я так понимаю цанга на постоянной основе? Конус км3?

Поделиться сообщением


Ссылка на сообщение
Дата: (изменено)

Alan Derby, Цанга получается проскальзывает по хвосту при зажатии?

Изменено пользователем Mixxp

Поделиться сообщением


Ссылка на сообщение

Alan Derby, Цанга получается проскальзывает по хвосту при зажатии?

Зачем же проскальзывает? Не проскальзывает. Оправка вставляется до контакта с краем цанги и соответственно никуда проскальзывать не может. Или Вы какое-то другое проскальзывание имеете ввиду?

Поделиться сообщением


Ссылка на сообщение

Alan Derby, Ясно. Интересное решение. Теперь весь инструмент у вас на один (20?) хвостовик?

Поделиться сообщением


Ссылка на сообщение

Mixxp, да, хвостовик у всего инструмента один - 20 мм. Не конус конечно, но мне точности хватает. А главное всегда можно быстро выточить на токарном новую оправку быстро и не дорого.

Поделиться сообщением


Ссылка на сообщение

Alan Derby, Ясно, спасибо.

Поделиться сообщением


Ссылка на сообщение

Мне указали на мою неточность. Когда я копировал в форум первый скрипт, то не захватил первую строку в которой определяются переменные. Из-за этого скрип не работает.

 

Ниже исправленный скрипт. Кроме того он немного изменен для увеличения точности изменений.

 

Если что-то не работает, сообщите пожалуйста.

 

 

Dim Message, Title, Default, MyValue

Message = "What Tool will measuring?" ' Set prompt.

Title = "Input number of tool" ' Set title.

Default = "0" ' Set default.

 

' Display dialog box at position 100, 100.

MyValue = InputBox(Message, Title, Default, 100, 100)

 

 

Call SetOEMDRO (824,MyValue) 'set number of tool

Tool_Num = GetDRO (24) 'get tool number

If Tool_Num <>0 Then

SetParam ("ZRefPer", 100)

DoButton( 24 )

While IsMoving()

Wend

Call setDRO (2, 0)

SetParam ("ZRefPer", 10)

DoButton (24)

While isMoving ()

Wend

Call SetDRO (2,180)

 

Rem Probe In the z direction

Code "F1000 G31 Z-10000" '&ZNew

While IsMoving() 'wait for probe move to finish

Wend

NewZ = GetDro(2) + 5

Code "G0 z" &NewZ

Code "F30 G31 Z-200" '&ZNew

While IsMoving() 'wait for probe move to finish

Wend

 

ToolLengh = GetDro(2)

Call setOEMDRO(42, ToolLengh) 'set tool offset to tool table

Call SetDRO(2, 0 )

 

End If

 

Code "G0 Z100"

Поделиться сообщением


Ссылка на сообщение

Alan Derby, Здравствуйте.

Впечатлён. А не подскажите, на NcStudio такой скрипт можно написать?

Задолбала ручная смена инструмента и калибровка.

Поделиться сообщением


Ссылка на сообщение

nicita-08, спасибо

В ЧПУ-делах можно сказать новичок и с NcStudio пока поработать не успел по этому не знаю правильного ответа на Ваш вопрос.

Если NcStudio поддерживает создание скриптов, то наверное можно.

Поделиться сообщением


Ссылка на сообщение

Салют, наверное я наконец то обращаюсь по адресу. Мысль такая, после каждой смены (М6) идёт на датчик и только потом на траекторию. И такой вопрос, как этот скрипт встроить в начало программы(готов в ручную добавить каждый раз после постпроцессора) может тоже как нибудь к М6 прикрутить?

Поделиться сообщением


Ссылка на сообщение

И не совсем понял как скрипт к М6 вписать(может ссылочку дадите куда смотреть) обнуление вроде сделал, надеюсь верно. Спасибо.

Поделиться сообщением


Ссылка на сообщение

Ямаха, зайдите в папку Mach3, -> macros -> далее в папку с профилем Вашего станка и найдите файл "M6Start.m1s". В него пропишите макрос на смену инструмента.

 

ВАЖНО! Не забудьте поставить галочку на "Stop Spindle. Wait for Cycle Start" в Gneral Config иначе Mach3 будет игнорировать команду М6.

Поделиться сообщением


Ссылка на сообщение

Продолжается модернизация. Мне приходится делать много изделий из прутка 10 и 14 мм. Каждый раз, после отрезки детали, приходилось самостоятельно выдвигать пруток на нужное расстояние.

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

Получилось удобно и быстро.

 

https://www.youtube.com/watch?v=0ozIlP0TWDo

Поделиться сообщением


Ссылка на сообщение

Наконец доработал шпиндель станка под захват штревеля для конуса ВТ-30.

 

До этого стоял цилиндрический хвостовик. Цилиндрический хвостовик конечно имеет свои достоинства, самое главное из которых - простота. Любой инструмент можно просто расточить под цилиндр и пользоваться, а для сверлильных патронов вообще изготовить оснастку самому. Но большой минус в том, что при применении больших спиральных фрез, фреза норовит выкрутиться из захвата. У меня такое было на фрезах 20 мм. Беда в том что фреза 20 мм у меня одна из основных в работе. Это и заставило искать решение дальше.

 

Теперь сделал захват под штревель и перехожу на конус ВТ-30. Минус конусов в том, что относительно дорого, плюс в том, что надежность и точность выше и кроме того теперь доступен любой профессиональный инструмент.

 

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

 

https://www.youtube.com/watch?v=m88ch8BRVuU&feature=youtu.be

Поделиться сообщением


Ссылка на сообщение

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти

  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу


×
×
  • Создать...

Важная информация

Мы разместили cookie-файлы на ваше устройство, чтобы помочь сделать этот сайт лучше. Вы можете изменить свои настройки cookie-файлов, или продолжить без изменения настроек.