Вот.. скриптик один переделал на смену инструмента и автоматической настройки коррекции длинны инструмента, с записью информации в TOOL TABLE... В данном скрипте добавлена толщина подложки..
В ближайшем будущем постараюсь заснять как работает, просто для полного понимания моей идеи нужны колечки фиксирующию на фрезе длину вылета из цанги.. когда обзаведусь такими колечками, обязательно сниму видео
___________________________________________________________
Это записываем в редактирование кнопки auto tool zero:
___________________________________________________________
Dim Message, Title, Default, MyValue
Message = "What Tool will measuring?" ' Set prompt.
Title = "Input number of tool" ' Set title.
Default = "0" ' Set default.
' Display dialog box at position 100, 100.
MyValue = InputBox(Message, Title, Default, 100, 100)
Call SetOEMDRO (824,MyValue) 'set number of tool
Tool_Num = GetDRO (24) 'get tool number
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() 'wait for probe move to finish
Wend
ToolLengh = GetDro(2)
Call setOEMDRO(42, ToolLengh) 'set tool offset to tool table
Call SetDRO(2, 0 )
End If
______________________________
ВНИМАНИЕ!!! 1.5 МЕНЯЕМ НА ВАШУ ТОЛЩИНУ ПЛАСТИНЫ ОТ КОТОРОЙ БАЗИРУЕМСЯ
______________________________
PlateOffset=1.5 'толщина платы мм.
If PlateOffset <> 0 Then
Call SetDro (2, PlateOffset) 'записать в окно Z толщину платы, тем самым откорректировав позицию по Z
Code "G4 P0.25" 'пауза для успешной записи значения в DRO
ZNew = PlateOffset + Zup 'вычислени точки подьема
Code "(Z axis is now zero !)" 'послать сообщение в статус
Call SetOEMDRO (824,MyValue) 'set number of tool
Tool_Num = GetDRO (24) 'get tool number
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() 'wait for probe move to finish
Wend
ToolLengh = GetDro(2)
Call setOEMDRO(42, ToolLengh) 'set tool offset to tool table
Call SetDRO(2, 0 )
End If
______________________________
ВНИМАНИЕ!!! 1.5 МЕНЯЕМ НА ВАШУ ТОЛЩИНУ ПЛАСТИНЫ ОТ КОТОРОЙ БАЗИРУЕМСЯ
ДАННЫЕ КОМЕНТАРИИ СТЕРЕТЬ ВМЕСТЕ С ЛИНИЯМИ
______________________________
PlateOffset=1.5 'толщина платы мм.
If PlateOffset <> 0 Then
Call SetDro (2, PlateOffset) 'записать в окно Z толщину платы, тем самым откорректировав позицию по Z
Code "G4 P0.25" 'пауза для успешной записи значения в DRO
ZNew = PlateOffset + Zup 'вычислени точки подьема
Code "(Z axis is now zero !)" 'послать сообщение в статус
Code "Z3"
End If
Code "G91G28Z0"
End If
__________________________________________________________________________________________________________
РАБОТАЕТ только после второго зануления инструмента, причину так и не понял, будьте аккуратнее.
__________________________________________________________________________________________________________
__________________________________________________________________________________________________________
после открываем скрипт m6 start и меняем содержимое на :
__________________________________________________________________________________________________________
OldTool = GetOEMDRO (1224)
x = GetToolChangeStart( 0 ) 'x
y = GetToolChangeStart( 1 ) 'y '
z = GetToolChangeStart( 2 ) 'z '
Code "G91 G30 G00 Z20"
While IsMoving
Wend
tool = GetSelectedTool()
NewTool = tool
Call SetUserDRO (1224, NewTool)
SetCurrentTool( NewTool)
Code "G43 H" & tool
Dim Msg, Style, Ttle, Help, Ctxt, Response, MyString
Msg = "Please insert Tool Number" & " ( " & GetSelectedTool() & " ) " & " " & GetToolDesc(NewTool)
Style = vbYesNo + vbCrtical + vbDefaultButton2
Style = 0 + 48 + 0
Title = "Tool Change Requested"
Help = "DEMO.HLP"
Ctxt = 1000
Response = MsgBox(Msg, Stile, Title, Help, Ctxt)
If Response = vbOk Then 'User choose Ok
MyString = "Ok"
End If
Message "Tool # " & GetCurrentTool() & " " & GetToolDesc(GetCurrentTool()) & " Installed " & " Returning to Tool Cange start position"
Code "G91 G30 G00 X0" & x & "Y0" & y & "Z0" & z
While IsMoving
Wend
End
____________________________________________________________________
СКРИПТ ПРОСТО ШИКАРНЫЙ... ОСОБЕННО С ПОСТПРОЦЕССОРОМ :
gMilling_Haas_3x В SOLIDCAM ....
ВОТ ТУТ ОБЪЯСНЯЮТ КАК НАСТРАИВАТЬ ПОСТПРОЦЕССОР ...
https://www.youtube.com/watch?v=6iJxlkX ... X8&index=1
https://www.youtube.com/watch?v=Hgbnt8c ... X8&index=3
НАСТРАИВАЕМ ПОЗИЦИЮ СМЕНЫ ИНСТРУМЕНТА В МАЧ3 НАСТРОЙКИ/БАЗЫ\ОГРАНИЧЕНИЯ G28X...Y...Z...
___________________________________________________________________
ТЕПЕРЬ МНЕ СОЛИДКАМ ВЫДАЕТ ВОТ ТАКИЕ ШАПКИ:
G00 G28 G91 Z0 \\МАШИННЫЙ НОЛЬ Z
G00 G28 G91 X0 Y0. \\МАШИННЫЙ НОЛЬ X Y
T5 M06() \\ТУТ ОСТАНАВЛИВАЕТСЯ И ПРЕДЛАГАЕТ ВСТАВИТЬ ДАННЫЙ ИНСТРУМЕНТ
S10000 M03 \\ЗАПУСК ШПИНДЕЛЯ
G00 G17 G54 G90 X197.68 Y45.75 \\ВКЛЮЧАЕМ КОРДИНАТЫ НА G54 И ПЕРЕХОДИМ В G90
G43 H5 Z30. \\ПОДЪЕЗЖАЕМ НА ВЫСОТУ С КОРРЕКЦИЕЙ ИНСТРУМЕНТА
______________________________________________________________________
ВЕСЬМА УДОБНО
______________________________________________________________________
