Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

executable file 183 lines (151 sloc) 7.757 kB
#!/usr/bin/perl
use strict;
use warnings;
BEGIN {
use FindBin;
use lib "$FindBin::Bin/lib";
}
use Getopt::Long;
use Slic3r;
use XXX;
$|++;
my %opt = ();
my %cli_options = ();
{
my %options = (
'help' => sub { usage() },
'debug' => \$Slic3r::debug,
'o|output=s' => \$opt{output},
'close-after-slicing' => \$opt{close_after_slicing},
'save=s' => \$opt{save},
'load=s' => \$opt{load},
);
foreach my $opt_key (keys %$Slic3r::Config::Options) {
my $opt = $Slic3r::Config::Options->{$opt_key};
$options{ $opt->{cli} } = \$cli_options{$opt_key}
if $opt->{cli};
}
GetOptions(%options) or usage(1);
}
# load configuration
if ($opt{load}) {
-e $opt{load} or die "Cannot find specified configuration file.\n";
Slic3r::Config->load($opt{load});
}
# validate command line options
Slic3r::Config->validate_cli(\%cli_options);
# apply command line options
Slic3r::Config->set($_ => $cli_options{$_})
for grep defined $cli_options{$_}, keys %cli_options;
# validate configuration
Slic3r::Config->validate;
# save configuration
Slic3r::Config->save($opt{save}) if $opt{save};
# start GUI
if (!@ARGV && !$opt{save} && eval "require Slic3r::GUI; 1") {
Slic3r::GUI->new->MainLoop;
exit;
}
if ($ARGV[0]) {
# skein
my $input_file = $ARGV[0];
my $skein = Slic3r::Skein->new(
input_file => $input_file,
output_file => $opt{output},
);
$skein->go;
} else {
usage(1) unless $opt{save};
}
sub usage {
my ($exit_code) = @_;
print <<"EOF";
Slic3r $Slic3r::VERSION is a STL-to-GCODE translator for RepRap 3D printers
written by Alessandro Ranellucci <aar\@cpan.org> - http://slic3r.org/
Usage: slic3r.pl [ OPTIONS ] file.stl
--help Output this usage screen and exit
--save <file> Save configuration to the specified file
--load <file> Load configuration from the specified file
-o, --output File to output gcode to (default: <inputfile>.gcode)
Printer options:
--nozzle-diameter Diameter of nozzle in mm (default: $Slic3r::nozzle_diameter)
--print-center Coordinates of the point to center the print around
(default: $Slic3r::print_center->[0],$Slic3r::print_center->[1])
--use-relative-e-distances
Use relative distances for extrusion in GCODE output
--extrusion-axis The axis used for extrusion; leave empty to disable extrusion
(default: $Slic3r::extrusion_axis)
--z-offset Additional height in mm to add to vertical coordinates
(+/-, default: $Slic3r::z_offset)
--gcode-arcs Use G2/G3 commands for native arcs (experimental, not supported
by all firmwares)
--g0 Use G0 commands for retraction (experimenta, not supported by all
firmwares)
Filament options:
--filament-diameter Diameter in mm of your raw filament (default: $Slic3r::filament_diameter)
--extrusion-multiplier
Change this to alter the amount of plastic extruded. There should be
very little need to change this value, which is only useful to
compensate for filament packing (default: $Slic3r::extrusion_multiplier)
--temperature Extrusion temperature, set 0 to disable (default: $Slic3r::temperature)
Speed options:
--travel-speed Speed of non-print moves in mm/sec (default: $Slic3r::travel_speed)
--perimeter-speed Speed of print moves for perimeters in mm/sec (default: $Slic3r::perimeter_speed)
--small-perimeter-speed
Speed of print moves for small perimeters in mm/sec (default: $Slic3r::small_perimeter_speed)
--infill-speed Speed of print moves in mm/sec (default: $Slic3r::infill_speed)
--solid-infill-speed Speed of print moves for solid surfaces in mm/sec (default: $Slic3r::solid_infill_speed)
--bridge-speed Speed of bridge print moves in mm/sec (default: $Slic3r::bridge_speed)
--bottom-layer-speed-ratio
Factor to increase/decrease speeds on bottom
layer by (default: $Slic3r::bottom_layer_speed_ratio)
Accuracy options:
--layer-height Layer height in mm (default: $Slic3r::layer_height)
--first-layer-height-ratio
Multiplication factor for the height to slice and print the first
layer with (> 0, default: $Slic3r::first_layer_height_ratio)
--infill-every-layers
Infill every N layers (default: $Slic3r::infill_every_layers)
--extrusion-width-ratio
Calculate the extrusion width as the layer height multiplied by
this value (> 0, default: calculated automatically)
--bridge-flow-ratio Multiplier for extrusion when bridging (> 0, default: $Slic3r::bridge_flow_ratio)
Print options:
--perimeters Number of perimeters/horizontal skins (range: 1+,
default: $Slic3r::perimeters)
--solid-layers Number of solid layers to do for top/bottom surfaces
(range: 1+, default: $Slic3r::solid_layers)
--fill-density Infill density (range: 0-1, default: $Slic3r::fill_density)
--fill-angle Infill angle in degrees (range: 0-90, default: $Slic3r::fill_angle)
--fill-pattern Pattern to use to fill non-solid layers (default: $Slic3r::fill_pattern)
--solid-fill-pattern Pattern to use to fill solid layers (default: $Slic3r::solid_fill_pattern)
--start-gcode Load initial gcode from the supplied file. This will overwrite
the default command (home all axes [G28]).
--end-gcode Load final gcode from the supplied file. This will overwrite
the default commands (turn off temperature [M104 S0],
home X axis [G28 X], disable motors [M84]).
Retraction options:
--retract-length Length of retraction in mm when pausing extrusion
(default: $Slic3r::retract_length)
--retract-speed Speed for retraction in mm/sec (default: $Slic3r::retract_speed)
--retract-restart-extra
Additional amount of filament in mm to push after
compensating retraction (default: $Slic3r::retract_restart_extra)
--retract-before-travel
Only retract before travel moves of this length (default: $Slic3r::retract_before_travel)
--retract-lift Lift Z by the given distance in mm when retracting (default: $Slic3r::retract_lift)
Skirt options:
--skirts Number of skirts to draw (default: $Slic3r::skirts)
--skirt-distance Distance in mm between innermost skirt and object
(default: $Slic3r::skirt_distance)
--skirt-height Height of skirts to draw (expressed in layers, default: $Slic3r::skirt_height)
Transform options:
--scale Factor for scaling input object (default: $Slic3r::scale)
--rotate Rotation angle in degrees (0-360, default: $Slic3r::rotate)
--duplicate-x Number of items along X axis (1+, default: $Slic3r::duplicate_x)
--duplicate-y Number of items along Y axis (1+, default: $Slic3r::duplicate_y)
--duplicate-distance Distance in mm between copies (default: $Slic3r::duplicate_distance)
EOF
exit ($exit_code || 0);
}
__END__
Jump to Line
Something went wrong with that request. Please try again.