@ww1g16
That's a good thing to have, but I thought, we'd have to home XY at once for a CoreXY?
Another thing is the 'backoff' move. Shouldn't you increase the motorcurrent first, to make sure this move doesn't cause an error?
Why do you abort the macro? Instead increase motorcurrent on every iteration, until it is high enough.

@spoonunit
Nice work. I'm looking forward to trying some of this out.

I run some fairly large production runs on my printers.

Thank you for sharing this.

@OwenD said in Macro for "automatic" calibration of BL Touch:

;Calibrate BL Touch

Fair enough.
Given that you need to be in front of the machine to set zero, that didn't raise as a concern as I wouldn't expect the nozzle to remain at zero at the end of homeall.g , but that scenario can easily be catered for by moving the check that the head is at or above dive height to before the move to the center of the bed.

;Calibrate BL Touch ; Reprap firmware version 3.3b2 or later required! ; if two speed probing is configured in M558,we probably want to reduce the speed for this test var ProbeSpeedHigh = sensors.probes[0].speeds[0]*60 ; Speeds are saved in mm/sec in the object model but M558 uses mm/min var ProbeSpeedLow = sensors.probes[0].speeds[1]*60 M558 F60 ; reduce probe speed to 60mm/min for accuracy - adjust F parameter as required ;define some variables to store readings var NumTests=10 ; modify this value to define number of tests ; Do not change below this line var RunningTotal=0 var Average=0 var Lowest=0 var Highest=0 ; If the printer hasn't been homed, home it if !move.axes[0].homed || !move.axes[1].homed || !move.axes[2].homed G28 else G1 Z{sensors.probes[0].diveHeight} F360 ; if axes homed move to dive height M561 ; clear any bed transform M290 R0 S0 ; clear babystepping ;ensure you have room for the probe if move.axes[2].machinePosition < sensors.probes[0].diveHeight G1 Z{sensors.probes[0].diveHeight} ; move nozzle to centre of bed G1 X{(move.axes[0].min + move.axes[0].max)/2} Y{(move.axes[1].min + move.axes[1].max)/2} M564 S0 H0 ; Allow movement beyond limits M280 P0 S160 I1 ; reset BL Touch G4 S0.5 M98 P"0:/sys/retractprobe.g" ; Ensure probe is retracted & reset G4 S0.5 M561 ; clear any bed transform ; Jog head to position M291 P"Jog nozzle to touch bed" R"Set nozzle to zero" S3 Z1 G92 Z0 ; set Z position to zero M291 P"Press OK to begin" R"Ready?" S3; ; Move probe over top of same point that nozzle was when zero was set G1 Z{sensors.probes[0].diveHeight}; lift head G1 X{move.axes[0].machinePosition - sensors.probes[0].offsets[0]} Y{move.axes[1].machinePosition - sensors.probes[0].offsets[1]} F1800 echo "Current probe offset = " ^ sensors.probes[0].triggerHeight ^ "mm" ; carry out 10 probes (or what is set in NumTests variable) while iterations < var.NumTests G1 Z{sensors.probes[0].diveHeight} ; move to dive height if sensors.probes[0].value[0]=1000 ; if probe is in error state echo "Probe in error state- resetting" M280 P0 S160 I1 ; reset BL Touch G4 S0.5 M98 P"0:/sys/retractprobe.g" ; Ensure probe is retracted & reset G4 S0.5 G30 S-1 M118 P2 S{"Test # " ^ (iterations+1) ^ " Triggered @ " ^ move.axes[2].machinePosition ^ "mm"} ; send trigger height to Paneldue console M118 P3 S{"Test # " ^ (iterations+1) ^ " Triggered @ " ^ move.axes[2].machinePosition ^ "mm"} ; send trigger height to DWC console if iterations == 0 set var.Lowest={move.axes[2].machinePosition} ; set the new lowest reading to first probe height set var.Highest={move.axes[2].machinePosition} ; set the new highest reading to first probe height if move.axes[2].machinePosition < var.Lowest set var.Lowest={move.axes[2].machinePosition} ; set the new lowest reading ;M118 P3 S{"new low reading = " ^ move.axes[2].machinePosition} ; send trigger height to DWC console G4 S0.3 if move.axes[2].machinePosition > var.Highest set var.Highest={move.axes[2].machinePosition} ; set the new highest reading ;M118 P3 S{"new high reading = " ^ move.axes[2].machinePosition} ; send trigger height to DWC console G4 S0.3 set var.RunningTotal={var.RunningTotal + move.axes[2].machinePosition} ; set new running total ;M118 P3 S{"running total = " ^ var.RunningTotal} ; send running total to DWC console G4 S0.5 set var.Average = {(var.RunningTotal - var.Highest - var.Lowest) / (var.NumTests - 2)} ; calculate the average after discarding th ehigh & low reading ;M118 P3 S{"running total = " ^ var.RunningTotal} ; send running total to DWC console ;M118 P3 S{"low reading = " ^ var.Lowest} ; send low reading to DWC console ;M118 P3 S{"high reading = " ^ var.Highest} ; send high reading to DWC console M118 P2 S{"Average excluding high and low reading = " ^ var.Average} ; send average to PanelDue console M118 P3 S{"Average excluding high and low reading = " ^ var.Average} ; send average to DWC console G31 P500 Z{var.Average} ; set Z probe offset to the average reading M564 S0 H1 ; Reset limits M558 F{var.ProbeSpeedHigh}:{var.ProbeSpeedLow} ; reset probe speed to original G1 Z{sensors.probes[0].diveHeight} F360 ; move head back to dive height M291 P{"Trigger height set to : " ^ sensors.probes[0].triggerHeight ^ " OK to save to config-overide.g, cancel to use until next restart"} R"Finished" S3 M500 P31 ; optionally save result to config-overide.g

