Ellipse à deplacer

Bonjour et à Dh42 en particulier
voila j ai besoin de vos lumieres je suis entrains d ecrire un Wizard pour faire 4 trous ellipsoidales dans un tube
pour ce faire je fais en premier un trou "A " bien rond que je positionne decale en X et en Y par rapport au G54 jusqu'a là pas de probleme
puis je faire une ellipse concentrique au "A" et la probleme
je sais faire une ellipse dont le centre est sur le G54 mais si je veux la decaler probleme
voila le code j utilise "nFmt" pour arrondir les cotes des point par point en X et Y
bien sur il y a fusion360 et Cambam
equation point par point de l ellipse

Code:

 code "G1X"& nFmt((abc) * Cos(ANGla),2) & "Y"& nFmt((cde) * Sin(ANGla),2)

[code]Sub PassesZA1()

Code "(MSG,AVEC debutELLIPSE A1)"


Speed = GetUSERDRO (1645) ' vitesse de la broche
Tool = GetUSERDRO (824) ' numero d outils
DIATOOL = GetOEMDRO (43) ' diametre de l outils
ZSecu = GetUSERDRO (1649) ' ZSECUZ de securite pour deplacement rapide
' REM Avances Feed cut
FEEDC = GetUSERDRO (1646) ' avance ebauche
FEEDP = GetUSERDRO (1647) ' avance plongeante

SaveWizard() 'essai enregistre les parametres d entrees
'REM DIMENSIONS ELLIPSE
AB = ( GetUSERDRO (2004))-(DIATOOL) 'LONGUEUR AXE MAJEUR AB ELLIPSE
abc = AB/2 ' demi longueur axe AB
CD = (GetUSERDRO (2005) )-(DIATOOL) 'LONGUEUR AXE MINEUR CD ELLIPSE
cde = CD/2 ' demi longueur axe CD
INcre = GetUSERDRO (2006) 'increment angulaire rotation

Depthper = GetUSERDRO (2003)*(-1) ' valeur passe z

DEPTHInt = nFmt( Abs(GetUSERDRO (2000))*(-1),2) 'PROFONDEUR pocket ellipse *-1

REM Center X
XPOESA= GetUSERDRO (2007) '??? position X axe trou
REM Center Y
YPOESA= GetUSERDRO (2008) '??? position Y axe trou

CODE " Z" & ZSecu ' Z SECU xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Code "(MSG,aaa2)"

' code "G01"&"X"& XPOSA &" Y"& YPOSA

Nc = 1 ' repere de comptage depart
Counter = 1 ' compteur =1
Do ' do fait

DEPTHPASS = (NC* Depthper) 'profondeur passe= Nc=1*valeur de passe ebauche
If DEPTHPASS DEPTHInt ' boucle tant que la profondeur de passe est superieur à profondeur

Call PassesEllipseA1 () ' appel le sous programme
End Sub



'***************************************************************rem sub ELLISPE***************************************
Sub PassesEllipseA1()


Code "(MSG,AVEC ELLIPSE A1)"

Speed = GetUSERDRO (1645) ' vitesse de la broche
Tool = GetUSERDRO (824) ' numero d outils
DIATOOL = GetOEMDRO (43) ' diametre de l outils
ZSecu = GetUSERDRO (1649) ' ZSECUZ de securite pour deplacement rapide
' REM Avances Feed cut

FEEDC = GetUSERDRO (1646) ' avance ebauche
FEEDP = GetUSERDRO (1647) ' avance plongeante

SaveWizard() 'essai enregistre les parametres d entres
'REM DIMENSIONS ELLIPSE
AB = ( GetUSERDRO (2006))-(DIATOOL) 'LONGUEUR AXE MAJEUR AB ELLIPSE
abc = AB/2 ' demi longueur axe AB
CD = (GetUSERDRO (2007) )-(DIATOOL) 'LONGUEUR AXE MINEUR CD ELLIPSE
cde = CD/2 ' demi longueur axe CD
STC = GetUSERDRO (2008) 'REM angle de depart de la courbe = 0°
INcre = GetUSERDRO (2009) 'increment angulaire rotation

'REM CALCULDE LA POSITION DU 1ER POINT depart


Depthper = GetUSERDRO (2012)*(-1) ' valeur passe z

DEPTHInt = nFmt( Abs(GetUSERDRO (2005))*(-1),2) 'PROFONDEUR pocket ellipse *-1

REM Center X
XPOESA= GetUSERDRO (1612) '??? position X axe trou
REM Center Y
YPOESA= GetUSERDRO (1613) '??? position Y axe trou

Code "(MSG,05)"

Speed = GetUSERDRO (1645) ' vitesse de la broche
Tool = GetUSERDRO (824) ' numero d outils
DIATOOL = GetOEMDRO (43) ' diametre de l outils
ZSecu = GetUSERDRO (1649) ' ZSECUZ de securite pour deplacement rapide
' REM Avances Feed cut

FEEDC = GetUSERDRO (1646) ' avance ebauche
FEEDP = GetUSERDRO (1647) ' avance plongeante

SaveWizard() 'essai enregistre les parametres d entres
'REM DIMENSIONS ELLIPSE
AB = (GetUSERDRO (2004) )-(DIATOOL) 'LONGUEUR AXE MAJEUR AB ELLIPSE
abc = AB/2 ' demi longueur axe AB
CD = (GetUSERDRO (2005))-(DIATOOL) 'LONGUEUR AXE MINEUR CD ELLIPSE
cde = CD/2 ' demi longueur axe CD
INcre = GetUSERDRO (2006) 'increment angulaire rotation



