Basic Script - Outil contenu dans poche ?

Salut,

il ne semble pas y avoir d'erreur de syntaxe sur cette ligne, par contre il est bien possible qu'il y ai une erreur de logique mais je ne peux pas t'en dire plus ; ce que tu veux faire est certainement très clair pour toi, mais moi je ne comprends pas vraiment LOL.

voir ici pour le select/case
http://www.metabricoleur.com/t20555-programmation-basic-script-sous-mach3#410381

++
David

Re

Il faut explorer ce qui se passe en fonction d'un "jeu de données" dont tu connais le résultat attendu ; par exemple accroche le code suivant à un bouton, met des valeurs pour XPOSC, YPOSC, LargInt, LengthInt et RayTOOL et regarde les résultats intermédiaires des msgbox() pour voir ou ça coince ; comme je ne comprends pas trop, je ne sais pas quelles valeurs mettre pour tester.

Code:

'Rem PROFONDEUR PERCAGE SELON pocket OU EXTREMITEES 

Dim XPOSC As Double, YPOSC As Double, LargInt As Double, LengthInt As Double, RayTOOL As Double

XPOSC = 0
YPOSC = 0
LargInt = 20
LengthInt = 40
RayTOOL = 8

Dim A As Double, B As Double, C As Double, D As Double

A = (LargInt/2)*(-1)+RayTOOL   
B = (LargInt/2)-(RayTOOL)
C = (LengthInt/2)*(-1)+RayTOOL
D = (LengthInt/2)-(RayTOOL) 

MsgBox("A = " & A & "  B = " & B & "  C= " & C & "  D = " & D)

Dim E As Boolean, F As Boolean, G As Boolean, H As Boolean, R As Boolean

E = XPOSC <(A)
F = XPOSC <(B)
G = YPOSC <(C)
H = YPOSC <(D)
R = E Or F And G Or H

MsgBox("If " & E & " OR " & F & " AND " & G & " OR " & H)

MsgBox("result: " & R)
                 
  If XPOSC <((LargInt/2)*(-1)+RayTOOL) Or XPOSC <((LargInt/2)-(RayTOOL))  And  YPOSC < (( LengthInt/2)*(-1)+RayTOOL) Or YPOSC < (( LengthInt/2)-(RayTOOL))  Then 
       
            DebuttrouC =  DEPTHInt * 0.75
            MsgBox "(MSG.valeur debut plus bas  )"
            FintrouC  = DEPTHC - DebuttrouC                         
       
  Else
          MsgBox "(MSG.valeur normal  )"
          DebuttrouC =0
          FintrouC = DEPTHC         
  End If 



++
David

Salut

j essai de percer mes trous de 2.5mm avec des fraises de 2.4 mm  ( passe en spirale horizontale  puis descente au niveau Z suivant) j extermine  mon stock de fraise
avance trop grande ? 9000tr/mn  avance plongeante  60mm/mn passe de 0.2 en Z  Spirale horizontale 10% de 2.4mm  c est du laiton
( aurai je intérêt à percer avec des forets de 2.5mm  par rapport aux fraises ????)

Oui, c'est possible car la vitesse d'avance (horizontale) c'est la vitesse au niveau de l'axe de la fraise, mais la périphérie se déplace plus vite et l'écart est d'autant plus grand que la fraise à un Ø proche du trou à usiner en spirale.

Je ne sais plus si tu utilise CamBam, mais si c'est le cas, j'ai fait un plugin (tout simple) qui permet de corriger la vitesse d'avance en fonction du Ø à usiner, du Ø de la fraise et de l'avance souhaitée à la périphérie du trou.

http://www.metabricoleur.com/t16447-correction-vitesse-d-avance-pour-percage-en-spirale-filetage

sinon, par exemple dans ton cas, on va déterminer d'abord la V de rotation en prenant une Vc de 120 m/min pour une fraise de 2.4, ça nous fait 15900 tr/min

en supposant une fraise 2 dents et avec une avance par dent de 0.012 mm, ça nous donne 382mm/min à 15900 tr/min

Si je rentre ces données dans mon plugin:



Comme tu peux voir, ça fait une sacrée différence, il faut aller 25x moins vite sur le parcours pour avoir la bonne vitesse à la périphérie.

En fait sans la correction, c'est comme si on prenait une avance par dent 25x plus importante, soit 0.3mm/dent ... autant dire qu'avec une fraise de 2.5, ça casse !!

