Gabriele Cosmo
42 lines
790 B
Perl
Executable File
42 lines
790 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
|
|
$filename = $ARGV[0];
|
|
open(INFILE, $filename) || die "\nSTEP file ".$filename." not found.";
|
|
print "Opening file ".$filename;
|
|
@filebuf = <INFILE>;
|
|
close(INFILE);
|
|
|
|
$g4 = "G4";
|
|
$outputfile = $g4 . $filename;
|
|
open(OUTFILE, ">$outputfile");
|
|
print "\nModifying STEP file for NIST toolkit...";
|
|
|
|
foreach (@filebuf)
|
|
{
|
|
if(/.*VERTEX\_POINT.*/)
|
|
{
|
|
s/VERTEX\_POINT\(\'\'\,/VERTEX\_POINT\(\'\'\,\'\'\,/g ;
|
|
}
|
|
elsif(/.*EDGE\_LOOP.*/)
|
|
{
|
|
s/EDGE\_LOOP\(\'\'\,/EDGE\_LOOP\(\'\'\,\'\'\,/g;
|
|
}
|
|
elsif(/.*ADVANCED\_FACE.*/)
|
|
{
|
|
($a,$b,$c) = split('\)',$&);
|
|
s//$a\)\,\'\' $b\)$c\n/;
|
|
}
|
|
elsif(/.*EDGE\_CURVE.*/)
|
|
{
|
|
($a,$b,$c,$d,$e) = split(",",$&);
|
|
s//$a\, $b\,$c\,\'\'\,$d\,$e\n/;
|
|
}
|
|
|
|
print OUTFILE;
|
|
}
|
|
|
|
close(OUTFILE);
|
|
print "\nOutput written to ".$outputfile."\n";
|
|
|
|
|