Самодельный центроискаткль: процесс изготовления

[aftaev]

Если центроискатель это просто контакты то:
один провод на общий LPT (18-25)
другой на вход LPT и прописать его как Probe и желательно подтянуть его резистором к +5в

Если в центроискателе стоит какая либо схема (а если есть светодиоды то так и есть) то нужно будет скорее всего 3 провода общий, +5в и сигнальный

[Сергей Саныч]

на любой свободный контакт ЛПТ (18-25)

Они не свободные. Они соединены между собой и идут на общий провод (GND).
Термина "заземление" в данном контексте я стараюсь избегать, ибо оно для другого.

контакт ЛПТ (18-25), а сигнал с искателя на IN ЛПТ который в маче сконфигурирован как входящий сигнал - "Probe" ?

В целом, правильно. А питать искатель можно от БП компьютера, взяв 5 вольт с любого USB-разъема.

[putman]

Теперь понятно.
Останется вечером найти на какой пин в LPT присвоено значение "Probe".

[aftaev]

Они не свободные. Они соединены между собой и идут на общий провод (GND).

вот так понятней что с 18 по 25 пины все спаяны

[putman]

aftaev, да, спасибо, это я понял =)

[putman]

Подключил центроискатель.
Питание от БП компьютера.
Сигнал повесил на 10-й пин ЛПТ порта.
В настройках сигнал Probe указал 10-порт, поставил галочку Enabled.
В окне Diagnostics, погас зелёный квадратик (показал стрелкой на фото).

Когда докасаюсь датчиком до прибора, квадратик загорается + загорается Digitize (показал на фото).

Когда отверстие более одного сантиметра, щуп не успевает доехать до края и останавливается, это видно на видео.

https://www.youtube.com/watch?v=Mron1tOjAzw

Когда отверстие менее 7-8 мм, щуп доезжает до стенки и уперефшись не сразу останавливается, а плавно, проехав ещё 2-3 мм, если прикрутить заготовку то отломит. Назад щуп не едет, так и стоит с зелёным диодом пока сам рукой не отодвинешь.

[aftaev]

Сигнал повесил на 10-й пин ЛПТ порта.

на нем обычно Естоп висит

Когда отверстие менее 7-8 мм, щуп доезжает до стенки и уперефшись не сразу останавливается, а плавно, проехав ещё 2-3 мм, если прикрутить заготовку то отломит. Назад щуп не едет, так и стоит с зелёным диодом пока сам рукой не отодвинешь.

скрипт кривой. Покаж скрипт.

[putman]

на нем обычно Естоп висит

Е-стоп на 11 висел когда мне станок привезли.

скрипт кривой. Покаж скрипт.

Код: Выделить всё

'setting X' ищеи центр по оси Х

Dim d As Double' объявляем дрбную переменную
d=1.66' после знака равно задаём диаметр головки щупа которую впоследсвии можно будет корректировать

Code "G04 p0.5" 'пауза 0.5 c
Code "G91" ' переход в относительную систему координат
Code "G31 X1000 F500" ' двигаться по +Х на 1м до касания щупом  
While IsMoving() 
Wend ' дождаться конца движения

Call SetDRO(0,0) ' обнулить данные в окне X
Code "G04 p0.5" ' пауза 0.5 с
Code "G31 X-1000" ' двигаться по -X на 1м до касания щупом
While IsMoving() 
Wend ' дождаться конца движения

Code "G04 p1" ' пауза 1 с
Call SetDRO(0, (GetDRO(0))/2) ' разделить показания окна X на 2

Code "G04 p1" ' пауза 1 с
Code "G90" ' переход в абсолютную систему координат
Code "G04 p1" ' пауза 1 с
Code "G0 X0" ' ускоренное движение до X=0
Code "G91" ' переход в относительную систему координат
While IsMoving() 
Wend ' дождаться конца движения 

'setting Y' ищем центр по оси Y

Code "G04 p0.5" 'пауза 0.5 с
Code "G91" ' переход в относительную систему координат
Code "G31 Y1000 F500"'  движемся по +У на 1м до касания щупом  
While IsMoving() 
Wend' дождаться конца движения

Call SetDRO(1,0)' обнулить данные в окне Y
Code "G04 p0.5"' пауза 0.5 с
Code "G31 Y-1000"' движемся по -У на 1м до касаня щупом
While IsMoving() 
Wend' дождаться конца движения

Code "G04 p1"' пауза 1 с
a = GetDRO(1)-d' прибавляем к пройденноу пути по У диаметр головки щупа, записываем в переменную а
Call SetDRO(1, (GetDRO(1))/2)' разделить показания окна Y на 2


Code "G04 p1"' пауза 1 с
Code "G90"' переход в абсолютную систему координат 
Code "G04 p1"' пауза 1 с
Code "G0 Y0"' ускоренное движение до У=0
Code "G04 p1"' пауза 1 с
Code "G91"' переход в относительную систем координат
Code "G04 p1"' пауза 1 с
While IsMoving() 
Wend' дождаться кнца движения

 'setting X' точная установка нуля по Х

Code "G04 p0.5" 'пауза 0.5 c
Code "G91" ' переход в относительную систему координат
Code "G31 X1000 F500" ' двигаться по +Х на 1м до касания щупом  
While IsMoving() 
Wend ' дождаться конца движения

