Независимый Ювелирный Форум

можно, только за чем? если он уже написан и есть в любом скринсете стрижа?

_________________
---------------
"Cтриж"

Есть у кого нибудь этот скрипт? Искать нужно в проводящем материале...Думал вручную как то поправить скрипт который ищет нули Y-Z при повороте на 90 градусов, но запутался в нем...

в предпоследней вкладке Settings ALT6 скрипт базирования в датчике устроен по старому, кто начинал с самых первых стрижей знает, принятие баз по осям XY раньше было вручную, люди путались и Леонид переделал всё автоматом и убрал лишние кнопки.
Так вот, заходите в эту вкладку "заранее подвели шпиндель в месту" нажимаете на кнопку "0", произойдет касание по 4-м сторонам отверстия и фреза остановится ровно в центре отверстия.

Дальше обнулите координаты.
Надеюсь не стоит рассказывать как сделать.

P.S.
перед этим можете сделать тренировку над датчиком, опустите чтобы фреза стояла 1-2мм до дна датчика.

_________________
---------------
"Cтриж"

У меня к сожалению не "Стриж", то есть вы предлагаете сделать поиск баз в самом отверстии Flipа ? И запомнить координаты по Х, потом сделать поиск баз обычным способом и вбить найденные ранее координаты в Х ?
Прилагаю мой скрин...

если у Вас не скринсет стрижа, я тут не подскажу.
а так, есть скрипт, он выполнит поиск центра, по выполнении остановиться ровно в центре отверстия,, далее можно обнулить координаты по нужным осям.

_________________
---------------
"Cтриж"

Не могли бы вы выложить содержимое скрипта, хотя бы скриншотом?

вот, кнопка "0" и есть этот скрипт

_________________
---------------
"Cтриж"

Попробую, отпишу. Благодарю!

Попробовал как Вы советовали, установил Флип, завел внутрь щуп и нажал кнопку 0. Так как скрипт опускает щуп до поверхности датчика нуля, я снизу поставил пластину, так как отверстие в котором ищем середину, сквозное. После завершения скрипта, щуп установился в середину и подкинул координаты из Fixtures, теперь получается что найденная мной позиция, Позиция смены инструмента. Как мне запомнить эту точку и вернуть настоящие координаты датчика нуля?

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

Rem VBScript To center probe inside a pipe

If GetOemLed (825) Or GetOemLed (16) Or GetOemLed (23) <> 0 Then 'Check to see if the probe is already grounded or faulty
Code "(Probe plate is grounded, check connection and try again)"
Else
FeedCurrent = GetOemDRO(818) 'Get the current settings
XCurrent = GetDro(0)
YCurrent = GetDro(1)

Code "F25"
ZNew = GetDro(2) - 10
Code "G31Z" &ZNew
While IsMoving()
Wend
DoButton( 24 )
Code "g0g53z1"


Code "m3 s3000"
Code "G4 P0.01" 'Pause 0.5 second to give time to position probe plate


Rem Probe Left

XNew = Xcurrent - 15 'probe 15mm to left
Code "G31 X" &XNew
While IsMoving() 'wait for the move to finish
Wend
XPos1 = GetVar(2000) 'get the probe touch location

Code "G0 X" &XCurrent 'rapid move back to start point

Rem Probe Right

XNew = XCurrent + 15 'probe 15mm to right
Code "G31 X" &XNew
While IsMoving()
Wend
XPos2 = GetVar(2000)

XCenter = (XPos1 + XPos2) / 2 'center is midway between XPos1 and XPos2
Code "G0 X" &XCenter 'rapid move to the x center location

Rem Probe up

YNew = YCurrent + 15
Code "G31 Y" &YNew
While IsMoving()
Wend
YPos1 = GetVar(2001)

Code "G0 Y" &YCurrent

Rem Probe down

YNew = YCurrent - 15
Code "G31 Y" &YNew
While IsMoving()
Wend
YPos2 = GetVar(2001)

YCenter = (YPos1 + YPos2) / 2

Rem move To the center

Code "G0 Y" &YCenter
While IsMoving ()
Wend
Code "F" &FeedCurrent
Code "m05" 'restore starting feed rate
DoOEMButton(119)
DoButton( 23 )
DoButton( 22 )
Code "G0g53 Z50"

End If

Подправить можно всё, документация ищется в гугле.
Яб смотрел куда-то сюда
Code "G31Z" &ZNew

но не факт, лучше бы разобрать построчно, что он там делает (что такое dro2 в частности и g31).

Почитайте в документации про т.н. "машинные координаты", думается станет полегче.

_________________
хороший боцман любой обмер совершает веслом.