cnc-club.ru

Код: Выделить всё

Sub Main()
ZATS1= -183.3
XATS1= 144
XATS2= 347.2
XATS3= 292
ZATS2= -181.7
ZATS7= -182.7
ZATS3= -112
ZATS4= -50
ZATS5= -184
OldTool = GetDro(24)
Tool = GetSelectedTool()
If Tool = OldTool Then
Exit Sub
End If
NewTool = 0
tb1 = GetOEMDRO(1303)
If Tool = tb1 Then  NewTool = 1

tb2 = GetOEMDRO(1304)
If Tool = tb2 Then  NewTool = 2

tb3 = GetOEMDRO(1305)
If Tool = tb3 Then  NewTool = 3

tb4 = GetOEMDRO(1306)
If Tool = tb4 Then  NewTool = 4

tb5 = GetOEMDRO(1307)
If Tool = tb5 Then  NewTool = 5

tb6 = GetOEMDRO(1308)
If Tool = tb6 Then  NewTool = 6

tb7 = GetOEMDRO(1309)
If Tool = tb7 Then  NewTool = 7
tb8 = GetOEMDRO(1310)
If Tool = tb8 Then  NewTool = 8

tb9 = GetOEMDRO(1311)
If Tool = tb9 Then  NewTool = 9

tb10 = GetOEMDRO(1312)
If Tool = tb10 Then  NewTool = 10

tb11 = GetOEMDRO(1313)
If Tool = tb11 Then  NewTool = 11

tb12 = GetOEMDRO(1314)
If Tool = tb12 Then  NewTool = 12

tb13 = GetOEMDRO(1315)
If Tool = tb13 Then  NewTool = 13

tb14 = GetOEMDRO(1316)
If Tool = tb14 Then  NewTool = 14

tb15 = GetOEMDRO(1317)
If Tool = tb15 Then  NewTool = 15

tb16 = GetOEMDRO(1318)
If Tool = tb16 Then  NewTool = 16

While NewTool =0
MsgBox ("ATC ERROR: no tool")
DoButton(3)
Exit Sub
Wend
SetUserDRO (1200,NewTool)
ZCurrent = GetDro(2)
Sleep 300



Code "G0 G53 X" & XATS1
While IsMoving()
Wend
Sleep 300

ActivateSignal(OUTPUT11)
Sleep 4000
If GetOemLed (822) = 0 Then 
MsgBox ("ATC ERROR: dor no open")
DoButton(3)
Exit Sub
Else

ZATS0 = GetOEMDRO(85)
If ZATS1 < ZATS0 Then
ZATS777 =  ZATS0+5
Code "G0 G53 Z" & ZATS777
While IsMoving()
Wend
Else
Code "G0 G53 Z" & ZATS1
While IsMoving()
Wend
End If



Code "G0 G53 X" & XATS3
While IsMoving()
Wend
Sleep 50
Code "G0 G53 Z" & ZATS1
While IsMoving()
Wend
Sleep 50

Code "G1 G53  F1500 X" & XATS2
While IsMoving()
Wend
Sleep 300
ActivateSignal(OUTPUT10)
Sleep 150
If GetOemLed (821) = 0 Then 
MsgBox ("ATC ERROR: tool grip is not open")
DoButton(3)
Exit Sub
Else

Code "G0 G53 Z" & ZATS7
While IsMoving()
Wend

Sleep 500
Code "G0 G53 Z" & ZATS2
While IsMoving()
Wend



Code "G0 G53 Z" & ZATS3
While IsMoving()
Wend

Code "G0 B" & NewTool
While IsMoving()
Wend

Code "G0 G53 Z" & ZATS5
While IsMoving()
Wend
Sleep 300

DeActivateSignal(OUTPUT10)
Sleep 50


If GetOemLed (821) = 1 Then 
MsgBox ("ATC ERROR: tool is not captured ")
DoButton(3)
Exit Sub
Else

Code "G0 G53 X" & XATS3
While IsMoving()
Wend
Sleep 50
SetCurrentTool( Tool )
Sleep 100
Code "G43 H " & Tool
Sleep 300
ZCurrent2 = GetDro(2)

If ZCurrent < ZCurrent2 Then
ZCurrent =  ZCurrent2+2
Else

Code "G0 Z" & ZCurrent
While IsMoving()
Wend

Sleep 50
Code "G0 G53 X" & XATS1
While IsMoving()
Wend
Sleep 50

DeActivateSignal(OUTPUT11)
Sleep 4000
If GetOemLed (823) = 0 Then 
MsgBox ("ATC ERROR: door not closed")
DoButton(3)
Exit Sub
Else

SetCurrentTool( Tool )
Sleep 100
Code "G43 H " & Tool
Code "G0 Z" & ZCurrent
While IsMoving()
Wend


End If
End If
End If
End If
End If
End Sub