@droftarts
Feel free
I can send the text and images tomorrow if it helps.

There are no array variables yet, and no vector variables. Here are some ideas:

You could pack several integer variables into a single integer variable, but take care not to exceed 2^31-1. You could create 9 axes in total, then use the offsets of each axis in one or more of the workplace coordinate systems as 9-element arrays

@fcwilt Thanks Frederick!

This is the latest version - most likely won't change until variables are enabled in the firmware.

💡Use the included Macros for filament handling.
To make filament loading, unloading, and changing the most straightforward and simplistic possible evolution, I have made a macro set that is readily accessible from the PanelDue. To take full advantage of the duet filament system you will need to make the system filaments PLA, PETG, ABS, and PC. This will allow you to have custom instructions for each different filament, by adding such to the filament's config.g file. !Note: Based on my current macro version, it is required that each filament's load.g and unload.g remain empty. Placing code into these files will make these macro fail.
"Set Filament Type" asks what type filament you are going to use; PLA, PETg, ABS, or PC. Based on the selection, this macro rewrites the "Heat Nozzle" macro to heat the nozzle for the selected filament type. !Note: This macro only has to be executed once for the given filament type change as it's settings are nonvolatile, regardless of reset or power off. !Note: The script will not let you change the filament type while filament is loaded.
"Filament Handling" is for any filament unloading, loading, and changing regardless of the printer's state, printing or not. This macro will load, unload, and change filament based on two conditions; whether it detects filament is currently loaded or not, and if a print is in progress or not. !Note: The logic function in the macro retrieves the current status of the filament sensor to base the perceived desired action to enact. If your printer's filament is currently empty and you intend to load filament, please do not place it into the extruder until requested to do so by the macro. Else the macro will determine that filament is loaded and that you desire to unload filament, instead of load.
"Heat Nozzle" is created by the "Set Filament Type" macro and can be selected to heat the hotend to the set temperature for the last chosen filament type. You do not need to run this to change filament, the "Filament Handling" macro automatically runs this macro to perform the heating of the hotend to carry out the filament handling, whether it be loading, unloading, or changing.