Pour l'avance en Z à 60mm/min, ça me parait correct.

aurai je intérêt à percer avec des forets de 2.5mm  par rapport aux fraises ????

Pour un si petit Ø, je pense que pour ma part je percerais au foret, en G83 ou G73 suivant comme ça se passe aux essais et la profondeur à percer.

G83 débourrage total avec remontée au plan de dégagement,

G73 brise copeau, ça ne remonte pas jusqu'en haut, mais de la valeur donnée dans Config/Ports&pins > Mill Option > G73 Pullback ; c'est bien plus rapide.

Spirale horizontale 10% de 2.4mm

Je ne suis pas sur de comprendre, la spirale n'est pas horizontale, mais verticale dans un perçage en spirale.

La voila sous CamBam avec fraise 2.4 et trou de 2.5, avance Z 0.2mm/tour de spire sur 2mm de profondeur.



et le Gcode résultant

Code:

G21 G90 G64 G40 F1000
G91.1
G0 Z5.0
T5 M6
( Per�age1 )
G17
S15900
M3
G0 X0.0 Y0.0
G0 Z5.0
G0 X0.05 Y0.0
G0 Z1.0
G1 F60.0 Z0.0
G3 F15.0 X-0.025 Y0.0433 Z-0.0667 I-0.05 J0.0
G3 Y-0.0433 Z-0.1333 I0.025 J-0.0433
G3 X0.05 Y0.0 Z-0.2 I0.025 J0.0433
G3 X-0.025 Y0.0433 Z-0.2667 I-0.05 J0.0
G3 Y-0.0433 Z-0.3333 I0.025 J-0.0433
G3 X0.05 Y0.0 Z-0.4 I0.025 J0.0433
G3 X-0.025 Y0.0433 Z-0.4667 I-0.05 J0.0
G3 Y-0.0433 Z-0.5333 I0.025 J-0.0433
G3 X0.05 Y0.0 Z-0.6 I0.025 J0.0433
G3 X-0.025 Y0.0433 Z-0.6667 I-0.05 J0.0
G3 Y-0.0433 Z-0.7333 I0.025 J-0.0433
G3 X0.05 Y0.0 Z-0.8 I0.025 J0.0433
G3 X-0.025 Y0.0433 Z-0.8667 I-0.05 J0.0
G3 Y-0.0433 Z-0.9333 I0.025 J-0.0433
G3 X0.05 Y0.0 Z-1.0 I0.025 J0.0433
G3 X-0.025 Y0.0433 Z-1.0667 I-0.05 J0.0
G3 Y-0.0433 Z-1.1333 I0.025 J-0.0433
G3 X0.05 Y0.0 Z-1.2 I0.025 J0.0433
G3 X-0.025 Y0.0433 Z-1.2667 I-0.05 J0.0
G3 Y-0.0433 Z-1.3333 I0.025 J-0.0433
G3 X0.05 Y0.0 Z-1.4 I0.025 J0.0433
G3 X-0.025 Y0.0433 Z-1.4667 I-0.05 J0.0
G3 Y-0.0433 Z-1.5333 I0.025 J-0.0433
G3 X0.05 Y0.0 Z-1.6 I0.025 J0.0433
G3 X-0.025 Y0.0433 Z-1.6667 I-0.05 J0.0
G3 Y-0.0433 Z-1.7333 I0.025 J-0.0433
G3 X0.05 Y0.0 Z-1.8 I0.025 J0.0433
G3 X-0.025 Y0.0433 Z-1.8667 I-0.05 J0.0
G3 Y-0.0433 Z-1.9333 I0.025 J-0.0433
G3 X0.05 Y0.0 Z-2.0 I0.025 J0.0433
G3 X-0.025 Y0.0433 I-0.05 J0.0
G3 Y-0.0433 I0.025 J-0.0433
G3 X0.05 Y0.0 I0.025 J0.0433
G0 Z5.0
M5
M30

... et comme c'est gratuit, le code en VB script du correcteur de vitesse d'avance ; à adapter si tu veux l'intégrer à Mach3 car Mach3 "parle" un basic script pas tout à fait identique au basic script utilisé par CamBam et autres softs actuels.

Code:

' New CamBam VBScript Dh42 2018
' correction de la V d'avance pour le perçage
' en fonction du diamètre du trou et de la fraise

