cnc-club.ru

Sub Main()
OldTool = GetOEMDRO(1200) 'Tool In spindle DRO You must add this to your settings screen


'----Probe position--------------------------
ChX = 648.6
ChY = -3.1
ChZ = -23
'------------------------




x = GetToolChangeStart( 0 )
y = GetToolChangeStart( 1 )
z = GetToolChangeStart( 2 )
a = GetToolChangeStart( 3 )
b = GetToolChangeStart( 4 )
c = GetToolChangeStart( 5 )
tool = GetSelectedTool()
NewTool = tool

'Tool Changer Macro (Bed Type)
MaxToolNum = 8 'Max number off tools for the changer
ToolDown = -34.72 'Z Pos to Get or drop a tool
ToolUp = -1.0 'Z Hieght to Rapid from tool to tool
If NewTool = OldTool Then
Exit Sub
End If
While NewTool > MaxToolNum
NewTool = Question ("Enter New Tool Number up to " & MaxToolNum)
Wend




Code "G53 G00 Z-1" 'Move the tool all the way up

Code "G53 G00 X" & ChX & "Y" & ChY 'Move to the probe position
Code "G53 Z-15 F600"
While IsMoving()
Wend
Code "G31 F20 Z" & ChZ 'Z move down untill hit
While IsMoving()
Wend
HitOld = GetVar(2002) 'Get the Position that the Porbe hit at
Code "G4 P.5"
Code "G53 G00 Z" & ToolUp

Code "G53 G00 X" & ChX - 15








Call MovePos(OldTool)
While IsMoving()
Wend
Code "G53 Z-32"
Code "G53 G01 f400 Z" & ToolDown
While IsMoving()
Wend
Code "G4 P.2"
ActivateSignal(Output1) 'Turn On Draw bar to release the tool
Code "G4 P.5" 'Wait for the tool to release
Code "G53 G01 Z-32 F400"
Code "G53 G00 Z" & ToolUp
Call MovePos(NewTool)
While IsMoving()
Wend
Code "G53 G00 Z-32"
Code "G53 G01 f400 Z" & ToolDown
While IsMoving()
Wend
Code "G4 P.2"
DeActivateSignal(Output1) 'Turn Off Draw bar to Clamp the tool
Code "G4 P0.5" 'Wait for the tool to Clamp
Code "G53 G01 Z-32 f400"
Code "G53 G00 Z" & ToolUp

Code "G53 G00 X" & ChX - 15
Call SetUserDRO (1200,NewTool)
SetCurrentTool( NewTool )

'=============================================
Code "G53 G00 Y" & ChY 'Move to the probe position
'While IsMoving()
'Wend
Code "G53 G00 X" & ChX 'Move to the probe position
'While IsMoving()
'Wend
Code "G53 Z-15 F600 " 'Z move down untill hit
While IsMoving()
Wend
Code "G31 F20 Z" & ChZ 'Z move down untill hit
While IsMoving()
Wend
HitNew = GetVar(2002) 'Get the Position that the Porbe hit at
Code "G4 P0.5"

Diff = HitOld - HitNew
DiffABS =Abs(Diff)



If DiffABS=0 Then End
ZNew=0
ZOld = Getdro(2)
If HitOld < HitNew Then ZNew = ZOld - DiffABS :A=1
If HitOld > HitNew Then ZNew = ZOld + DiffABS :A=2

Call setdro(2,ZNew)
Code "G53 G00 Z" & ToolUp



'=============================================

Code "G00 X" & x & " Y" & y 'Move back to where the tool change was prompted
'Code "G00 Z" & z 'Move back to where the tool change was prompted


End Sub

Sub MovePos(ByVal ToolNumber As Integer)

Select Case ToolNumber
Case Is = 1
Xpos = 649.3890
YPos = -42.6440
Case Is = 2
Xpos = 649.7064
YPos = -70.0524
Case Is = 3
Xpos = 649.6746
YPos = -98.1590
Case Is = 4
Xpos = 649.7540
YPos = -126.0117
Case Is = 5
Xpos = 649.79
YPos = -153.6899
Case Is = 6
Xpos = 649.9445
YPos = -182.1616
Case Is = 7
Xpos = 650.0238
YPos = -209.6493
Case Is = 8
Xpos = 649.9286
YPos = -237.7559
End Select

Code "G53 Y" & YPos
Code "G53 X" & XPos



End Sub

Main