Скрипт поиска ноля заготовки командой Probe, методом касания инструментом контактной пластины расположенной на заготовке.
(АВТОРОМ НЕ ЯВЛЯЮСЬ ИНФОРМАЦИЯ ВЗЯТА С ДРУГОГО ФОРУМА)
При помощи данного скрипта и куска фольгированного стеклотекстолита подключенного к свободному входу интерфейсной платы можно добавить станку такую полезную функцию как коррекция длинны инструмента. Вход на интерфейсной плате должен обязательно иметь опторазвязку, потому как контактным датчиком будет являться фреза и все «левые» потенциалы, которые будут присутствовать на станке и контактная пластина (фольгированный текстолит) или другое изолированное от массы станка устройство с токопроводящей поверхностью подключенной к входу Probe.
Rem VBScript Для корректировки длинны инструмента
'STEPMOTOR [14.11.2011]
'Скрипт работает в метрической системе координат
PlateOffset=2.33 'толщина платы мм.
Zup=50 'Расстояние на которое отойдет фреза после коррекции
MaxZPlus=250 'максимальный ход станка по оси Z мм.
Sleep 100 'Пауза 0,1 сек.
CurrentFeed = GetOemDRO(818) 'Запомнить текущюю скорость, для того чтобы восстановить после коррекции.
Code "F300" 'Задать скорость подачи до касания инструментом
ZNew = GetDro(2) - MaxZPlus 'опустить инструмент до касания
Code "G31Z" &ZNew
While IsMoving() 'Подождать пока произойдет касание платы.
Wend
ZNew = GetVar(2002) 'читать точку касания
Code "G0 Z" &ZNew + 3 'отьехать вверх на 3мм от точки касания
While IsMoving ()
Wend
Code "F50" 'замедлить подачу до 50мм\мин
ZNew = GetDro(2) - 6
Code "G31Z" &ZNew 'опустить инструмент до касания
While IsMoving() 'Подождать пока произойдет касание платы.
Wend
If PlateOffset <> 0 Then
Call SetDro (2, PlateOffset) 'записать в окно Z толщину платы, тем самым откорректировав позицию по Z
Code "G4 P0.25" 'пауза для успешной записи значения в DRO
ZNew = PlateOffset + Zup 'вычислени точки подьема
Code "G0 Z" &ZNew 'поднять на высоту отхода после коррекции
While IsMoving ()
Wend
Code "(Z axis is now zero !)" 'послать сообщение в статус
End If
Code "F" &CurrentFeed 'Возвращаем установленное значение подачи
Sleep 100
Если запускать автоматически то придется дописать скрипт чтобы отправлять станок в определенные координаты где находится датчик.
Чтобы запускать скрипт по M команде потребуется создать файл M43.m1s в папке C:\Mach3\macros\ваш профиль\
открыть его в блокноте и скопировать в него скрипт.