Added toolchange command strip for dual-on-single applications.

This commit is contained in:
Joseph Lenox 2017-09-07 22:26:19 -05:00
parent 3e55603c1a
commit 7e018f1d38

View File

@ -0,0 +1,15 @@
#!/usr/bin/perl -i
#
# Remove all toolchange commands (and T# arguments) from gcode.
use strict;
use warnings;
# read stdin and any/all files passed as parameters one line at a time
while (<>) {
if (not /^T[0-9]/) {
s/\s*(T[0-9])//;
print;
} else {
}
}