1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
#!/usr/bin/perl
# simplifies a DXF by converting everything using a given set of DXF primitives.
## Copyright (c) 2018-2020 by Thomas Kremer
## License: GPL ver. 2 or 3
# usage:
# dxf_simplify.pl infile.dxf POINT,LINE > outfile.dxf
# dxf_simplify.pl infile.dxf > outfile.dxf
# dxf_simplify.pl < infile.dxf > outfile.dxf
use strict;
use warnings;
use DXF;
my ($dxffile,$set) = @ARGV;
my $f;
if (defined $dxffile) {
open($f,"<",$dxffile) or die "cannot open dxf \"$dxffile\": $!";
} else {
$f = \*STDIN;
}
$set //= "POINT,LWPOLYLINE";
$set = [split /,/, $set];
my $dxf = DXF::parse_dxf($f);
DXF::canonicalize($dxf);
#DXF::boil_down($dxf,["POINT","LWPOLYLINE","CIRCLE"]);
#DXF::filter($dxf,{_=>"+", INSERT => 1, LWPOLYLINE => 1, POINT => 1, CIRCLE => 1});
#DXF::flatten_dxf($dxf);
#my $copy = DXF::deep_copy($dxf);
DXF::boil_down($dxf,$set);
DXF::flatten($dxf);
DXF::strip($dxf);
print DXF::lol2dxf($dxf);
#print DXF::lol2xml($dxf)->toString;
|
