Author Topic: edit REF ALL HOME macro  (Read 609 times)

0 Members and 1 Guest are viewing this topic.

Offline birillo1959

  • Active Member
  • Posts: 77
    • View Profile
edit REF ALL HOME macro
« on: August 14, 2018, 01:28:21 PM »
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

Offline TPS

  • Active Member
  • Posts: 1,122
    • View Profile
Re: edit REF ALL HOME macro
« Reply #1 on: August 14, 2018, 01:50:34 PM »
Speak ("  zero   macchina") 'Avviso Vocale
   Message "************   ZERO MACCHINA ************"
   Sleep (1000) ' pausa di 1 secondi
   
   DoButton(24)
   RefCombination(3)
   '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)
   RefCombination(3)
   '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
anything is possible, just try it.
if you find some mistakes, in my bad bavarian english,they are yours.

Offline birillo1959

  • Active Member
  • Posts: 77
    • View Profile
Re: edit REF ALL HOME macro
« Reply #2 on: August 14, 2018, 02:35:10 PM »
the modification works perfectly !!!!
many thanks TPS for all the times you helped me !! ;) ;) ;)