forum.cncdrive.com

MACRO B VARS MACROLOOP for UCCNC

This is just my interpretation of what may be useful from the Fanuc Macro B variables (vars) which also follow Mach3/4 {YMMV}

My intention is to use it with Macro wizards to keep track of and reset the machine back to the original machine and work co-ordinates (allows you to use G92 and also G91 for the wizard gcode and go back to the same machine and work co-ordinates, spindle speed {if you need or are using it} or feedrate, rotation etc should you change it.

Word of CAUTION.... it will ONLY work with the current development release which incorporates exec.Modalcodes and makes it easier (IMO) to extract the modal modes than using

Code: Select all

AS3.Getfield(877); // Field 877: Activemodal;

As per discussed here
viewtopic.php?f=11&t=1734

It WILL throw an error if you run it on anything prior to the current development release (2.108).... but hey that's where all the new + good stuff is at the cutting edge of the release

Code: Select all

// MACRO B VARS MACROLOOP for UCCNC
// 12/01/2019
//Robertspark


double Rx, Ry, RAngle; // Rotation coordinates

while(loop)
{
   if (AS3.Getbuttonstate(144)) // if machine is in reset no point in trying to update the variables
   {
      Thread.Sleep(50);
   }
   else // MACHINE NOT IN RESET / E-STOP, UPDATE VALUES.
   {
   
   if (!exec.IsMoving())  // no point updating on the fly as the frontend does not actually know where the machine tool actually is because of the comms buffer, and macroloop timing.  These values are not updated in macroB during motion either.
      {
         exec.Code("#5021=" + exec.GetXmachpos() ); // Machine (ABS) X coordinate
         exec.Code("#5022=" + exec.GetYmachpos() ); // Machine (ABS) Y coordinate
         exec.Code("#5023=" + exec.GetZmachpos() ); // Machine (ABS) Z coordinate
         exec.Code("#5024=" + exec.GetAmachpos() ); // Machine (ABS) A coordinate
         exec.Code("#5025=" + exec.GetBmachpos() ); // Machine (ABS) B coordinate
         exec.Code("#5026=" + exec.GetCmachpos() ); // Machine (ABS) C Ccoordinate

         exec.Code("#5041=" + exec.GetXpos() ); // Work X coordinate
         exec.Code("#5042=" + exec.GetYpos() ); // Work Y coordinate
         exec.Code("#5043=" + exec.GetZpos() ); // Work Z coordinate
         exec.Code("#5044=" + exec.GetApos() ); // Work A coordinate
         exec.Code("#5045=" + exec.GetBpos() ); // Work B coordinate
         exec.Code("#5046=" + exec.GetCpos() ); // Work C Ccoordinate
      }

      exec.Code("#4109=" + AS3.Getfield(867) ); // Set FeedRate {F CODE}
      exec.Code("#4119=" + AS3.Getfield(869) ); // Set SpindleRate {S CODE}
      
      //exec.Code("#4113=" + AS3.Getfield(867) ); // Set FeedRate {M CODE}
      exec.Code("#4114=" + exec.Getcurrgcodelinetext()); // Sequence Number (LINE) {N CODE}
      //exec.Code("#4114=" + AS3.Getfield(869) ); // Program Number {O CODE}
      
      
      exec.Code("#4001=" + exec.Modalcodes[1] ); // Modal Group 1 - MOTION
      exec.Code("#4002=" + exec.Modalcodes[2] ); // Modal Group 2 - PLANE SELECTION
      exec.Code("#4003=" + exec.Modalcodes[3] ); // Modal Group 3 - DISTANCE MODE
      exec.Code("#4005=" + exec.Modalcodes[5] ); // Modal Group 5 - FEEDRATE MODE
      exec.Code("#4007=" + exec.Modalcodes[7] ); // Modal Group 7 - CUTTER DIA COMP MODE
      exec.Code("#4008=" + exec.Modalcodes[8] ); // Modal Group 8 - TOOL LEN OFFSET
      exec.Code("#4010=" + exec.Modalcodes[10] ); // Modal Group 10 - CANNED CYCLE RTN
      exec.Code("#4012=" + exec.Modalcodes[12] ); // Modal Group 12 - WORK COORDS
      exec.Code("#4013=" + exec.Modalcodes[13] ); // Modal Group 13 - CONTROL MODE
      exec.Code("#4016=" + exec.Modalcodes[16] ); // Modal Group 16 - SCALE
      exec.Code("#4017=" + exec.Modalcodes[17] ); // Modal Group 17 - COORD ROTATION

      // ODD BALL {NON MACRO B} ONES
      exec.Code("#4209=" + AS3.Getfield(232) ); // FeedRate Over-Ride
      exec.Code("#4219=" + AS3.Getfield(233) ); // SpindleRate Over-Ride

      exec.GetRotate(out Rx, out Ry, out RAngle); // returns values into the defined variables Rx, Ry and Angle

      exec.Code("#4400=" + Rx ); // Current  Rotation Co-ordinate Centre Rx
      exec.Code("#4401=" + Ry ); // Current  Rotation Co-ordinate Centre Ry
      exec.Code("#4402=" + RAngle ); // Current  Rotation Angle

      Thread.Sleep(50);
   }
}


Revised + added to the Macroloop a little......

Tip: exec.Code() is not recommended for a macroloop.... IMO

Code: Select all

// MACRO B VARS MACROLOOP for UCCNC
// 13/01/2019
//Robertspark

string strFRO;
string strSSO;
char[] charsToTrim = { '%', ' ' };

while(loop)
{
   if (AS3.Getbuttonstate(144)) // if machine is in reset no point in trying to update the variables
   {
      Thread.Sleep(50);
   }
   else // MACHINE NOT IN RESET / E-STOP, UPDATE VALUES.
   {
   
   if (!exec.IsMoving())  // no point updating on the fly as the frontend does not actually know where the machine tool actually is because of the comms buffer, and macroloop timing.  These values are not updated in macroB during motion either.
      {
         exec.Setvar(exec.GetXmachpos() , 5021); // Machine (ABS) X coordinate
         exec.Setvar(exec.GetYmachpos() , 5022); // Machine (ABS) Y coordinate
         exec.Setvar(exec.GetZmachpos() , 5023); // Machine (ABS) Z coordinate
         exec.Setvar(exec.GetAmachpos() , 5024); // Machine (ABS) A coordinate
         exec.Setvar(exec.GetBmachpos() , 5025); // Machine (ABS) B coordinate
         exec.Setvar(exec.GetCmachpos() , 5026); // Machine (ABS) C Ccoordinate

         exec.Setvar(exec.Wx , 5041); // Work X coordinate
         exec.Setvar(exec.Wy , 5042); // Work Y coordinate
         exec.Setvar(exec.Wz , 5043); // Work Z coordinate
         exec.Setvar(exec.Wa , 5044); // Work A coordinate
         exec.Setvar(exec.Wb , 5045); // Work B coordinate
         exec.Setvar(exec.Wc , 5046); // Work C Ccoordinate
      }

      exec.Setvar(Convert.ToDouble(AS3.Getfield(867)) , 4109); // Set FeedRate {F CODE}
      exec.Setvar(Convert.ToDouble(AS3.Getfield(869)) , 4119); // Set SpindleRate {S CODE}
      
      //exec.Code("#4113=" + AS3.Getfield(867) ); // Set FeedRate {M CODE}
      exec.Setvar(Convert.ToDouble(exec.Getcurrgcodelinetext()) , 4114); // Sequence Number (LINE) {N CODE}
      //exec.Code("#4114=" + AS3.Getfield(869) ); // Program Number {O CODE}
      exec.Setvar(Convert.ToDouble(exec.Getcurrenttool()) , 4120); // Tool Number  {T CODE}
      
      exec.Setvar(exec.Modalcodes[1] , 4001); // Modal Group 1 - MOTION
      exec.Setvar(exec.Modalcodes[2] , 4002); // Modal Group 2 - PLANE SELECTION
      exec.Setvar(exec.Modalcodes[3] , 4003); // Modal Group 3 - DISTANCE MODE
      exec.Setvar(exec.Modalcodes[5] , 4005); // Modal Group 5 - FEEDRATE MODE
      exec.Setvar(exec.Modalcodes[7] , 4007); // Modal Group 7 - CUTTER DIA COMP MODE
      exec.Setvar(exec.Modalcodes[8] , 4008); // Modal Group 8 - TOOL LEN OFFSET
      exec.Setvar(exec.Modalcodes[10] , 4010); // Modal Group 10 - CANNED CYCLE RTN
      exec.Setvar(exec.Modalcodes[12] , 4012); // Modal Group 12 - WORK COORDS
      exec.Setvar(exec.Modalcodes[13] , 4013); // Modal Group 13 - CONTROL MODE
      exec.Setvar(exec.Modalcodes[16] , 4016); // Modal Group 16 - SCALE
      exec.Setvar(exec.Modalcodes[17] , 4017); // Modal Group 17 - COORD ROTATION
            
      // ODD BALL {NON MACRO B} ONES
      strFRO = AS3.Getfield(232);// FeedRate Over-Ride   
      strFRO  = strFRO.TrimEnd(charsToTrim);      
      exec.Setvar(Convert.ToDouble(strFRO), 4209 ); // FeedRate Over-Ride
      strSSO = AS3.Getfield(233);  // SpindleRate Over-Ride
      strSSO  = strSSO.TrimEnd(charsToTrim);
      exec.Setvar(Convert.ToDouble(strSSO), 4219 ); // SpindleRate Over-Ride
      exec.Setvar(Convert.ToDouble(AS3.Getfield(169)) , 4220 ); // Tool Length
      
      //exec.Setvar(Convert.ToDouble(AS3.Getfield(2500 + exec.Getcurrenttool())) , 4221 ); // Tool Dia      

      exec.Setvar(exec.rotX, 4400); // Current  Rotation Co-ordinate Centre Rx
      exec.Setvar(exec.rotY, 4401); // Current  Rotation Co-ordinate Centre Ry
      exec.Setvar(exec.rotAngle, 4402); // Current  Rotation Angle
      exec.Setvar(exec.scaleX, 4411); // Current X Axis Scale
      exec.Setvar(exec.scaleY, 4412); // Current Y Axis Scale      
      exec.Setvar(exec.scaleZ, 4413); // Current Z Axis Scale      
      exec.Setvar(exec.scaleA, 4414); // Current A Axis Scale
      exec.Setvar(exec.scaleB, 4415); // Current B Axis Scale
      exec.Setvar(exec.scaleC, 4416); // Current C Axis Scale      
       
      //exec.Setvar(exec.scaleX, 4411); // void Setvar (double value, int varnum)
      
      Thread.Sleep(50);
   }
}

Hi Rob,

Did you mean

Code: Select all

      exec.Setvar(Convert.ToDouble(exec.Getcurrentgcodelinenumber()) , 4114); // Sequence Number (LINE) {N CODE}


instead of

Code: Select all

      exec.Setvar(Convert.ToDouble(exec.Getcurrgcodelinetext()) , 4114); // Sequence Number (LINE) {N CODE}


Thanks for reviewing, not sure, I'll have a look later this evening

(I didn't think I was going to use the N-code or O-code in wizards to reset back to the original values after the wizard has run.... I just put it in because it sort of populated the rest of the #41xx vars. as much as I could from the standard UCCNC exec.fields and or exec.variables )
https://www.cnczone.com/forums/attachme ... 992.attach)

The main ones to use were the machine + work co-ordinates + modal groups...... the stuff you may change if you are doing one thing with a wizard and may want to use G91, G41/G42, G51, G68 etc