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

Assign default material to OBJ files too

Browse source
This commit is contained in:
Alessandro Ranellucci 2014-03-25 15:39:13 +01:00
parent 25191bd405
commit 9b2445f0f5
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/Slic3r/Format/OBJ.pm
View file

@ -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;
} }