cnc-club.ru

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

'All Home:
If GetOemLed (800)=0 Then
Const Coordinates_Machine_ABS_X = 83
Const Coordinates_Machine_ABS_Y = 84
Const Coordinates_Machine_ABS_Z = 85
Const Coordinates_Machine_ABS_A = 86
Const Home_Reference_X = 1022
Const Home_Reference_Y = 1023
Const Home_Reference_Z = 1024
Const Home_Reference_A = 1025
'--------------------------------------	
If GetOEMDRO (Coordinates_Machine_ABS_Z) > 0 Then	
Code "G53 G0 Z-3"
While IsMoving()
Wend 
End If	
If GetOEMDRO (Coordinates_Machine_ABS_Y) > 0 Then	
Code "G53 G0 Y-3"
While IsMoving()
Wend 
End If
If GetOEMDRO (Coordinates_Machine_ABS_X) > 0 Then	
Code "G53 G0 X-3"
While IsMoving()
Wend 	
End If
If GetOEMDRO (Coordinates_Machine_ABS_A) > 0 Then	
Code "G53 G0 A-3"
While IsMoving()
Wend 		
End If
'--------------------------------------				
If GetOEMLED (830)=0 Then
	If GetOEMLED (833)=0 Then
		If GetOEMLED (836)=0 Then
			If GetOEMLED (839)=0 Then				
				'--------------------------------------				
				DoOEMButton (Home_Reference_Z)
				While IsMoving()
				Wend				
				Code "G53 G0 Z0"
				'--------------------------------------
				DoOEMButton (Home_Reference_Y)
				While IsMoving()
				Wend					
				Code "G53 G0 y0"
				'--------------------------------------					
				DoOEMButton (Home_Reference_X)
				While IsMoving()
				Wend					
				Code "G53 G0 x0"
				'--------------------------------------									
				DoOEMButton (Home_Reference_A)
				While IsMoving()
				Wend
				Code "G53 G0 A0"					
			Else
				Message "Sensor 'Home A' is active"
			End If
		Else
			Message "Sensor 'Home Z' is active"
		End If
	Else
		Message "Sensor 'Home Y' is active"
	End If		
   Else
	Message "Sensor 'Home X' is active"
   End If
Else
	Sleep (500)
End If