Assign default material to OBJ files too
This commit is contained in:
parent
25191bd405
commit
9b2445f0f5
1 changed files with 7 additions and 1 deletions
|
@ -1,6 +1,8 @@
|
||||||
package Slic3r::Format::OBJ;
|
package Slic3r::Format::OBJ;
|
||||||
use Moo;
|
use Moo;
|
||||||
|
|
||||||
|
use File::Basename qw(basename);
|
||||||
|
|
||||||
sub read_file {
|
sub read_file {
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
my ($file) = @_;
|
my ($file) = @_;
|
||||||
|
@ -22,8 +24,12 @@ sub read_file {
|
||||||
$mesh->repair;
|
$mesh->repair;
|
||||||
|
|
||||||
my $model = Slic3r::Model->new;
|
my $model = Slic3r::Model->new;
|
||||||
|
|
||||||
|
my $material_id = basename($file);
|
||||||
|
$model->set_material($material_id);
|
||||||
|
|
||||||
my $object = $model->add_object;
|
my $object = $model->add_object;
|
||||||
my $volume = $object->add_volume(mesh => $mesh);
|
my $volume = $object->add_volume(mesh => $mesh, material_id => $material_id);
|
||||||
return $model;
|
return $model;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue