lorsque je dois tracer un trou rond de grand diamètre, j'ai des mèches forstner, mais la qualité et le rendu me sont un peu problématiques... et surtout, percer droit ( sans perceuse à colonne ... )
donc j'utilise des trous fait dans un gabarit ou via celui de la table mft et je m'arrange ainsi ...
mais calculer à chaque fois ( et ne jamais avoir la bonne taille ... )
d'ou 2 idées :
-faire un gabarit avec quelques trous et quelques bagues de copiages et quelques fraises et faire un mix pour que cela fonctionne...
-se simplifier la vie ...
j'ai commencé par me simplifier la vie
un petit programme de quelques lignes écrit en Perl et qui me sort avec tel taille de trou de gabarit, telle bague et telle fraise, je peux obtenir tel taille de trou
en me servant de mes bagues ( bosch ) de taille : 13,17,24,27,30,40, combiné à mes fraises de taille 4,6,8,10,12,16,20
et en calculant de 13 à 130 pour le trou de gabarit, j'obtiens environ 4100 résultats...
pour ceux que ça intéresse, le petit bout de code ( écrit en Perl pour Strawberry ):
Code : Tout sélectionner
#!/usr/bin/perl
use warnings;
use strict;
#####
# reglages
#####
my $diametre_min_du_trou = 13;
my $diametre_max_du_trou = 130;
my @bagues = (13,17,24,27,30,40);
my @fraises = (4,6,8,10,12,16,20);
#####
# fin des reglages
# ne rien modifier après cette ligne
#####
my %resultat_trie;
print "debut du calcul...\n";
open(FIC,">resultats_gabarit_fraisage_diametres.txt");
for ( my $i = $diametre_min_du_trou; $i <= $diametre_max_du_trou; $i++ ) {
for my $bague (@bagues) {
for my $fraise (@fraises) {
if ( $i >= $bague && $bague > $fraise ) {
my $calcul = $i - $bague + $fraise;
print FIC $i." :: trou:".$i.", bague:".$bague.", fraise:".$fraise." :: ".$calcul."\n";
if ( !defined ( $resultat_trie{$calcul} ) ) { $resultat_trie{$calcul} = ""; }
$resultat_trie{$calcul} = $resultat_trie{$calcul}."trou:".$i.", bague:".$bague.", fraise:".$fraise." :: ";
}
}
}
}
close(FIC);
print "...\n";
open(FIC,">resultats_gabarit_resultat_diametres.txt");
for ( my $i = $diametre_min_du_trou; $i <= $diametre_max_du_trou; $i++ ) {
if ( !defined ( $resultat_trie{$i} ) ) {
print FIC $i." :: 0\n";
} else {
print FIC $i." :: ".$resultat_trie{$i}."\n";
}
}
close(FIC);
print "fin du calcul... ( pressez une touche pour fermer ce programme )\n";
<STDIN>;
dans resultats_gabarit_fraisage_diametres.txt
mais aussi de cette forme18 :: trou:18, bague:13, fraise:4 :: 9
dans resultats_gabarit_resultat_diametres.txt
après avoir effectué des recoupements, j'obtiens, via 8 trous de gabarits ( 24,25,29,49,69,89,109,129 ) tous les trous de 4 à 128 ( hormis 123 et 127 )128 :: trou:129, bague:13, fraise:12 :: trou:129, bague:17, fraise:16 ::
j'ai rajouté sur mon gabarit certaines tailles 8-10-20 qui correspondent à mes fraises à copier et aussi à mes bagues. soit un total de 16 trous
troisieme jet du gabarit fait : la dimension totale de cette version du gabarit est : 485mm/275mm/8mm
une fois les diamètres choisis ( toujours selon mes choix ), je trie par taille de résultat voulu, ce qui me permettra d'imprimer le resultat pour le garder avec le gabarit :
pour que ce soit plus facile pour les utilisateurs, vous pouvez le tester ici :
http://deliriazone.free.fr/cdc/bagues_de_copiage.php
le programme en question:
Code : Tout sélectionner
#!/usr/bin/perl
use warnings;
use strict;
#####
# reglages
# Bosch : 13,17,24,27,30,40
# festool : 8.5,10.8,13.8,17,24,27,30,40
# makita : 9.5,10,11,12,12.7,16,17,20,24,27,29,30,40
# dewalt : 10,10,8,14,16,17,20,24,26,27,30,40
#####
#trous du gabarit
my @trous = (8,10,13,13.8,17,17.8,20,20.8,24,24.8,25,25.8,27,27.8,29,29.8,30,30.8,40,40.8,49,49.8,69,89,109,129);
#trous souhaites apres fraisage
my $diametre_min_du_trou = 4;
my $diametre_max_du_trou = 130;
#tailles de bagues par marque
my @bagues_bosch = (13,17,24,27,30,40);
my @bagues_festool = ();
my @bagues_festool = (10.8,13.8,17,24,27,30,40);
my @bagues_makita = (10,11,12,16,17,20,24,27,29,30,40);
my @bagues_dewalt = (10,14,16,17,20,24,26,27,30,40);
#marque des bagues choisies
my @bagues = @bagues_festool;
#marque des bagues choisies ( permet de personnaliser le nom du fichier en rajoutant _<$files>
my $files = "festool";
#taille des fraises
my @fraises = (4,6,8,10,12,16,20);
#####
# fin des reglages
# ne rien modifier après cette ligne
#####
my %resultat_trie;
print "debut du calcul...\n";
for my $trou ( @trous ) {
for my $bague (@bagues) {
for my $fraise (@fraises) {
if ( $trou >= $bague && $bague > $fraise ) {
my $calcul = $trou - $bague + $fraise;
if ( !defined ( $resultat_trie{$calcul} ) ) { $resultat_trie{$calcul} = ""; }
$resultat_trie{$calcul} = $resultat_trie{$calcul}."trou:".$trou.", bague:".$bague.", fraise:".$fraise." :: ";
}
}
}
}
print "...\n";
open(FIC,">resultats_gabarit_resultat_diametres_final_".$files.".txt");
for ( my $i = $diametre_min_du_trou; $i <= $diametre_max_du_trou; $i++ ) {
if ( !defined ( $resultat_trie{$i} ) ) {
print FIC $i." :: 0\n";
} else {
print FIC $i." :: ".$resultat_trie{$i}."\n";
}
}
close(FIC);
print "fin du calcul... ( pressez une touche pour fermer ce programme )\n";
<STDIN>;
est sous la forme :
edit : après calcul en fonction de mon gabarit, en utilisant les bagues de copiage des marques et avec les dimensions droites des fraises citées précédemment :47 :: trou:69, bague:30, fraise:8 ::
Bosch : 13,17,24,27,30,40
Festool : 8.5,10.8,13.8,17,24,27,30,40
Makita : 9.5,10,11,12,12.7,16,17,20,24,27,29,30,40
Dewalt : 10,10,8,14,16,17,20,24,26,27,30,40
entre 4 et 130, il manque pour :
Bosch : 123,127,129,130
Festool : 123,126,127,129,130
Makita : 129,130
Dewalt : 126,129,130
pour ceux qui souhaiterez voir les résultats ( pas vraiment mis en forme )
http://deliriazone.free.fr/cdc/gabarit_ ... trique.txt
http://deliriazone.free.fr/cdc/gabarit_ ... trique.txt
http://deliriazone.free.fr/cdc/gabarit_ ... trique.txt
http://deliriazone.free.fr/cdc/gabarit_ ... trique.txt
edit 2, j'ai rajouté quelques trous pour rajouter les bagues 10,8 et 13,8 festool ( 13,8 17,8 20,8 24,8 )
edit 3, ajout des angles 50-45-40-35 et 30-25-20-15-10-8 et en pouces 13.8-12.7-10.8-6.35
edit 4, sans les angles sauf les 50-45-40-35 condensé :
trous diamètres mm : 129 - 109 - 89 - 69
trous diamètres mm : 49 - 40 - 30 - 29 - 27 - 25 - 24 - 20 - 17 - 13 - 10 - 8
trous diamètres mm : 24,8 - 20,8 - 17,8 - 13,8
angles mm : 50 - 45 - 40 - 35
angles mm : 30 - 25 - 20 - 15 - 10 - 8
angles mm : 13,8 - 12,7 - 10,8 - 6,35
edit 5 : code passé de perl à php pour le rendre plus facilement utilisable.
A ce jour, il reste à voir:
dimensions finales plus larges pour serre joint
matière ? alu ou pvc envisagé ?
des avis, des conseils, des idées, des critiques ?
hauteur du gabarit ?