Автоматическая смена инструмента АТС в Mach3
- ridirt
- Мастер
- Сообщения: 671
- Зарегистрирован: 24 июл 2013, 23:52
- Репутация: 275
- Настоящее имя: Живописцев Андрей Викторович
- Откуда: Спб
- Контактная информация:
Автоматическая смена инструмента АТС в Mach3
За все время существования этого форума и чипмейкера не было ни одной внятной и законченной темы по созданию Автосмены, Автоматической смены инструмента в программе Mach3. Было несколько тем, но в них ничего толком нет. Все что выдает поиск никак не способствовало пока просветлению в данном направлении, поэтому эта тема создана для того чтобы раз и навсегда уже закрыть эту пустоту. На личном примере я буду реализовывать автосмену и разжёвывать все моменты и нюансы с которыми придется столкнуться, чтобы создать гайд по постройке автосмены на хоббийном или полупрофессиональном станке. Итак поехали.
[*]Почему мач3? Сейчас эта платформа хоть и с набором косяков более менее мне понятна.
[*]На сегодня требуется определиться с количеством инструментов и типом автосменщика,
[*]Закупить оборудование и детали
[*]Разобраться с принципом автосмены и таблицей инструментов, провести опыты и попробовать написать примерный скрипт для автосменщика
Закончу проект приблизительно к ноябрю 2022г.
Если у кого то было желание сделать автосмену в своем станке, то присоединяйтесь. Сейчас пока рубль дорогой все кто боялся делать из за цены и сложности самое время начинать.
Для всего этого дела я прикупил шпиндель на али всего за 74.830,72 ₽
https://www.aliexpress.com/snapshot/0.h ... 1654788172
всего тыща баксов и он ваш Весь бюджет автосмены со всеми оправками, пневматикой и механикой, системой подготовки воздуха и прочего по примерным подсчетам вышел в 400 к.
Дальше будут свежие фото проекта
[*]Почему мач3? Сейчас эта платформа хоть и с набором косяков более менее мне понятна.
[*]На сегодня требуется определиться с количеством инструментов и типом автосменщика,
[*]Закупить оборудование и детали
[*]Разобраться с принципом автосмены и таблицей инструментов, провести опыты и попробовать написать примерный скрипт для автосменщика
Закончу проект приблизительно к ноябрю 2022г.
Если у кого то было желание сделать автосмену в своем станке, то присоединяйтесь. Сейчас пока рубль дорогой все кто боялся делать из за цены и сложности самое время начинать.
Для всего этого дела я прикупил шпиндель на али всего за 74.830,72 ₽
https://www.aliexpress.com/snapshot/0.h ... 1654788172
всего тыща баксов и он ваш Весь бюджет автосмены со всеми оправками, пневматикой и механикой, системой подготовки воздуха и прочего по примерным подсчетам вышел в 400 к.
Дальше будут свежие фото проекта
Последний раз редактировалось ridirt 20 ноя 2022, 01:50, всего редактировалось 5 раз.
- ridirt
- Мастер
- Сообщения: 671
- Зарегистрирован: 24 июл 2013, 23:52
- Репутация: 275
- Настоящее имя: Живописцев Андрей Викторович
- Откуда: Спб
- Контактная информация:
Re: Автоматическая смена инструмента АТС в Mach3
Написание скрипта наверное самый сложный и важный момент, которому в этой теме будет уделено максимальное внимание. Если до этого скрипты для центроискателя и прочей автоматики писались на коленке методом тыка, то теперь я решил изучить мануал к программированию мач3 и написать нормальный рабочий скрипт. пока мой скринсет выглядит так
На четвертой оси у меня висит шаговый привод центроискателя, на 5 ось планируется повесить привод автосменщика .
Поскольку у меня используется 2 порта лпт в станке и все выходы уже заняты под разную автоматику, придется думать либо как расширить возможности мач, путем например использования контроллера ethernet , либо ужимать как то менее нужное и вешать на освободившиеся выходы автосмену. А именно нужно будет 4 выхода, гидроциллидр линейного передвижения автосменщика, захват в шпинделе, степ и дир на драйвер. Планирую прикупить самую обычную платку китайскую. Думаю для автосмены любая сгодится, на которую будут так же заводиться сигналы обратной связи с датчиками автосмены.
По написанию скрипта. В матче есть панелька стандартная для смены инструмента, которую я благополучно удалил в свое время за ненадобностью, но если пользоваться какими то стандартными функциями программы ,матч любит чтобы все кнопки были на этой панели. Либо придется восстанавливать вручную либо переписывать с нуля , если пойму что от стандартной панели толку вообще никакого.
Пока логика клавиатуры под автосменщик видится мне так набор быстрых кнопок с номерами инструмента, кнопка обмера всех инструментов с последующим занесением длин в таблицу, разные кнопки обмера единичных инструментов и лампочки происходящих процессов.
Автосменщик будет без обратной связи, положение барабана будет храниться в памяти точно так же как машинные координаты по осям. По количеству инструмента пока видится парабан на 15-20 инструментов. Очень сильне ограничение по количеству инструмента из-за того что автосмена будет мешать проходу к станку, поэтому возможно что и 12ю ограничусь.
Сегодня удалось освободить дро 5 и 6 осей, на которые по незнанию программирования были повешены юстировочные координаты, ибо методом тыка я их смог хранить только в дро 5 и 6 осей, а как создать новый дро не знал. На четвертой оси у меня висит шаговый привод центроискателя, на 5 ось планируется повесить привод автосменщика .
Поскольку у меня используется 2 порта лпт в станке и все выходы уже заняты под разную автоматику, придется думать либо как расширить возможности мач, путем например использования контроллера ethernet , либо ужимать как то менее нужное и вешать на освободившиеся выходы автосмену. А именно нужно будет 4 выхода, гидроциллидр линейного передвижения автосменщика, захват в шпинделе, степ и дир на драйвер. Планирую прикупить самую обычную платку китайскую. Думаю для автосмены любая сгодится, на которую будут так же заводиться сигналы обратной связи с датчиками автосмены.
По написанию скрипта. В матче есть панелька стандартная для смены инструмента, которую я благополучно удалил в свое время за ненадобностью, но если пользоваться какими то стандартными функциями программы ,матч любит чтобы все кнопки были на этой панели. Либо придется восстанавливать вручную либо переписывать с нуля , если пойму что от стандартной панели толку вообще никакого.
Пока логика клавиатуры под автосменщик видится мне так набор быстрых кнопок с номерами инструмента, кнопка обмера всех инструментов с последующим занесением длин в таблицу, разные кнопки обмера единичных инструментов и лампочки происходящих процессов.
Автосменщик будет без обратной связи, положение барабана будет храниться в памяти точно так же как машинные координаты по осям. По количеству инструмента пока видится парабан на 15-20 инструментов. Очень сильне ограничение по количеству инструмента из-за того что автосмена будет мешать проходу к станку, поэтому возможно что и 12ю ограничусь.
-
- Кандидат
- Сообщения: 66
- Зарегистрирован: 20 дек 2020, 17:02
- Репутация: 17
- Настоящее имя: leonid
Re: Автоматическая смена инструмента АТС в Mach3
Нашол инфу на китайском форуме как сделать автоматическую смену инструмента в Mach3
- Вложения
-
- ATC.pdf
- (3.14 МБ) 366 скачиваний
-
- Кандидат
- Сообщения: 66
- Зарегистрирован: 20 дек 2020, 17:02
- Репутация: 17
- Настоящее имя: leonid
Re: Автоматическая смена инструмента АТС в Mach3
Видео и скрипт
- Вложения
-
- t1.zip
- (7.98 МБ) 208 скачиваний
- ridirt
- Мастер
- Сообщения: 671
- Зарегистрирован: 24 июл 2013, 23:52
- Репутация: 275
- Настоящее имя: Живописцев Андрей Викторович
- Откуда: Спб
- Контактная информация:
Re: Автоматическая смена инструмента АТС в Mach3
судя по видео скрипт для неподвижного сменщика, но для изучения основных принципов сгодится. Из того что я находил на этом форуме самый лучший скрипт, которыйй нужно изучить был написан NightV
viewtopic.php?f=40&t=1625&hilit=%D0%BC% ... 647#p17647
Так же буду отталкиваться от него когда начну писать свой.
почти ЛЮБОЙ сложный СКРИПТ бесполезен без скринсета, так как не поймешь, какие ниточки за что дергают, поэтому все это лишь для того, чтобы понять архитектуру построения скрипта и его логику.
viewtopic.php?f=40&t=1625&hilit=%D0%BC% ... 647#p17647
Код: Выделить всё
Sub Main()
OldTool = GetOEMDRO(1200) 'Tool In spindle DRO You must add this to your settings screen
'----Probe position--------------------------
ChX = 648.6
ChY = -3.1
ChZ = -23
'------------------------
x = GetToolChangeStart( 0 )
y = GetToolChangeStart( 1 )
z = GetToolChangeStart( 2 )
a = GetToolChangeStart( 3 )
b = GetToolChangeStart( 4 )
c = GetToolChangeStart( 5 )
tool = GetSelectedTool()
NewTool = tool
'Tool Changer Macro (Bed Type)
MaxToolNum = 8 'Max number off tools for the changer
ToolDown = -34.72 'Z Pos to Get or drop a tool
ToolUp = -1.0 'Z Hieght to Rapid from tool to tool
If NewTool = OldTool Then
Exit Sub
End If
While NewTool > MaxToolNum
NewTool = Question ("Enter New Tool Number up to " & MaxToolNum)
Wend
Code "G53 G00 Z-1" 'Move the tool all the way up
Code "G53 G00 X" & ChX & "Y" & ChY 'Move to the probe position
Code "G53 Z-15 F600"
While IsMoving()
Wend
Code "G31 F20 Z" & ChZ 'Z move down untill hit
While IsMoving()
Wend
HitOld = GetVar(2002) 'Get the Position that the Porbe hit at
Code "G4 P.5"
Code "G53 G00 Z" & ToolUp
Code "G53 G00 X" & ChX - 15
Call MovePos(OldTool)
While IsMoving()
Wend
Code "G53 Z-32"
Code "G53 G01 f400 Z" & ToolDown
While IsMoving()
Wend
Code "G4 P.2"
ActivateSignal(Output1) 'Turn On Draw bar to release the tool
Code "G4 P.5" 'Wait for the tool to release
Code "G53 G01 Z-32 F400"
Code "G53 G00 Z" & ToolUp
Call MovePos(NewTool)
While IsMoving()
Wend
Code "G53 G00 Z-32"
Code "G53 G01 f400 Z" & ToolDown
While IsMoving()
Wend
Code "G4 P.2"
DeActivateSignal(Output1) 'Turn Off Draw bar to Clamp the tool
Code "G4 P0.5" 'Wait for the tool to Clamp
Code "G53 G01 Z-32 f400"
Code "G53 G00 Z" & ToolUp
Code "G53 G00 X" & ChX - 15
Call SetUserDRO (1200,NewTool)
SetCurrentTool( NewTool )
'=============================================
Code "G53 G00 Y" & ChY 'Move to the probe position
'While IsMoving()
'Wend
Code "G53 G00 X" & ChX 'Move to the probe position
'While IsMoving()
'Wend
Code "G53 Z-15 F600 " 'Z move down untill hit
While IsMoving()
Wend
Code "G31 F20 Z" & ChZ 'Z move down untill hit
While IsMoving()
Wend
HitNew = GetVar(2002) 'Get the Position that the Porbe hit at
Code "G4 P0.5"
Diff = HitOld - HitNew
DiffABS =Abs(Diff)
If DiffABS=0 Then End
ZNew=0
ZOld = Getdro(2)
If HitOld < HitNew Then ZNew = ZOld - DiffABS :A=1
If HitOld > HitNew Then ZNew = ZOld + DiffABS :A=2
Call setdro(2,ZNew)
Code "G53 G00 Z" & ToolUp
'=============================================
Code "G00 X" & x & " Y" & y 'Move back to where the tool change was prompted
'Code "G00 Z" & z 'Move back to where the tool change was prompted
End Sub
Sub MovePos(ByVal ToolNumber As Integer)
Select Case ToolNumber
Case Is = 1
Xpos = 649.3890
YPos = -42.6440
Case Is = 2
Xpos = 649.7064
YPos = -70.0524
Case Is = 3
Xpos = 649.6746
YPos = -98.1590
Case Is = 4
Xpos = 649.7540
YPos = -126.0117
Case Is = 5
Xpos = 649.79
YPos = -153.6899
Case Is = 6
Xpos = 649.9445
YPos = -182.1616
Case Is = 7
Xpos = 650.0238
YPos = -209.6493
Case Is = 8
Xpos = 649.9286
YPos = -237.7559
End Select
Code "G53 Y" & YPos
Code "G53 X" & XPos
End Sub
Main
почти ЛЮБОЙ сложный СКРИПТ бесполезен без скринсета, так как не поймешь, какие ниточки за что дергают, поэтому все это лишь для того, чтобы понять архитектуру построения скрипта и его логику.
- ridirt
- Мастер
- Сообщения: 671
- Зарегистрирован: 24 июл 2013, 23:52
- Репутация: 275
- Настоящее имя: Живописцев Андрей Викторович
- Откуда: Спб
- Контактная информация:
Re: Автоматическая смена инструмента АТС в Mach3
Надо смотреть насколько это все будет мешать, так как санок уже не передвинуть, и если сильно то думать о цепной автосмене либо уменьшать количество инструментов до стандартных 12и.
Либо померить насколько далеко можно делать вылет и от этого уже плясать.
- ridirt
- Мастер
- Сообщения: 671
- Зарегистрирован: 24 июл 2013, 23:52
- Репутация: 275
- Настоящее имя: Живописцев Андрей Викторович
- Откуда: Спб
- Контактная информация:
Re: Автоматическая смена инструмента АТС в Mach3
Титанический труд проделан. Посути почти самое важное определился как все таки будет работать сменщик и механика. Вариантов решения было масса но как только начинал проектировать всегда упиралось куда то либо сильно торчало либо где то мешало либо не влезало. Как итог было принято решение делать выдвижной механизм но выдвижной не к центру стола а по оси Y . Данная концепция позволяет при фрезеровке уходить достаточно далеко влево, и при этом самая компактная если говорить о роторной на 16 инструментов. Получилось хоть и громоздко но зато на 16 инструментов. Подгонять пришлось тютелька в тютельку, а потом ехе под ход пневмоциллиндра. Определился зато с ходом наконецто и заказал на 350 мм. Посути все для смены я заказал и обошлось мне все в 160 к. Но еще не вечер. Купил так же частотник на 1000гц так как старый всего на 400. Начал потихоньку делать уже детальки , чтобы процесс продвигался.
- ridirt
- Мастер
- Сообщения: 671
- Зарегистрирован: 24 июл 2013, 23:52
- Репутация: 275
- Настоящее имя: Живописцев Андрей Викторович
- Откуда: Спб
- Контактная информация:
Re: Автоматическая смена инструмента АТС в Mach3
Работа идет полным ходом, все силы брошены на утепление помещения, ибо до этого все время температура внутри была как на улице зимой и летом, отсюда вытекает самая главная проблема конденсат в шлангах компрессора замерзает и все остается без воздуха, а автосменщик без воздуха работать не сможет. Соответственно нужно устранять самую главную и сложную проблему, а дальше по мере поступления. Холодная и темная дыра превращается потихоньку в теплое помещение.
Везде говорят что нужно ставить лубрикатор но масло с компрессора попадать в систему не должно, в связи с этим сам компрессор пришлось заменить на безмасляный, так что если планируете брать под автосмену берите сразу безмасляный, ходит он меньше но к нему я купил набор поршневых колец, ремонтируется все очень просто. и шума как правило от безмсляных меньше.
Ну и потихоньку начали приходить детальки с китая уже, первыми пришли державки и я их сразу исправил, ибо предварительная моделька была составлена по картинке от китайцев..
Ну и корпус почти доделан проект, нехватает приводного механизма и крышки.- [TARAN]>
- Мастер
- Сообщения: 642
- Зарегистрирован: 13 янв 2014, 03:58
- Репутация: 57
- Контактная информация:
Re: Автоматическая смена инструмента АТС в Mach3
Я бы не был так уверен, если ставить пневмотическое уплотнение подшипников, то расход будет большой и маслянный лучше справиться. Воздух в любом случае надо очищать. Не только от воды и масла. Фильтр компрессора, как правило, только от мух защищает + всякая дрянь которая "живет" в ресивере. Она там может жить годами с момента производства. Да и ржавчину ни кто не отменял, как и продукты износа головы самого компрессора.ridirt писал(а): ↑ Везде говорят что нужно ставить лубрикатор но масло с компрессора попадать в систему не должно, в связи с этим сам компрессор пришлось заменить на безмасляный, так что если планируете брать под автосмену берите сразу безмасляный, ходит он меньше но к нему я купил набор поршневых колец, ремонтируется все очень просто. и шума как правило от безмсляных меньше.
- ridirt
- Мастер
- Сообщения: 671
- Зарегистрирован: 24 июл 2013, 23:52
- Репутация: 275
- Настоящее имя: Живописцев Андрей Викторович
- Откуда: Спб
- Контактная информация:
Re: Автоматическая смена инструмента АТС в Mach3
У меня на масляном было 198 л/мин, а на этом безмасляном 250л/мин. Масляный при длительной работе перегревается быстрее и раньше уходит в защиту.[TARAN писал(а):> post_id=637526 user_id=8936]
то расход будет большой и маслянный лучше справиться
- [TARAN]>
- Мастер
- Сообщения: 642
- Зарегистрирован: 13 янв 2014, 03:58
- Репутация: 57
- Контактная информация:
Re: Автоматическая смена инструмента АТС в Mach3
Ну так это только от компрессора зависит. У моего 500 литров.. Работает тихо относительно, рядом можно разговаривать, хоть и голос повышать приходится. Но при равных условиях масляный переживет перегрев лучше. Так как масло отводит тепло. У меня есть фубак безмасляный, перегревается махом, но тут еще и от конструкции зависит. Фубак такой же поршневой но на сухую работает. В инструкции написано, что только для кратковременного использования. Шумит как сатана)) какой у Вас тип не знаю. Вроде как появились безшумные по типу мембранных, но если Вы кольца купили, значит обычный поршневой.
- Kachik
- Мастер
- Сообщения: 1410
- Зарегистрирован: 13 янв 2017, 16:22
- Репутация: 308
- Настоящее имя: Сергей
- Откуда: Питер
- Контактная информация:
Re: Автоматическая смена инструмента АТС в Mach3
Компрессор никак не может повлиять на количество влаги т.к. он её не синтезирует и сколько её есть в окружающем воздухе это и всё, другой взяться не откуда...
Нагрев никак не влияет на процесс конденсации, на него влияет как раз охлаждение а вернее переход через точку росы...
Как раз когда горячий воздух (после сжатия) охлаждается и конденсируется влага (она просто переходит из парообразного состояния в жидкое) и мы её видим каплями, но количество влаги не меняется, меняется только её состояние.
В водопроводных стояках в квартире, труба с холодной водой обычно мокрая в конденсате, а вот горячая всегда сухая...
- ridirt
- Мастер
- Сообщения: 671
- Зарегистрирован: 24 июл 2013, 23:52
- Репутация: 275
- Настоящее имя: Живописцев Андрей Викторович
- Откуда: Спб
- Контактная информация:
Re: Автоматическая смена инструмента АТС в Mach3
Процесс по чуть чуть но движется. Пришло все что заказывал абсолютно. Раньше срока даже, и то что дозаказывал при второй просадке юаня. добавил а проект пневмоцилиндр
https://youtu.be/WvwecGiqbWs
После отпуска приежжаю и до сентября надо сдать еще 3 комплекта не менее сложных деталей и может тогда и начну уже в сентябре все собирать.
Выдалась свободная минутка , собрал сегодня из остатков старых компьютеров, говна и палок щиток для пневмоклапанов, на виду он все равно не будет.
процесс быстрее никак не продвинуть, много заказов и надо в отпуск сьездить еще на неделю. Завтра отчаливаю, сдал сложный заказ который делал целых 4 дняhttps://youtu.be/WvwecGiqbWs
После отпуска приежжаю и до сентября надо сдать еще 3 комплекта не менее сложных деталей и может тогда и начну уже в сентябре все собирать.
- ridirt
- Мастер
- Сообщения: 671
- Зарегистрирован: 24 июл 2013, 23:52
- Репутация: 275
- Настоящее имя: Живописцев Андрей Викторович
- Откуда: Спб
- Контактная информация:
Re: Автоматическая смена инструмента АТС в Mach3
Небольшое продвижение в написании скрипта. Пока правда для меня непонятно даже почему м6 разделен на две части М6старт и М6энд.
Может кто то знает для чего?
В каком случае мач3 обращается к скрипту м6энд?
В общем я ночь не спал из за того что мне подсела мысль как организовать автосмену так чтобы у тебя была куча инструментов с номерами и все они были в базе , а станок сам искал их в ячейках и производил замену. Скрипт был написан конечно топорным методом но он работает и это главное.
Сначала я думал сделать в скринсете отдельный экран под АТС, но решил что надо продолжать гнуть свою линию и пехать все в первую страничку мач3. Снизу разместил ряды кнопок и окон юзер дро. Эти дро соответствуют ячейке в автосменщике, Программа проверяет построчно каждый юзер дро и если там нет инструмента с таким номером ни в одной ячейке, к примеру, то выдает сиглал об ошибке, либо окно опроса с просьбой установить нужный инструмент.
под каждым юзер дро кнпка автосмены на данный инструмент и кнопка переезда для установки инструмента или замены. При установке или замене инструмента, номер инструмента должен быть вручную вписан в окно юзер дро соответствующей ячейки атс. При перезагрузке мач все скидывается и придется все перезадавать, но когда станок включен 24/7 это не так страшно. Перед выключением можно сделать фото, а потом перезабить быстро по фото. данный кусок скрипта уже опробован и отлажен и можно продолжать дальше дописывать потихоньку.
для удобства поворотный механизм атс будет настроен так что 1единица измерения будет равна перемещению инструмента на 1 позицию.
Может кто то знает для чего?
В каком случае мач3 обращается к скрипту м6энд?
В общем я ночь не спал из за того что мне подсела мысль как организовать автосмену так чтобы у тебя была куча инструментов с номерами и все они были в базе , а станок сам искал их в ячейках и производил замену. Скрипт был написан конечно топорным методом но он работает и это главное.
Сначала я думал сделать в скринсете отдельный экран под АТС, но решил что надо продолжать гнуть свою линию и пехать все в первую страничку мач3. Снизу разместил ряды кнопок и окон юзер дро. Эти дро соответствуют ячейке в автосменщике, Программа проверяет построчно каждый юзер дро и если там нет инструмента с таким номером ни в одной ячейке, к примеру, то выдает сиглал об ошибке, либо окно опроса с просьбой установить нужный инструмент.
под каждым юзер дро кнпка автосмены на данный инструмент и кнопка переезда для установки инструмента или замены. При установке или замене инструмента, номер инструмента должен быть вручную вписан в окно юзер дро соответствующей ячейки атс. При перезагрузке мач все скидывается и придется все перезадавать, но когда станок включен 24/7 это не так страшно. Перед выключением можно сделать фото, а потом перезабить быстро по фото. данный кусок скрипта уже опробован и отлажен и можно продолжать дальше дописывать потихоньку.
для удобства поворотный механизм атс будет настроен так что 1единица измерения будет равна перемещению инструмента на 1 позицию.
Код: Выделить всё
Sub Main()
OldTool = GetOEMDRO(1200) 'Tool In spindle DRO You must add this to your settings screen
tool = GetSelectedTool()
NewTool = 0
tb1 = GetOEMDRO(1303)
If Tool = tb1 Then NewTool = 1
tb2 = GetOEMDRO(1304)
If Tool = tb2 Then NewTool = 2
tb3 = GetOEMDRO(1305)
If Tool = tb3 Then NewTool = 3
tb4 = GetOEMDRO(1306)
If Tool = tb4 Then NewTool = 4
tb5 = GetOEMDRO(1307)
If Tool = tb5 Then NewTool = 5
tb6 = GetOEMDRO(1308)
If Tool = tb6 Then NewTool = 6
tb7 = GetOEMDRO(1309)
If Tool = tb7 Then NewTool = 7
tb8 = GetOEMDRO(1310)
If Tool = tb8 Then NewTool = 8
tb9 = GetOEMDRO(1311)
If Tool = tb9 Then NewTool = 9
tb10 = GetOEMDRO(1312)
If Tool = tb10 Then NewTool = 10
tb11 = GetOEMDRO(1313)
If Tool = tb11 Then NewTool = 11
tb12 = GetOEMDRO(1314)
If Tool = tb12 Then NewTool = 12
tb13 = GetOEMDRO(1315)
If Tool = tb13 Then NewTool = 13
tb14 = GetOEMDRO(1316)
If Tool = tb14 Then NewTool = 14
tb15 = GetOEMDRO(1317)
If Tool = tb15 Then NewTool = 15
tb16 = GetOEMDRO(1318)
If Tool = tb16 Then NewTool = 16
While NewTool =0
NewTool = Question ("111111 " & MaxToolNum)
Wend
x = GetToolChangeStart( 0 )
y = GetToolChangeStart( 1 )
z = GetToolChangeStart( 2 )
a = GetToolChangeStart( 3 )
b = GetToolChangeStart( 4 )
c = GetToolChangeStart( 5 )
If NewTool = OldTool Then
Exit Sub
End If
While NewTool =11
NewTool = Question ("22222 " & MaxToolNum)
Wend
Call MovePos(OldTool)
While IsMoving()
Wend
Call MovePos(NewTool)
Call SetUserDRO (1200,NewTool)
SetCurrentTool( NewTool )
End Sub
Sub MovePos(ByVal ToolNumber As Integer)
Select Case ToolNumber
Case Is = 1
Bpos = 1
Case Is = 2
Bpos = 2
Case Is = 3
Bpos = 3
Case Is = 4
Bpos = 4
Case Is = 5
Bpos = 5
Case Is = 6
Bpos = 6
Case Is = 7
Bpos = 7
Case Is = 8
Bpos = 8
Case Is = 9
Bpos = 9
Case Is = 10
Bpos = 10
Case Is = 11
Bpos = 11
Case Is = 12
Bpos = 12
Case Is = 13
Bpos = 13
Case Is = 14
Bpos = 14
Case Is = 15
Bpos = 15
Case Is = 16
Bpos = 16
End Select
Code "G53 B" & BPos
End Sub
Main
- Kachik
- Мастер
- Сообщения: 1410
- Зарегистрирован: 13 янв 2017, 16:22
- Репутация: 308
- Настоящее имя: Сергей
- Откуда: Питер
- Контактная информация:
Re: Автоматическая смена инструмента АТС в Mach3
Это для организации полуавтоматической смены. Старт вызывается автоматически по м6, в нем прописывается следование в место смены инструмента, затем в ручную меняется инструмент и в ручную запускается энд, который измеряет корректировку инструмента и запускает продолжение программы...
- ridirt
- Мастер
- Сообщения: 671
- Зарегистрирован: 24 июл 2013, 23:52
- Репутация: 275
- Настоящее имя: Живописцев Андрей Викторович
- Откуда: Спб
- Контактная информация:
Re: Автоматическая смена инструмента АТС в Mach3
Это все упрощает. тогда все можно тупо забить в один скрипт и не париться.
Перелопатил в очередной раз всю инструкцию к мачу, точнее к его внутренностям и не нашел функций работы с базами данных. Видимо мач3 не может ничего сохранить куда то чтобы оно там лежало а потом оттуда взять это. Даже скринсет свой сохраняет только после завершения работы, а в случае аварийного отключения все настройки и скрипты слетают. Поэтому я решил что база данных с инструментами не будет храниться в виде фото на телефоне а будет просто в макросе, файл которого будет постоянно открыт на компе для изменения. Поменял иструмент, вбил в макрос, сохранил. Макрос можно вызвать перед началом автосмены к примеру. Так же в этом макросе поместил юстировочные координаты центроискателя, с которыми та же проблема. Повесил кнопку вызывающую этот макрос на главном экране.
При аварийном отключении о том какой инструмент сейчас в шпинделе можно забить в кнопку реф ал хоум функцию VerifyAxis()
Либо способ еще проще, обнуляем "В" двигаемся в сторону датчика , считываем положение, округляем до целого, возвращаемся на место , записываем с положительным знаком в окно инструмента.
Но это уже следующая история а пока макрос базы данных инструмента
Код: Выделить всё
f = 159.381
g = 23.011
t1 = 1
t2 = 2
t3 = 3
t4 = 10
t5 = 100
t6 = 146
t7 = 1
t8 = 178
t9 = 15
t10 = 14
t11 = 1
t12 = 1
t13 = 10
t14 = 1
t15 = 100
t16 = 16
SetOemDro (1301, f)
SetOemDro (1300, g )
SetOemDro (1303, t1 )
SetOemDro (1304, t2 )
SetOemDro (1305, t3 )
SetOemDro (1306, t4 )
SetOemDro (1307, t5 )
SetOemDro (1308, t6 )
SetOemDro (1309, t7 )
SetOemDro (1310, t8 )
SetOemDro (1311, t9 )
SetOemDro (1312, t10 )
SetOemDro (1313, t11 )
SetOemDro (1314, t12 )
SetOemDro (1315, t13 )
SetOemDro (1316, t14 )
SetOemDro (1317, t15 )
SetOemDro (1318, t16 )