Call SetDRO(0,0) ' обнулить данные в окне X
Code "G04 p0.5" ' пауза 0.5 с
Code "G31 X-1000" ' двигаться по -X на 1м до касания щупом
While IsMoving() 
Wend ' дождаться конца движения

Code "G04 p1" ' пауза 1 с
b = GetDRO(0)-d'прибавляем к пройденноу пути по Х диаметр головки щупа, записываем в переменную b
Call SetDRO(0, (GetDRO(0))/2) ' разделить показания окна X на 2

Code "G04 p1" ' пауза 1 с
Code "G90" ' переход в абсолютную систему координат
Code "G04 p1" ' пауза 1 с
Code "G0 X0" ' ускоренное движение до X=0
While IsMoving() 
Wend ' дождаться конца движения 

responde = MsgBox ("сторона X =" &b&)'выводим сообщение с длинной по Х
responde = MsgBox ("сторона Y =" &a&)' выводим сообщение с длинной по У    

[aftaev]

при быстром просмотре вроде как правильный скрипт. Возможно у тебя в настройках Мача указаны не сек, а мс
тогда как будет выполняться это Code "G04 p0.5" 'пауза 0.5 c не понятно
Проверь чтобы в настройках Мача стояли сек в паузах (где это не помню полазь по настройкам)

Потом посмотри где в Gcode при выполнении тормозится все.

[putman]

Паузы после остановок вроде правильные, точно не мСек.
Не подскажете, где можно почитать о вижл бейсике для МАЧ ?

[aftaev]

Не подскажете, где можно почитать о вижл бейсике для МАЧ ?

на сайте Мача где то лежит. А он почти как везде (Word. Exel)

[putman]

У меня когда в ручную управляешь перемещениями, отпустив кнопку, моторы не резко стопорятся, а как бы плавно замедляются, около секунды.
Так же и в скрипте, уперевшись в стенку, стол еще проезжает некоторое расстояние медленно замедляясь.
Может быть надо сделать что бы моторы резко останавливались ? только не знаю как.
Еще у меня МАЧ наверное не лицензионный, он был на диске со станком, но более 500 строк не видит, может он так глючить ?
Ещё у меня 13, 14, 16, 17 пины в ЛПТ порте вроде никуда не назначены, может быть их попробовать ?

[aftaev]

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

покаж скринтош настройки моторов

[putman]

покаж скринтош настройки моторов

Вечером покажу, дома станок.

[putman]

На видео Шерлока Холмса, когда датчик упирается в стенку, он сразу немного отъезжает назад.
Покажите где это написано в макросе ?
И что такой за рычащий звук мотора когда щуп упёрт в стенку и горит зелёный светодиод, как будто мотор крутится на одном месте.

https://www.youtube.com/watch?v=zYHxQrB9mHw

[Serg]

И что такой за рычащий звук мотора когда щуп упёрт в стенку и горит зелёный светодиод, как будто мотор крутится на одном месте.

Это он отъезжает на малой скорости до погасания зелёного.

[putman]

Это он отъезжает на малой скорости до погасания зелёного.

Понял, это автоматически делает МАЧ или это в скрипте указано, отъезжать на малой скорости ?

[aftaev]

отъезжать на малой скорости ?

Code "G31 X-1000" ' двигаться по -X на 1м до касания щупом
While IsMoving()
Wend ' дождаться конца движения

Code "G04 p1" ' пауза 1 с
b = GetDRO(0)-d'прибавляем к пройденноу пути по Х диаметр головки щупа, записываем в переменную b
Call SetDRO(0, (GetDRO(0))/2) ' разделить показания окна X на 2

Code "G04 p1" ' пауза 1 с
Code "G90" ' переход в абсолютную систему координат
Code "G04 p1" ' пауза 1 с
Code "G0 X0" ' ускоренное движение до X=0
While IsMoving()

получается отъезжать должен на G0 то есть на максимальных

putman покаж
1. скринтош настоек моторов
2. окна MPG (нажми на клаве ТАВ)

[CNC-Logic]

putman,

Когда щуп центроискателя неотколён(цепь замкнута)-должен светиться красный.
Когда щуп отклонён (цепь размкнута), светится зелёный.

Согласно написанному скрипту, когда щуп касается стенки и цепь рвётся, шаговик сначала останавливаюся, потом начинает двигать щуп в противоположном направлении, до тех пор, пока цепь снова не замкнётся.

Вам нужно проверить настройка МАЧа, какие конкретно сказать трудно невидя станка, но если на вскидку, то:

1) подвигайте станок по каждой из осей в режиме MDI, те значения перемещениы, что вы введёте в окне должны соответствовать тому что пройдёт станок в реале.
Например задайте ему G1 X100 F1000. Место с которого будите стартовать обнулите, чтоб он реально проехал по Х 100мм.

Если с переездом по ВСЕМ осям нормально,то смотрите настройки

1) перемещения в мм(не в коем случае не INCH, дюймы)
2) кол-во шагов на оборот(step per)
3) длительность step pulse, dir pulce (у меня есть один такой контроллер, который докапался до этих величин и глотал шаги)

По поводу ломаного МАЧа пишите мне на мэил, на форуме и в ЛС не обсуждаем.

[putman]

покаж
1. скринтош настоек моторов
2. окна MPG (нажми на клаве ТАВ)

Вот.