Depthper = GetUSERDRO (2003)*(-1) ' valeur de chaque passe z
DEPTHInt = nFmt( Abs(GetUSERDRO (2005))*(-1),2) 'PROFONDEUR pocket ellipse *-1


Na = 1 ' repere de comptage depart

Counter = 1 ' compteur =1
Do ' do fait
Code "(MSG,00001)"
ANGla = (Na * INcre) '
If ANGla > 360 Then 'si profondeur passe est superieurà profondeur alors
ANGla = 360 'profondeur passe=profondeur
End If

If Na =1 Then
Na=2 ' eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee

End If


Code "(MSG,44)"
'code "G01"&"X"& XPOSA &" Y"& YPOSA ' c est la que je voudrais positionner l ellipse concentrique au trou qui sont centre en XPOSA et YPOSA '

code "G1X"& nFmt((abc) * Cos(ANGla),2) & "Y"& nFmt((cde) * Sin(ANGla),2)

Na = Na+1

Loop While ANGla< 360 ' boucle tant que l' angle a est inferieur à 360°

End Sub
[code]

merci de vos lumieres

Salut,

je sais faire une ellipse dont le centre est sur le G54 mais si je veux la decaler probleme

Tu ne peux pas utiliser un G92 pour la décaler ? comme ça tu n'a pas à recalculer quoi que ce soit, tu changes juste ta position 0 de départ.

++
David

Bonjour à Tous et à DH42 en particulier
voila la buse a souqué sec avant d'abordé le rivage des ellipses
j ai quelques point noir encore sur l utilisation du G92 j ai pompé l'utilisation de g92 dans "Nesting"

Call TrouA() 'appel le Sub
CODE "G0 Z5" ' Z SECU
CODE "G0"& "X"& GetUSERDRO (2013)&" Y"& GetUSERDRO (2014)' decalage en X Y=0
CODE "G92 X0" ' pourquoi on revient à X zero ?????

Call TrouA() 'CODE "M98(TrouA())"
CODE "G0 Z5"
CODE "G0"& "X"& GetUSERDRO (2013)&" Y"& GetUSERDRO (2014) ' decalage en X Y=0
CODE "G92 X0"

Call TrouA() 'CODE "M98(TrouA())"
CODE "G0 Z5" ' Z SECU
CODE "G0"& "X"& GetUSERDRO (2013)&" Y"& GetUSERDRO (2014) '' decalage en X Y=0
CODE "G92 X0" ' pourquoi on revient à X zero ?????

Call TrouA() 'CODE "M98(TrouA())"
CODE "G0 Z5" ' Z SECU
CODE "G0"& "X"& 0 &" Y"& 0
CODE "G92"&" X" & (GetUSERDRO (2013))*(4) &" Y"& GetUSERDRO (2014) ' decalage en X Y=0 pourquoi pour la quatrieme on multiplie le decalage par 4 fois le decalage ?????
CODE "G92"&" Y0" ' pourquoi on revient à X zero ?????
'CODE "G0"& "X0"& "Y0" ' pas besoin sur une ligne X seulement " je pense que c est pour le retour au point de depart ????
des que j ai fini le wizard le mettrai sur MB
Merci beaucoup pour vos lumiere la Sombre Buse

Salut,

pourquoi on revient à X zero ?????

On ne reviens pas à X=0 mais on met X à 0 à la position en cours, c'est équivalent à cliquer sur RàZ X, donc si par exemple tu étais à X=10, X vas passer à 0 sans aucun mouvement de l'axe, donc ça va te décaler toute les coordonnées de 10mm en X

++
David

merci beaucoup c est enfin plus clair

PS, notes qu'avec un G92 ou un G52, le décalage n'est actif que pour le durée du programme, dès qu'un M30 est rencontré, on en revient au 0 d'origine (celui fait en cliquant sur le RàZ de la visu)

Re-jettes un œil sur ce sujet à propos des G92/52

http://www.metabricoleur.com/t21612-mach3-wizar-nesting-le-retour#427087

et souviens toi que Mach3 ne sait pas simuler les G92/52 à l'écran, le décalage ne se voit pas ; pour une bonne simu des décalages il faut utiliser NCNetic (par contre je ne pense pas qu'il sache gérer les sous programmes de Mach3 de type Oxxx M99)

++
David

Bonjour à tous età DH42 en particulier
Voila comme promis le wizard ellipse
0° decompresser les fichiers "bitmaps" ,"ELLIPSEwf.set" et la Macro "M402"
1° creer un fichier " ELLIPSEwf " dans Mach3\ Addons
2° coller le fichier "Bitmaps" dans le fichier que vous avez creer "ELLIPSEwf"
3° coller le fichier " ELLIPSEwf.set" dans le fichier que vous avez creer ELLIPSEwf
4° coller la Macro "M402"  dans votre fichier macro dans mach3
j'envoi les fichiers en deux fois
Plus l increment de l angle de rotation est petit plus le tracé est precis
à Bientot

et voila la macro M402
si vous avez une idee pour reduire le parcour elliptique en ne passant pas par les Sinus et Cosinus ???
bon courage à Bientot

WF a écrit:
si vous avez une idee pour reduire  le parcour elliptique en ne passant pas par les Sinus et Cosinus ???

Je ne vois pas comment faire autrement ; en programmation, dès que l'on dessine un cercle ou une ellipse on n'y coupe pas.

++
David