Machsupport Forum
Mach Discussion => General Mach Discussion => Topic started by: sparky3 on February 11, 2006, 10:20:19 PM
-
doing a little code to zero work z. program works fine when i single step through it but when i run it from a button, not so good. here is the
here is the code.
feed = getdro(18)
if suchsignal(22) then
code "g31 z-7 f35" 'seek the sensor fast
while ismoving()
wend
sensor = getoemdro(85) 'get machine z position
pull back = sensor +.1 'add .1 to machine z
code "g53 g01 z" & pullback 'move z upto clear sensor
while ismoving()
wend
nextmove = getoemdro(85) ' get new machine z position
move = nextmove - .11 ' set up for next machine move
code "f1"
code "g31 z" & move ' slow sensor seek
while ismoving()
wend
ofst = getoemdro(1001) ' get sensor height
call setdro(2, ofst) ' set work z dro to sensor height
code "f" & feed ' reset feed rate
end if
end
ok here is the problem i have. when i step through the script using the editor i works great, just like i wanted it to.
this line "call setdro(2, ofst) sets the work dro to sensor height ,then from the mdi line i can type in g01 z0 and it will move the tool down to top of part.
when i run it from the auto zero button it won't set dro 2 to the right offset.
any ideas
thanks rob
-
I made a few changes to your code and I think it should fix you up... My test mill is down so I can't test it here:(
To get the PROBE data you need to do a GetVar(2000) = X 2001 = Y 2002 = Z
Hope that helps
Brian
feed = getdro(18)
if suchsignal(22) then
code "g31 z-7 f35" 'seek the sensor fast
while ismoving()
wend
sensor = getvar(1002) ' getoemdro(85) 'get machine z position //check this line
pull back = sensor +.1 'add .1 to machine z
code "g53 g01 z" & pullback 'move z upto clear sensor
while ismoving()
wend
nextmove = getoemdro(85) ' get new machine z position
move = nextmove - .11 ' set up for next machine move
code "f1"
code "g31 z" & move ' slow sensor seek
while ismoving()
wend
ofst = getoemdro(1001) ' get sensor height
code"G4P.2" 'Pause to let Mach3 update //Added a line here
call setdro(2, ofst) ' set work z dro to sensor height
code "f" & feed ' reset feed rate
end if
end
-
when i put in the line
sensor = getvar(2002)
i get no value what so ever when i step through that kine of code.
and i still have the problem of not geting the right data into DRO(2)
most the time it puts in 1.6********* and oemdro(1001) is set to 1.7055
even if i take out the
ofst = getoemdro(1001) and just put in
call setdro(2,1.7055) it still wont work.
this is where my problem lies the program is working other than setting the dro to sensor height so that i can
take enter a g01 z0 and move my axis to top of part. the program works great when i step through it.
-
sorry first line should read is
sensor = getvar(1002) not (2002)
had a typo while reposting and could not edit
-
Try adding a few G4's to the program. This can give some time for the dro's to update (only need a few micro sec).
ofst = getoemdro(2002)
code "g4 p.5" '<-- add this line and test it
While ismoving()
wend
call setdro(2,1.7055)
-
thank you Brian the g4's them selves did not do any thing but the while wend statement after them did.
id there a pause statement or wait statement in the vb script. i could not find any thing in the cypress pdf. unless
i over looked it.
any ways thank's again.
Rob
-
GREAT!!!
Happy codeing :)