MACH3. Переезд в центр.

[Zoidberg]

Всем привет! Подскажите, как в программе screen designer добавить кнопку для MACH3? Нужно следующее. Коснулись заготовки по X+, обнулились, коснулись по X-, получили некий размер. И что бы не делить на калькуляторе и не долбить пальцами по клаве, а просто щелкнуть мышкой по ЭТОЙ САМОЙ КНОПКЕ и получит результат. И возможно ли такое? Поискал по темам - ничего не нашёл.

[aftaev]

Поискал по темам - ничего не нашёл.

В мастерах искал?

[Zoidberg]

Не, не смотрел. Надо глянуть.

[Zoidberg]

Еще раз всем привет! Как ни стыдно признавать, но я так и не смог сочинить скрипт для переезда инструмента в центр размера. По этому повторяю вопрос! Подскажите, как в
программе screen designer
добавить кнопку для MACH3?
Нужно следующее. Коснулись
заготовки по X+, обнулились,
коснулись по X-, получили некий
размер. И что бы не делить на
калькуляторе и не долбить
пальцами по клаве, а просто
щелкнуть мышкой по ЭТОЙ САМОЙ
КНОПКЕ и получит результат. И
возможно ли такое? Поискал по
темам - ничего не нашёл.
Мне нужен только скрипт, как добавлять кнопки я уже знаю.
Всем откликнувшимся заранее спасибо!

[aftaev]

Мне нужен только скрипт, как добавлять кнопки я уже знаю.

1. Идешь сюды http://www.cnc-club.ru/forum/viewtopic.php?f=16&t=2650
2. Скачиваешь скринсет
3. Открываешь его в программе screen designer
4. Находишь там кнопку "поиск центра"
5. Слизываешь скрипт

[Zoidberg]

Спасибо за оперативность и за подсказку!! Сейчас попробую.

[Zoidberg]

Еще раз огромное СПАСИБО Aftaev! Заработало!!!
Может кому пригодится, оставлю в теме.

Rem VBScript To center probe inside a pipe
If GetOemLed (825) <> 0 Then 'Check to see if the probe is already grounded Or faulty
Else
FeedCurrent = GetOemDRO(818) 'Get the current settings
XCurrent = GetDro(0)
XPos1 = GetVar(2000) 'get the probe touch location
XPos2 = XCurrent
XCenter = (XPos1 + XPos2) / 2 'center is midway between XPos1 and XPos2
Code "G0 X" &XCenter 'rapid move to the x center
Code "F" &FeedCurrent 'restore starting feed rate
End If

[Zoidberg]

Отредактировано... Это для оси "X"

Для оси "Y" X поменять на Y

Rem
If GetOemLed(825)<>0Then
Else
FeedCurrent=GetOemDro(818)
XCurrent=GetDro(0)
Xpos1=0
Xpos2=XCurrent
XCenter=(Xpos1+Xpos2)/2
Code "F1000"
Code"G01 X" &XCenter
Code "F" &FeedCurrent
End If