Post-processing script
Posted by PierreYves.Pepin
|
Re: Post-processing script April 10, 2014 01:34AM |
If you install Perl a script could look like this:
Remove the extra spaces in the 'foreach' line.
I'm not sure you can do it with native Windows tools, as regular expressions isn't all that common in the Microsoft world, back in the days with NT, "Jscript" had an engine for regular expressions, but it wasn't really a plessant feeling to work with.
Edited 1 time(s). Last edit at 04/10/2014 01:34AM by Ralf.
open(GCODE, $ARGV[0]) or die("Could not open file.");
foreach $line (< GCODE > ) {
chomp($line);
$line =~ s/^G1.*E-.*$/M42 P4 S0/;
$line =~ s/^(G1 E0.01000.*)$/\1\nM42 P4 S255/;
print "$line\n";
}
close(GCODE);
Remove the extra spaces in the 'foreach' line.
I'm not sure you can do it with native Windows tools, as regular expressions isn't all that common in the Microsoft world, back in the days with NT, "Jscript" had an engine for regular expressions, but it wasn't really a plessant feeling to work with.
Edited 1 time(s). Last edit at 04/10/2014 01:34AM by Ralf.
|
Re: Post-processing script April 24, 2014 09:22AM |
Hey guys, here is an update. I am now able to run the scripts via Perl (cmd box) with these commands (see image below). Once it runs the script, my gcode file is now modified with the added command lines.
The problem is that I still can't post-process my gcodes automatically with Slic3r. The path to the post-processing script is good and the script itself is also good (working via cmd box). Repetier says that it runs the script but no changes are made to my gcode....
Here is the script :
Can someone figure out what my problem is?
Edited 3 time(s). Last edit at 04/24/2014 09:24AM by PierreYves.Pepin.
The problem is that I still can't post-process my gcodes automatically with Slic3r. The path to the post-processing script is good and the script itself is also good (working via cmd box). Repetier says that it runs the script but no changes are made to my gcode....
Here is the script :
#!/usr/bin/perl -i.before_postproc
#
# Author : Guy Poizat
# Version : 1.2
# Copyright : none.
#
# Change from previous version : added handling of slic3r's retraction speed setting,
# so that this script is not disrupted by a setting change.
use strict;
use warnings;
# what will replace a retraction line with : gcode to cut the laser power off.
my $powerOffLine = "M42 P4 S0\n";
# what will replace an "unretraction" line with : gcode to switch the laser power on.
my $powerOnLine = "M42 P4 S255\n";
# Extract the speed setting from slic3r's environment variables (or use the default 30mm/s).
# Unit is millimeters per minute in gcode, millimeters per second in slic3r configuration.
my $defaultRetractSpeed = 1800;
my $envRetractSpeed = $ENV{"SLIC3R_RETRACT_SPEED"};
my $retractSpeed = defined( $envRetractSpeed ) ? $envRetractSpeed * 60 : $defaultRetractSpeed;
# pattern of a retraction line - would make the filament back-off before a non printing move
# on a FDM 3d printer, to avoid ooze.
my $retractLine = "G1 F$retractSpeed.* E";
# pattern of an unretraction line - would make the filament forward back to its position before starting extruding again.
my $unretractLine = "G1 E.* F$retractSpeed";
# read stdin and any/all files passed as parameters one line at a time
while (< > ) {
if (/$retractLine/) {
# if we found a retraction line, replace it with laser power off
print "$powerOffLine";
}
else {
# nothing to change, print line as-is
print or die $!;
}
if (/$unretractLine/) {
# if we have an un-retraction line, append laser power on right after it
print "$powerOnLine";
}
}
Can someone figure out what my problem is?
Edited 3 time(s). Last edit at 04/24/2014 09:24AM by PierreYves.Pepin.
Sorry, only registered users may post in this forum.