/macros /macros/Filament Handling ; 0:/macros/Filament Handling ; Macro used for all filament handling evolutions if state.status != "processing" ; Printer is not currently printing! if sensors.filamentMonitors[0].filamentPresent = true ; Filament is detected, currently loaded M291 P"Press OK to begin filament UNLOADING, else press CANCEL to exit." R"Filament Handling" S3 M98 P"0:/macros/Heat Nozzle" ; Heat nozzle to predetermined temp M291 P"Ready for filament unloading. Gently pull filament and press OK." R"Filament Handling" S2 M291 P"Retracting filament..." T5 ; Display another message G1 E-150 F5000 ; Retract filament M400 ; Wait for the moves to finish T0 M702 ; Select tool 0, set filament is unloaded M104 S-273 ; Turn off hotend M140 S-273 ; Turn off heatbed M98 P"0:/macros/Filament Handling"; run again ; Now that filament is unloaded, lets ask to load filament else M291 P"Press OK to begin filament LOADING, else press CANCEL to exit." R"Filament Handling" S3 M98 P"0:/macros/Heat Nozzle" ; Heat nozzle to predetermined temp M291 P"Ready for filament loading. Insert filament and press OK." R"Filament Handling" S2 M291 P"Feeding filament..." T5 ; Display new message G1 E150 F450 ; Feed 150mm of filament at 600mm/min G1 E20 F100 ; Feed 20mm of filament at 100mm/min G4 P1000 ; Wait one second G1 E-1 F1800 ; Retract 10mm of filament at 1800mm/min M400 ; Wait for moves to complete M98 P"0:/sys/filaset" ; Set system filament type M400 ; Wait for moves to complete M104 S-273 ; Turn off hotend M140 S-273 ; Turn off heatbed else M291 P"Press OK to begin filament CHANGE, else press CANCEL to exit." R"Filament Handling" S3 M98 P"0:/sys/filament-change.g" ; Call filament-change.g M24 ; Start/resume SD print /macros/Heat Nozzle ; 0:/macros/Heat Nozzle ; Heat nozzle to set temp M291 R"Filament Handling" P"Heating nozzle for PETg, please wait." S0 T10 T0 ; Select Tool 0 M109 S230 ; set temp to 230c and wait /macros/Set Filament Type ; 0:/macros/Set Filament Type ; Macro used to set system's loaded filament type if sensors.filamentMonitors[0].filamentPresent = false ; if filament is loaded then reject action to change filament type M291 P{"System filament is currently set to " ^ move.extruders[0].filament ^ ". Press OK to change filament type, else press CANCEL to exit."} R"Filament Handling" S3 ; Set PLA temp M28 "0:/macros/Heat Nozzle" ; Begin writing to SD card file M291 R"Filament Handling" P"Heating nozzle for PLA, please wait." S0 T10 T0 ; Activate Hotend M109 S200 ; set temp to 200c and wait M29 ; Stop writing to SD card M28 "0:/sys/filaset" ; Begin writing to SD card file T0 M702 ; Set system filament as UNLOADED T0 M701 S"PLA" ; Set system filament as PLA M29 ; Stop writing to SD card M291 S3 R"Filament Handling" P"Filament type currently set to PLA. Press cancel to save this selection or OK to proceed to next filament type." ; Set PETg temp M28 "0:/macros/Heat Nozzle" ; Begin writing to SD card file M291 R"Filament Handling" P"Heating nozzle for PETg, please wait." S0 T10 T0 ; Activate Hotend M109 S230 ; set temp to 230c and wait M29 ; Stop writing to SD card M28 "0:/sys/filaset" ; Begin writing to SD card file T0 M702 ; Set system filament as UNLOADED T0 M701 S"PETG" ; Set system filament as PETG M29 ; Stop writing to SD card M291 S3 R"Filament Handling" P"Filament type currently set to PETg. Press cancel to save this selection or OK to proceed to next filament type." ; Set ABS temp M28 "0:/macros/Heat Nozzle" ; Begin writing to SD card file M291 R"Filament Handling" P"Heating nozzle for ABS, please wait." S0 T10 T0 ; Activate Hotend M109 S250 ; set temp to 250c and wait M29 ; Stop writing to SD card M28 "0:/sys/filaset" ; Begin writing to SD card file T0 M702 ; Set system filament as UNLOADED T0 M701 S"ABS" ; Set system filament as ABS M29 ; Stop writing to SD card M291 S3 R"Filament Handling" P"Filament type currently set to ABS. Press cancel to save this selection or OK to proceed to next filament type." ; Set PC temp M28 "0:/macros/Heat Nozzle" ; Begin writing to SD card file M291 R"Filament Handling" P"Heating nozzle for PC, please wait." S0 T10 T0 ; Activate Hotend M109 S270 ; set temp to 270c and wait M29 ; Stop writing to SD card M28 "0:/sys/filaset" ; Begin writing to SD card file T0 M702 ; Set system filament as UNLOADED T0 M701 S"PC" ; Set system filament as PC M29 ; Stop writing to SD card M291 S3 R"Filament Handling" P"Filament type currently set to PC. Press cancel to save this selection or OK to proceed to next filament type." else M291 S3 R"Filament Handling" P"Filament is currently loaded. Please unload filament before changing filament type."

filament.pdf