Нужна помощь в скриптах

[kurtkobat]

Здравствуйте камрады.... нужна помощь в правке скрипта...
Есть скрипт с занулением по Z и записью в TOOL TABLE (заколибался его по кусочкам собирать), но в нем косячек, который мне не дает покоя. Он обнуляет любую активную систему координат, а надо чтоб какую нибудь конкретную, либо в G54, либо в G55, либо еще какую нибудь... не знаю как это сделать..

Вот сам скрипт:

Dim Message, Title, Default, MyValue
Message = "Какой инструмент будет измерять?"
Title = "Вставьте данный инструмент"
Default = "0"

' Display dialog box at position 100, 100.
MyValue = InputBox(Message, Title, Default, 100, 100)


Call SetOEMDRO (824,MyValue)
Tool_Num = GetDRO (24)
If Tool_Num <>0 Then
SetParam ("ZRefPer", 100)
DoButton( 24 )
While IsMoving()
Wend
Call setDRO (2, 0)
SetParam ("ZRefPer", 10)
DoButton (24)
While isMoving ()
Wend
Call SetDRO (2,180)

Rem Probe In the z direction
Code "F1000 G31 Z-10000" '&ZNew
While IsMoving()
Wend


ToolLengh = GetDro(2)
Call setOEMDRO(42, ToolLengh)
Call SetDRO(2, 0 )

End If

PlateOffset=1.5


If PlateOffset <> 0 Then
Call SetDro (2, PlateOffset)
Code "G4 P0.25"
ZNew = PlateOffset + Zup

Code "(Z axis is now zero !)"

Call SetOEMDRO (824,MyValue)
Tool_Num = GetDRO (24)
If Tool_Num <>0 Then
SetParam ("ZRefPer", 100)
DoButton( 24 )
While IsMoving()
Wend
Call setDRO (2, 0)
SetParam ("ZRefPer", 10)
DoButton (24)
While isMoving ()
Wend
Call SetDRO (2,180)

Rem Probe In the z direction
Code "F1000 G31 Z-10000" '&ZNew
While IsMoving()
Wend


ToolLengh = GetDro(2)
Call setOEMDRO(42, ToolLengh)
Call SetDRO(2, 0 )

End If

PlateOffset=1.5


If PlateOffset <> 0 Then
Call SetDro (2, PlateOffset)
Code "G4 P0.25"
ZNew = PlateOffset + Zup

Code "(Продолжить работу Cicle Start)"

Code "Z3"
End If

Code "G91G28Z0"
End If

Скрипт повторяется два раза, с первого раза работает некорректно... На станке стоят тиски и поворотная ось... там и там разная высота... к примеру тиски налаживаем в G55, а поворотную ось в G56, а инструмент зануляем в какой нибудь в G54.1P1, а лучше чтоб вообще систему координат не трогало, а просто записывала длину инструмента в TOOL TABLE

[kurtkobat]

Дамсь....

и никто не знает ответа... хорошо хоть сноровка есть и сам придумал... в постпроцессоре к кам программе написал в строке безопасности левую систему координат... и все заработало...

ВСЕМ СПАСИБО

[draalex]

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

На станке стоят тиски и поворотная ось... там и там разная высота... к примеру тиски налаживаем в G55, а поворотную ось в G56, а инструмент зануляем в какой нибудь в G54.1P1, а лучше чтоб вообще систему координат не трогало, а просто записывала длину инструмента в TOOL TABLE

[kurtkobat]

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

На станке стоят тиски и поворотная ось... там и там разная высота... к примеру тиски налаживаем в G55, а поворотную ось в G56, а инструмент зануляем в какой нибудь в G54.1P1, а лучше чтоб вообще систему координат не трогало, а просто записывала длину инструмента в TOOL TABLE

Он сверху написан

[a.skalkin]

Доброго времени суток, форумчане. Прошу помощи в написании скрипта знающих людей, сам в этом не силен.
Задача такова, имеется станок для заточки пил. Необходим скрипт, который будет выводить станок из положения HOME в нужное место, а именно смещение по оси Z для образования переднего угла в зависимости от диаметра пилы и заданного угла, и подъем оси шпинделя на нужную высоту в зависимости от толщины пилы.
Сам не силен в этом, поэтому прошу помощи, возможно вознаграждение.