cnc-club.ru

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

code "G31 Z-15 F200"
While IsMoving()
Wend
Call SetDRO( 2, 19.4 )
code "G0 Z5 g91"
While IsMoving()
Wend
Code "G90"
Message( "Done" )

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

'Rem	Probe Down by Blue sky tec.
FeedCurrent = GetOemDRO(818) 	'Get the current settings
ZCurrent = GetDro(2)
Code "G4 P1"			'Pause 1 second to give time to position probe plate
Code "F50"			'slow feed rate to 20 MM/MIN
GageH = GetOEMDRO (1002)
Rem	Probe Down by Blue sky tec.
FeedCurrent = GetOemDRO(818) 	'Get the current settings
ZCurrent = GetOemDro(802)
Code "G4 P1"			'Pause 1 second to give time to position probe plate
Code "F50"			'slow feed rate to 20 MM/MIN
'GageH = GetUserDRO(1152)
GageH = Abs(GetOEMDRO(1001))
ZNew = ZCurrent - 30		'probe down 30mm 
Code "G31 Z" &ZNew
While IsMoving()
Wend
Call SetDro (2,GageH)
FinalMove = GageH * 1
Code  "G0 Z" &FinalMove
Code  "G0 Z" &30
Code "F" &FeedCurrent  		'restore starting    

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

Rem	VBScript To probe In the z axis

DoOemButton(1003)

If GetOemLed (825) <> 0 Then 		'Check to see if the probe is already grounded or faulty
	Code "(Z-Plate is grounded, check connection and try again)" 'this goes in the status bar if aplicable
Else
	'Code "G4 P1"				'Pause 1 seconds to give time to position probe plate
	Sleep 100
	PlateOffset = 1.4				'<--- !!!!!!!!!!!!!! Write here you plate thickness !!!!!!!!!!!!!! РАЗМЕР ПЛАСТИНЫ!
	CurrentFeed = GetOemDRO(818) 	'Get the current feedrate to return to later
	Code "F100"					'slow down feedrate to 4 ipm
	Sleep 100

Rem	Probe In the z direction
	ZNew = GetDro(2) - 50			'probe move to current z - 50 mm
	Code "G31Z" &ZNew
	While IsMoving()				'wait for probe move to finish
	Wend

	'ZNew = GetVar(2002) 			'read the touch point
	'Code "G0 Z" &ZNew 			'move back to hit point incase there was overshoot
	'While IsMoving ()
	'Wend

	If PlateOffset <> 0 Then
		Call SetDro (2, PlateOffset)	'set the Z axis DRO to  plate thickness
		'Code "G4 P1" 			'Pause for Dro to update.
		Sleep 500
		ZNew = PlateOffset + 2		'ZNew = plate thickness + 2 mm
		Sleep 100
		'ZNew = 2				' as variant. But ZNew coordinate should be more than a thickness of a plate
		Code "G0 Z" &ZNew 		'put the Z retract height you want here
		Code "(Z axis is now zeroed)" 	'puts this message in the status bar
	End If

	Sleep 100
	Code "F" &CurrentFeed 		'Returns to prior feed rate
End If