Hallo Allemaal,
Is er iemand die het (een) script heeft voor Mach 3, metrisch, voor de auto zero functie van X, Y, en Z voor een freesmachine?
Hopelijk heeft iemand het, of kan hij me zeggen waar ik het zou kunnen vinden.
Groeten,
Willem
Auto zero tool script voor Mach 3
Moderator: Moderators
Re: Auto zero tool script voor Mach 3
Hoe stel je je de werking van zo'n script voor?
Vertel eens wat duidelijker wat je precies wil.
Vertel eens wat duidelijker wat je precies wil.
-
- Berichten: 462
- Lid geworden op: 17 mei 2011 16:33
- Locatie: Molenhoek, bij Nijmegen
- Contacteer:
Re: Auto zero tool script voor Mach 3
Ik vond dit nog:
Hessel
///
Hessel
///
Code: Selecteer alles
CurrentFeed = GetOemDRO(818) 'Get the current feedrate to return to later
PlateThickness = GetUserDRO(1151) 'Z-plate thickness DRO
If GetOemLed (825)=0 Then 'Check to see if the probe is already grounded or faulty
DoOEMButton (1010) 'zero the Z axis so the probe move will start from here
Code "G4 P2" ' two second delay
Code "G31 Z-20 F100" 'Z goes down a max of 20mm at 100mm/min
While IsMoving() 'wait while it happens
Wend
ZProbePos = GetVar(2002) 'get the axact point the probe was hit
Code "G0 Z" &ZProbePos 'go back to that point, always a very small amount of overrun
While IsMoving ()
Wend
Call SetDro (2, PlateThickness) 'set the Z axis DRO to whatever is set as plate thickness
Code "G4 P0.25" 'Pause for Dro to update.
Code "G0 Z6.35" 'retract Z to 6.35mm
Code "(Z axis is now zeroed)" 'puts this message in the status bar
Code "F" &CurrentFeed 'Returns to prior feed rate
Else
Code "(Z-Plate is grounded, check connection and try again)" 'this goes in the status bar if aplicable
Exit Sub
End If
Re: Auto zero tool script voor Mach 3
Dat is alleen voor de Z-as, vandaar mijn vraag aan de TS.
-
- Berichten: 462
- Lid geworden op: 17 mei 2011 16:33
- Locatie: Molenhoek, bij Nijmegen
- Contacteer:
Re: Auto zero tool script voor Mach 3
Zou misschien het te modificeren of aan te vullen zijn voor andere assen ?
Hessel
Hessel