Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
executable file 55 lines (42 sloc) 1.14 KB
#!/usr/bin/perl
# This script splits a STL plate into individual files
use strict;
use warnings;
BEGIN {
use FindBin;
use lib "$FindBin::Bin/../lib";
}
use File::Basename qw(basename);
use Getopt::Long qw(:config no_auto_abbrev);
use Slic3r;
$|++;
my %opt = ();
{
my %options = (
'help' => sub { usage() },
'ascii' => \$opt{ascii},
);
GetOptions(%options) or usage(1);
$ARGV[0] or usage(1);
}
{
my $mesh = Slic3r::Format::STL->read_file($ARGV[0]);
my $basename = $ARGV[0];
$basename =~ s/\.stl$//i;
my $part_count = 0;
foreach my $new_mesh ($mesh->split_mesh) {
my $output_file = sprintf '%s_%02d.stl', $basename, ++$part_count;
printf "Writing to %s\n", basename($output_file);
Slic3r::Format::STL->write_file($output_file, $new_mesh, !$opt{ascii});
}
}
sub usage {
my ($exit_code) = @_;
print <<"EOF";
Usage: split_stl.pl [ OPTIONS ] file.stl
--help Output this usage screen and exit
--ascii Generate ASCII STL files (default: binary)
EOF
exit ($exit_code || 0);
}
__END__
Something went wrong with that request. Please try again.