qi-hardware
/
cae-tools
mirror of git://projects.qi-hardware.com/cae-tools.git
1
0
Fork 0
Code

dxf2x/dxf2gp: simple DXF to Gnuplot converter 

Mainly for the M1 case design:
http://projects.qi-hardware.com/index.php/p/m1/source/tree/master/cad/protocase_v7_laser.dxf
This commit is contained in:
Werner Almesberger 2011-12-15 16:24:14 -03:00
parent 639b0fa2d6
commit 7354edee2b
1 changed files with 99 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

99
dxf2x/dxf2gp Executable file
View File

@ -0,0 +1,99 @@
#!/usr/bin/perl
#
# dxf2gp - Convert simple DXF to Gnuplot
#
# Written 2011 by Werner Almesberger
# Copyright 2011 Werner Almesberger
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
#
# Currently, only the directives LINE, CIRCLE, and ARC are supported.
# Adjacent line segments are not merged. Arcs and circles are translated
# to (multi-segment) lines.
#
# The main purpose of this script is currently to convert the M1 case
# design:
# http://projects.qi-hardware.com/index.php/p/m1/source/tree/master/cad/protocase_v7_laser.dxf
#
$S_SCAN = 0; # wait for LINE, CIRCLE, or ARC
$S_ByLayer = 1; # next is ByLayer
$S_INDEX = 2; # next is index
$S_DATA = 3; # next is indexed data
$S_MARKER = 4; # next is subclass marker
sub line
{
print "$_[10] $_[20]\n$_[11] $_[21]\n\n";
}
sub circle
{
local ($x, $y, $r) = ($_[10], $_[20], $_[40]);
for (my $i = 0; $i != 100; $i++) {
local $v = 3.14159265*2/100*$i;
print $x+$r*sin($v), " ", $y+$r*cos($v), "\n";
}
print $x, " ", $y+$r, "\n\n";
}
sub arc
{
local ($x, $y, $r) = ($_[10], $_[20], $_[40]);
local ($a0, $a1) = ($_[50], $_[51]);
$a1 += 360 if $a1 < $a0;
for (my $a = $a0; $a <= $a1; $a += 2) {
local $v = 3.14159265/180*$a;
print $x+$r*cos($v), " ", $y+$r*sin($v), "\n";
}
print "\n";
}
$s = $S_SCAN;
while (<>) {
if ($s == $S_SCAN) {
if (/^LINE\b/) {
*fn = *line;
} elsif (/^CIRCLE/) {
*fn = *circle;
} elsif (/^ARC/) {
*fn = *arc;
} else {
next;
}
$s = $S_ByLayer;
next;
} elsif ($s == $S_ByLayer) {
if (/^ByLayer/) {
$s = $S_INDEX;
}
next;
} elsif ($s == $S_INDEX) {
if ($_ == 0) {
&fn(@a);
@a = ();
$s = $S_SCAN;
} elsif ($_ == 100) {
$s = $S_MARKER;
} else {
$index = $_;
$s = $S_DATA;
}
} elsif ($s == $S_DATA) {
$a[$index] = $_+0;
$s = $S_INDEX;
} elsif ($s == $S_MARKER) {
$s = $S_INDEX;
} else {
die;
}
}