Обнуление по оси Z (Страница 1 из 2)

Поделитесь пожалуйста макросом если управляющая програмка MACH3

Спасибо за идею буду пробовать

Кнопку подключить можно параллельно концевикам, тогда при замыкании контактов сработает защита. Настроить еще программу Мач для надежности!

Я сделал себе датчик длины инструмента из фольгированного текстолита. Серьезной точности ожидать не стоит, но думаю для фрезеровки рельефов вполне сгодится. А может кто-нибудь подсказать какие кнопки или выключатели позволяют сделать датчик с наиболее точной повторяемостью?

Я обычно использую макрос для установки Z:

Rem    VBScript To probe In the z axis

DoOemButton(1003)

If GetOemLed (825) <> 0 Then         'Check to see if the probe is already grounded or faulty
    Code "(Z-Plate is grounded, check connection and try again)" 'this goes in the status bar if aplicable
Else
    'Code "G4 P1"                'Pause 1 seconds to give time to position probe plate
    Sleep 100
    PlateOffset = 20                '<--- !!!!!!!!!!!!!! Write here you plate thickness !!!!!!!!!!!!!!
    CurrentFeed = GetOemDRO(818)     'Get the current feedrate to return to later
    Code "F100"                    'slow down feedrate to 4 ipm
    Sleep 100

Rem    Probe In the z direction
    ZNew = GetDro(2) - 50            'probe move to current z - 50 mm
    Code "G31Z" &ZNew
    While IsMoving()                'wait for probe move to finish
    Wend

    'ZNew = GetVar(2002)             'read the touch point
    'Code "G0 Z" &ZNew             'move back to hit point incase there was overshoot
    'While IsMoving ()
    'Wend

    If PlateOffset <> 0 Then
        Call SetDro (2, PlateOffset)    'set the Z axis DRO to  plate thickness
        'Code "G4 P1"             'Pause for Dro to update.
        Sleep 500
        ZNew = PlateOffset + 2        'ZNew = plate thickness + 2 mm
        Sleep 100
        'ZNew = 2                ' as variant. But ZNew coordinate should be more than a thickness of a plate
        Code "G0 Z" &ZNew         'put the Z retract height you want here
        Code "(Z axis is now zeroed)"     'puts this message in the status bar
    End If

    Sleep 100
    Code "F" &CurrentFeed         'Returns to prior feed rate
End If                         

Толщина датчика 20 мм при наезде на датчик откатывается на 2 мм и запоминается в программе 22 мм от уровня стола
передвижение до датчика можно производить шагами по 50 мм или забить свою величину .

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

Вопрос - а куда подключать эту кнопку???

Инструкции по этой плате ни где нет. ((((

Есть, пишите.

Подскажите выход на концевики через опторазвязку на такой плате?

где находится кнопка AVTO ТООL ZERO
станок 707-7

Господа, вы меня простите, а такой датчик вам религия использовать не позволяет???
Простейшая опторазвязка на PC817 - и плата жива , и LPT не спалили!!! И дребезга контактов нет, и поправочный размер для MACH3 знаете. Стоит он - копейки, не хотите покупать - брусок металла точно найти можно и его размер измерить.

Добавлено: 2017-02-17 23:45:07

Схема подключения нужна?? В соседней ветке описывалось как подключать и скрипт

Проблема решаема заменой концевиков.
А вот какой Вам выбрать нормально-замкнутый или нормально-разомкнутый, разницы нет, в Матче все-равно можно поставить галочку - какой он "замкнутый" NPN или PNP.