3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-07-14 02:07:54 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

When loading an AMF file having multiple objects that look like multiple parts of a single object, prompt user and ask how to consider it. #2970

Browse source 
Conflicts:

	lib/Slic3r/Model.pm
This commit is contained in:
Alessandro Ranellucci 2016-03-19 22:22:11 +01:00
parent dfb1ec99ac
commit dd879c3ef2
4 changed files with 40 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

29
lib/Slic3r/Model.pm
View file

@ -1,6 +1,6 @@
package Slic3r::Model;
use List::Util qw(first max);
use List::Util qw(first max any);
use Slic3r::Geometry qw(X Y Z move_points);
sub read_from_file {
@ -72,6 +72,33 @@ sub print_info {
$_->print_info for @{$self->objects};
}
sub looks_like_multipart_object {
my ($self) = @_;
return 0 if $self->objects_count == 1;
return 0 if any { $_->volumes_count > 1 } @{$self->objects};
return 0 if any { @{$_->config->get_keys} > 1 } @{$self->objects};
my %heights = map { $_ => 1 } map $_->mesh->bounding_box->z_min, map @{$_->volumes}, @{$self->objects};
return scalar(keys %heights) > 1;
}
sub convert_multipart_object {
my ($self) = @_;
my @objects = @{$self->objects};
my $object = $self->add_object(
input_file => $objects[0]->input_file,
);
foreach my $v (map @{$_->volumes}, @objects) {
my $volume = $object->add_volume($v);
$volume->set_name($v->object->name);
}
$object->add_instance($_) for map @{$_->instances}, @objects;
$self->delete_object($_) for reverse 0..($self->objects_count-2);
}
package Slic3r::Model::Material;
sub apply {