3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-11-02 20:51:23 -07:00
Code Issues Projects Releases Packages Wiki Activity Actions 4

Fixed split_stl.pl

Browse source
This commit is contained in:
Alessandro Ranellucci 2014-08-03 16:00:37 +02:00
parent 30fa055995
commit 5902c65014
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
utils/split_stl.pl
View file

@ -30,11 +30,16 @@ my %opt = ();
$basename =~ s/\.stl$//i; $basename =~ s/\.stl$//i;
my $part_count = 0; my $part_count = 0;
foreach my $new_mesh ($model->mesh->split_mesh) { my $mesh = $model->objects->[0]->volumes->[0]->mesh;
foreach my $new_mesh (@{$mesh->split}) {
$new_mesh->repair;
my $new_model = Slic3r::Model->new; my $new_model = Slic3r::Model->new;
$new_model $new_model
->add_object(vertices => $new_mesh->vertices) ->add_object()
->add_volume(facets => $new_mesh->facets); ->add_volume(mesh => $new_mesh);
$new_model->add_default_instances;
my $output_file = sprintf '%s_%02d.stl', $basename, ++$part_count; my $output_file = sprintf '%s_%02d.stl', $basename, ++$part_count;
printf "Writing to %s\n", basename($output_file); printf "Writing to %s\n", basename($output_file);