sub main
    
    dim rep as string
    
    Dim D_hole as Double, D_path as Double, D_tool as Double, speed as Double
    
    rep = inputbox("Diamètre trou","",1)
    if rep = "" then exit sub
    D_Hole = val(rep)
    if D_hole <= 0 then
        beep
        msgbox("Le diamètre doit être > à 0")
        exit sub
    end if
    
    rep = inputbox("Diamètre Outil","",1)
    if rep = "" then exit sub
    D_tool = val(rep)
    if D_tool >= D_hole then
        beep
        msgbox("Le diamètre doit être inférieur au diamètre du trou")
        exit sub
    end if    
    
    rep = inputbox("Vitesse d'avance","",1)  
    if rep = "" then exit sub
    speed = val(rep)
    if speed <= 0 then
        beep
        msgbox("Le vitesse doit être > à 0")
        exit sub
    end if
    
    D_path = D_hole - D_tool
    
    msgbox("La vitesse doit être de: " & Format(speed / (D_hole / D_path), "#.##"))
    
end sub


++
David

Re

Il y a un truc que je ne capte pas: (enfin, au moins un !!)

LargInt/2)*(-1)+RayTOOL te donne la largeur de la poche ?, mais c'est quoi XposA ?, la position du centre fraise ? ... et sur le code au début du sujet, il y a un  XposC ....

si c'est bien la largeur de la poche et la position de l'axe de la fraise alors je ne comprends pas pourquoi tu teste une une position par rapport à une largeur.

tu n'a pas un moyen d'obtenir les coord XY des 2 coins opposés de la poche ?

dans ce cas, en simplifiant et en ne tenant pas compte du Ø de la fraise (pour l'instant) alors si on a x1,y1 et x2, y2 qui donnent les coins de la poche par exemple et centre fraise donné par cntrx et cntry

Code:

' New CamBam VBScript

dim x1 as double = -50
dim y1 as double = 40
dim x2 as double = -10
dim y2 as double = 10
dim cntrx as double = -30
dim cntry as double = 20


sub main
if (cntrx > x1) and (cntrx < x2) then 'test en X
    if (cntry > y2) and (cntry < y1) then 'test en Y
        msgbox(" à l'intérieur")
    else
        msgbox("à l'extérieur (Y)")
    end if
else
        msgbox("à l'extérieur (X)")
end if

end sub

il devrait suffire d'y ajouter/retrancher le rayon de la fraise au x1,y1,x2,y2 pour gérer le Ø

++
David

j'ai édité mon message

et en tenant compte du rayon de la fraise.

Code:

' New CamBam VBScript

dim x1 as double = -50
dim y1 as double = 40
dim x2 as double = -10
dim y2 as double = 10
dim cntrx as double = -30
dim cntry as double = 20

dim r as double = 4 'rayon fraise


sub main
if (cntrx > x1+r) and (cntrx < x2-r) then 'test en X
    if (cntry > y2+r) and (cntry < y1-r) then 'test en Y
        msgbox(" à l'intérieur")
    else
        msgbox("à l'extérieur (Y)")
    end if
else
        msgbox("à l'extérieur (X)")
end if

end sub


le cadre bleu représente la poche réduite du rayon tout le tour (donc l'effet des +r et -r ), donc si le centre fraise est contenu dans le rectangle bleu, la fraise rentre dans la poche.



... et attention, si tu change les positions des points 1 et 2 qui définissent le rectangle, il faudra modifier le script en conséquence, le plus simple serait bien sur de garder le point 1 en haut à gauche et le point 2 en bas à droite.

++
David

Edit: j'ai renommé le sujet, car SCRIPT ECRITURE c'est un peu vague (surtout pour un script qui ne sert pas à écrire )

salut,

je viens de découvrir G73 dans port et pin la valeur g73 pull back c 'est des millimètres ????

Oui

et la coche Homed true when no home swithes ???????j arrive pas ale traduire correctement

Homed true when no Home switches: Will make the system appear to be referenced (i.e.
LEDs green) at all times. It should only be used if no Home switches are defined under
Ports & Pins Inputs tab.

Donc en théorie, les LED "axes référencés" devraient toujours être vertes ... mais ça ne semble pas fonctionner, de plus si je coche la case, la coche "ne tient pas", y compris si aucun contact de ref n'est défini ...

++
David