Good evening
I would like some help to modify this "ref all home" macro I use:
Speak (" zero macchina") 'Avviso Vocale
Message "************ ZERO MACCHINA ************"
Sleep (1000) ' pausa di 1 secondi
DoButton(24)
DoButton(23)
DoButton(22)
'DoButton(25)
While IsMoving()
Sleep(100)
Wend
SetParam("XRefPer", GetParam("XRefPer")/15)
SetParam("YRefPer", GetParam("YRefPer")/15)
SetParam("ZRefPer", GetParam("ZRefPer")/15)
'SetParam("ARefPer", GetParam("ARefPer")/15)
DoButton(24)
DoButton(23)
DoButton(22)
'DoButton(25)
While IsMoving()
Sleep(100)
Wend
SetParam("XRefPer", GetParam("XRefPer")*15)
SetParam("YRefPer", GetParam("YRefPer")*15)
SetParam("ZRefPer", GetParam("ZRefPer")*15)
'SetParam("ARefPer", GetParam("ARefPer")*15)
Speak ("zero macchina completato") 'Avviso Vocale
the change I would like to make is the following:
1) the "Z" rises up to the origin
2) the "X and Y" simultaneously up to the origin
I state that I do not understand VB, is it possible to modify it? Is there anyone who can help me?
thank you