Hello Guest it is October 18, 2019, 10:56:50 AM

Author Topic: Probe Script  (Read 19832 times)

0 Members and 1 Guest are viewing this topic.

Re: Probe Script
« Reply #10 on: May 21, 2015, 06:57:15 AM »
Thanks TPS.

but i tried the below and get script error.

Code "G31 F"&Feed & " X"&NegMove
Kenneth

Offline TPS

*
  •  1,389 1,389
    • View Profile
Re: Probe Script
« Reply #11 on: May 21, 2015, 07:02:33 AM »
your code:
Code "G31 F"&Feed & " X"&NegMove
my code:
Code "G31 F" & Feed & " X" & NegMove

i never figured out when you have to make spaces and when not, so i do them allways.
« Last Edit: May 21, 2015, 07:09:44 AM by TPS »
anything is possible, just try it.
if you find some mistakes, in my bad bavarian english,they are yours.
Re: Probe Script
« Reply #12 on: May 21, 2015, 07:13:09 AM »
Thanks Daniell and TPS. this is what i got and works !
didn't know about spaces. Thanks TPS

'probing = XY ID
'probe dia. = tapered till tip - - tip .104"
NegMove = -10
PosMove = 10
Feed = 6
Code "G31 F" & Feed & " X" & NegMove           'X axis
While IsMoving()
Wend
SetOEMDRO(800,0)
Code "G00 X.2"
While IsMoving()
Wend
Code "G31 F" & Feed & " X" & PosMove
While IsMoving()
Wend
Xdro = GetOEMDRO(800)
SetOEMDRO(800,Xdro/2)
While IsMoving()
Wend
Code "G00 X0"
While IsMoving()
Wend                                    
Code "G31 F" & Feed & " Y" & NegMove          'Y axis
While IsMoving()
Wend
SetOEMDRO(801,0)
Code "G00 Y.2"
While IsMoving()
Wend
Code "G31 F" & Feed & " Y" & PosMove
While IsMoving()
Wend
Ydro = GetOEMDRO(801)
SetOEMDRO(801,Ydro/2)
Code "G00 Y0"
End
Kenneth