123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257 |
- package Slic3r::GUI::Plater::ObjectPartsPanel;
- use strict;
- use warnings;
- use utf8;
- use File::Basename qw(basename);
- use Wx qw(:misc :sizer :treectrl :button wxTAB_TRAVERSAL wxSUNKEN_BORDER wxBITMAP_TYPE_PNG);
- use Wx::Event qw(EVT_BUTTON EVT_TREE_ITEM_COLLAPSING EVT_TREE_SEL_CHANGED);
- use base 'Wx::Panel';
- use constant ICON_OBJECT => 0;
- use constant ICON_SOLIDMESH => 1;
- use constant ICON_MODIFIERMESH => 2;
- sub new {
- my $class = shift;
- my ($parent, %params) = @_;
- my $self = $class->SUPER::new($parent, -1, wxDefaultPosition, wxDefaultSize, wxTAB_TRAVERSAL);
-
- my $object = $self->{model_object} = $params{model_object};
-
- # create TreeCtrl
- my $tree = $self->{tree} = Wx::TreeCtrl->new($self, -1, wxDefaultPosition, [300, 100],
- wxTR_NO_BUTTONS | wxSUNKEN_BORDER | wxTR_HAS_VARIABLE_ROW_HEIGHT
- | wxTR_SINGLE | wxTR_NO_BUTTONS);
- {
- $self->{tree_icons} = Wx::ImageList->new(16, 16, 1);
- $tree->AssignImageList($self->{tree_icons});
- $self->{tree_icons}->Add(Wx::Bitmap->new("$Slic3r::var/brick.png", wxBITMAP_TYPE_PNG)); # ICON_OBJECT
- $self->{tree_icons}->Add(Wx::Bitmap->new("$Slic3r::var/package.png", wxBITMAP_TYPE_PNG)); # ICON_SOLIDMESH
- $self->{tree_icons}->Add(Wx::Bitmap->new("$Slic3r::var/plugin.png", wxBITMAP_TYPE_PNG)); # ICON_MODIFIERMESH
-
- my $rootId = $tree->AddRoot("Object", ICON_OBJECT);
- $tree->SetPlData($rootId, { type => 'object' });
- }
-
- # buttons
- $self->{btn_load_part} = Wx::Button->new($self, -1, "Load part…", wxDefaultPosition, wxDefaultSize, wxBU_LEFT);
- $self->{btn_load_modifier} = Wx::Button->new($self, -1, "Load modifier…", wxDefaultPosition, wxDefaultSize, wxBU_LEFT);
- $self->{btn_delete} = Wx::Button->new($self, -1, "Delete part", wxDefaultPosition, wxDefaultSize, wxBU_LEFT);
- if ($Slic3r::GUI::have_button_icons) {
- $self->{btn_load_part}->SetBitmap(Wx::Bitmap->new("$Slic3r::var/brick_add.png", wxBITMAP_TYPE_PNG));
- $self->{btn_load_modifier}->SetBitmap(Wx::Bitmap->new("$Slic3r::var/brick_add.png", wxBITMAP_TYPE_PNG));
- $self->{btn_delete}->SetBitmap(Wx::Bitmap->new("$Slic3r::var/brick_delete.png", wxBITMAP_TYPE_PNG));
- }
-
- # buttons sizer
- my $buttons_sizer = Wx::BoxSizer->new(wxHORIZONTAL);
- $buttons_sizer->Add($self->{btn_load_part}, 0);
- $buttons_sizer->Add($self->{btn_load_modifier}, 0);
- $buttons_sizer->Add($self->{btn_delete}, 0);
- $self->{btn_load_part}->SetFont($Slic3r::GUI::small_font);
- $self->{btn_load_modifier}->SetFont($Slic3r::GUI::small_font);
- $self->{btn_delete}->SetFont($Slic3r::GUI::small_font);
-
- # part settings panel
- $self->{settings_panel} = Slic3r::GUI::Plater::OverrideSettingsPanel->new($self);
- my $settings_sizer = Wx::StaticBoxSizer->new($self->{staticbox} = Wx::StaticBox->new($self, -1, "Part Settings"), wxVERTICAL);
- $settings_sizer->Add($self->{settings_panel}, 1, wxEXPAND | wxALL, 0);
-
- # left pane with tree
- my $left_sizer = Wx::BoxSizer->new(wxVERTICAL);
- $left_sizer->Add($tree, 0, wxEXPAND | wxLEFT | wxRIGHT | wxBOTTOM, 10);
- $left_sizer->Add($buttons_sizer, 0, wxEXPAND | wxLEFT | wxRIGHT | wxBOTTOM, 10);
- $left_sizer->Add($settings_sizer, 1, wxEXPAND | wxALL, 0);
-
- # right pane with preview canvas
- my $canvas;
- if ($Slic3r::GUI::have_OpenGL) {
- $canvas = $self->{canvas} = Slic3r::GUI::PreviewCanvas->new($self, $self->{model_object});
- $canvas->SetSize([500,500]);
- }
-
- $self->{sizer} = Wx::BoxSizer->new(wxHORIZONTAL);
- $self->{sizer}->Add($left_sizer, 0, wxEXPAND | wxALL, 0);
- $self->{sizer}->Add($canvas, 1, wxEXPAND | wxALL, 0) if $canvas;
-
- $self->SetSizer($self->{sizer});
- $self->{sizer}->SetSizeHints($self);
-
- # attach events
- EVT_TREE_ITEM_COLLAPSING($self, $tree, sub {
- my ($self, $event) = @_;
- $event->Veto;
- });
- EVT_TREE_SEL_CHANGED($self, $tree, sub {
- my ($self, $event) = @_;
- $self->selection_changed;
- });
- EVT_BUTTON($self, $self->{btn_load_part}, sub { $self->on_btn_load(0) });
- EVT_BUTTON($self, $self->{btn_load_modifier}, sub { $self->on_btn_load(1) });
- EVT_BUTTON($self, $self->{btn_delete}, \&on_btn_delete);
-
- $self->reload_tree;
-
- return $self;
- }
- sub reload_tree {
- my ($self) = @_;
-
- my $object = $self->{model_object};
- my $tree = $self->{tree};
- my $rootId = $tree->GetRootItem;
-
- $tree->DeleteChildren($rootId);
-
- foreach my $volume_id (0..$#{$object->volumes}) {
- my $volume = $object->volumes->[$volume_id];
-
- my $material_id = $volume->material_id // '_';
- my $material_name = $material_id eq '_'
- ? sprintf("Part #%d", $volume_id+1)
- : $object->model->get_material_name($material_id);
-
- my $icon = $volume->modifier ? ICON_MODIFIERMESH : ICON_SOLIDMESH;
- my $itemId = $tree->AppendItem($rootId, $material_name, $icon);
- $tree->SetPlData($itemId, {
- type => 'volume',
- volume_id => $volume_id,
- });
- }
- $tree->ExpandAll;
-
- $self->selection_changed;
- }
- sub get_selection {
- my ($self) = @_;
-
- my $nodeId = $self->{tree}->GetSelection;
- if ($nodeId->IsOk) {
- return $self->{tree}->GetPlData($nodeId);
- }
- return undef;
- }
- sub selection_changed {
- my ($self) = @_;
-
- # deselect all meshes
- if ($self->{canvas}) {
- $_->{selected} = 0 for @{$self->{canvas}->volumes};
- }
-
- # disable things as if nothing is selected
- $self->{btn_delete}->Disable;
- $self->{settings_panel}->disable;
- $self->{settings_panel}->set_config(undef);
-
- if (my $itemData = $self->get_selection) {
- if ($itemData->{type} eq 'volume') {
- # select volume in 3D preview
- if ($self->{canvas}) {
- $self->{canvas}->volumes->[ $itemData->{volume_id} ]{selected} = 1;
- }
- $self->{btn_delete}->Enable;
-
- # attach volume material config to settings panel
- my $volume = $self->{model_object}->volumes->[ $itemData->{volume_id} ];
- my $material = $self->{model_object}->model->materials->{ $volume->material_id // '_' };
- $material //= $volume->assign_unique_material;
- $self->{staticbox}->SetLabel('Part Settings');
- $self->{settings_panel}->enable;
- $self->{settings_panel}->set_opt_keys(Slic3r::Config::PrintRegion->new->get_keys);
- $self->{settings_panel}->set_config($material->config);
- } elsif ($itemData->{type} eq 'object') {
- # select all object volumes in 3D preview
- if ($self->{canvas}) {
- $_->{selected} = 1 for @{$self->{canvas}->volumes};
- }
-
- # attach object config to settings panel
- $self->{staticbox}->SetLabel('Object Settings');
- $self->{settings_panel}->enable;
- $self->{settings_panel}->set_opt_keys(
- [ map @{$_->get_keys}, Slic3r::Config::PrintObject->new, Slic3r::Config::PrintRegion->new ]
- );
- $self->{settings_panel}->set_config($self->{model_object}->config);
- }
- }
-
- $self->{canvas}->Render if $self->{canvas};
- }
- sub on_btn_load {
- my ($self, $is_modifier) = @_;
-
- my @input_files = Slic3r::GUI::open_model($self);
- foreach my $input_file (@input_files) {
- my $model = eval { Slic3r::Model->read_from_file($input_file) };
- if ($@) {
- Slic3r::GUI::show_error($self, $@);
- next;
- }
-
- foreach my $object (@{$model->objects}) {
- foreach my $volume (@{$object->volumes}) {
- my $new_volume = $self->{model_object}->add_volume($volume);
- $new_volume->modifier($is_modifier);
- if (!defined $new_volume->material_id) {
- my $material_name = basename($input_file);
- $material_name =~ s/\.(stl|obj)$//i;
- $self->{model_object}->model->set_material($material_name);
- $new_volume->material_id($material_name);
- }
- }
- }
- }
-
- $self->reload_tree;
- if ($self->{canvas}) {
- $self->{canvas}->load_object($self->{model_object});
- $self->{canvas}->Render;
- }
- }
- sub on_btn_delete {
- my ($self) = @_;
-
- my $itemData = $self->get_selection;
- if ($itemData && $itemData->{type} eq 'volume') {
- my $volume = $self->{model_object}->volumes->[$itemData->{volume_id}];
-
- # if user is deleting the last solid part, throw error
- if (!$volume->modifier && scalar(grep !$_->modifier, @{$self->{model_object}->volumes}) == 1) {
- Slic3r::GUI::show_error($self, "You can't delete the last solid part from this object.");
- return;
- }
-
- $self->{model_object}->delete_volume($itemData->{volume_id});
- }
-
- $self->reload_tree;
- if ($self->{canvas}) {
- $self->{canvas}->load_object($self->{model_object});
- $self->{canvas}->Render;
- }
- }
- sub CanClose {
- my $self = shift;
-
- return 1; # skip validation for now
-
- # validate options before allowing user to dismiss the dialog
- # the validate method only works on full configs so we have
- # to merge our settings with the default ones
- my $config = Slic3r::Config->merge($self->GetParent->GetParent->GetParent->GetParent->GetParent->config, $self->model_object->config);
- eval {
- $config->validate;
- };
- return 0 if Slic3r::GUI::catch_error($self);
- return 1;
- }
- 1;
|