CHANGEUR D OUTILS AUTO BED TYPE

Bonjour à Tous et à DH en particulier
voila j ai un changeur d outils AUTO ( ATC ) sur ma machine fabrication chinoise ça fonctionne mais les fourches nylon recevant les portes outils lors du serrage des machoires de la spindle sont soit tirés soit vers le haut ou vers le bas ( elle ne sont pas toutes au meme niveau )
peu t on introduire dans " Select Case ToolNumber " une 4eme valeur la hauteur
de la fourche "Zpos" completement en chiffres ou une variable+ une difference
j ai essaye comme ci dessous ça ne fonctionne pas
ToolDown = position basse fourche valeur moyenne
Select Case ToolNumber

Case Is = 1
Xpos = 430.17
Yprepa = 1000
YPos = 1176.33
Zpos = ToolDown + (-2)

merci pour votre aide à bientot

Salut,

Tout ce qui est après un Case (et avant le suivant) est exécuté, donc ton  Zpos = ToolDown + (-2) devrait l'être. (et la formulation est OK)

Reste à utiliser le mode pas à pas sur ta macro pour savoir ce qui ne fonctionne pas

http://www.metabricoleur.com/t20555-programmation-basic-script-sous-mach3#410381

++
David

Bonjour à tous et DH42 en particulier
voila  j ai fini ma macro  M6Start.M1S  elle fonctionne bien en pas à pas  et en normal  avec le " VB script editor "
mais quand je fais un mini programme avec une ligne genre
M6 T2  cette ligne n'appelle pas la macro M6Start.M1S
mach3 appel toutes les autres macro sauf celle la
je ne comprend pas ????

j ai joint la macro (mais je n ai pas encore utilisé le Zpos pour les differentes hauteur de fourche mach3 va chercher les positions Xpos et Ypos dans les cases mais il perd la valeur de Zpos en sortie du sub Move Pos() ( je vais peut etre caler les berceaux fourches avec des rondelles si je ne trouve pas )

merci d avance pour votre aide

Salut,

Il m'est difficile de faire fonctionner la macro, mais il y a un truc pas très normal dans sa conception.

Dans une sub, les variables définies dans cette sub ne sont actives que dans la sub en cours. ce sont des variables "locales"

Par exemple si tu écris

Code:

Sub main()

   Xpos = 3000
   Call Movepos()
   MsgBox("Xpos dans main() = " & Xpos)

End Sub


Sub Movepos()

   Xpos = 100
   MsgBox("Xpos dans la sub movepost() = " & Xpos)

End Sub



le Xpos défini dans main() et le Xpos défini dans Movepos() sont 2 variables différentes dont la portée se limite à la sub ou elles ont été définies

Dans le code ci dessus, dans main() le Xpos défini dans main() est mis à 3000 (Xpos = 3000), mais quand tu appelles Movepos(), le Xpos qui est mis à 100 dans la sub Movepos() n'est pas le même que le Xpos de main() ... et au retour de la fonction, le msgbox dans main() affichera bien 3000 et non pas 100, la variable dans main() n'aura pas été modifiée par la sub car ce ne sont pas les mêmes variables. De plus le Xpos dans la sub Movepos() cesse d'exister dès que tu sort de la sub Movepos(), donc si tu l'appelle de nouveau, la valeur du Xpos n'est pas conservé ...

Pour que la variable Xpos utilisée soit commune à toutes les sub, elle doit être déclarée à l'extérieur de main() comme variable "globale" ... et on ne peut pas lui attribuer une valeur, seulement déclarer sont existence.

Voila un exemple

Code:

Dim Xpos 'déclaration d'une variable globale qui sera "vue" dans toutes les sub

Sub main()

   Xpos = 3000
   MsgBox("Xpos dans main() AVANT appel de Movepos = " & Xpos)

   Call Movepos()
   MsgBox("Xpos dans main() APRES appel de Movepos = " & Xpos)

End Sub


Sub Movepos()

   Xpos = 100
   MsgBox("Xpos dans la sub movepost() = " & Xpos)

End Sub


c'est bien sur le même problème avec tes autres variables comme le Zpos ...

++
David

Bonjour à Tous et un tres grand Merci à DH42 qui a trouvé la solution
voila a priori cela marche en simulation ( piece 10x10 et VBscripter) voir la photo
Maintenant  il reste  le declenchement de la macro M6start rem ESSAI COURT WF

Quand je fait dans le tableau manuel MDI  "M6 T4"  pour changer l outils en place sur la spindle par l outils N°4  ou autre  rien ne bouge
si je clique sur la fleche verte dans le script editor cela ne marche pas
de meme avec un mini programme test la ligne na aucun effet   " M6 T2"
je ne comprend pas
les autre macro fonctionne quand je les appelle dans MDI en en manuel ou avec programme teste
un grand merci pour votre aide precieuse

Bonjour à Tous et DH en particulier
Ca y est ça marche
je suis pret pour les jeux olympiques serie "Buse de competition"
l appel de la macro M6Start ne fonctionner pas à cause d' une simple histoire de Masjucule et Minuscule le probleme est resolu
Merci encore pour votre aide je crois que je vais avoir la medaille d 'or section Buse de competition
à bientot

Salut,

l appel de la macro M6Start ne fonctionner pas à cause d' une simple histoire de Masjucule et Minuscule le probleme est resolu

C'est bon à savoir, j'ignorais que Mach3 était sensible à la casse ....

++
David

Edit: Bizarre, chez moi ça fonctionne aussi bien avec M6Start.m1s qu'avec M6start.m1s .. peux-tu préciser exactement le nom de fichier que tu avais ?

je suis sur Windows 11 64bits et l erreur sur le nom de la macro etait "M6Start.m1s" changer part M6Start.M1S
et cela marche le probleme etait sur la casse de l extension il faut des majuscules

Super ! , Microsoft a encore frappé ... sur W7 ça fonctionne aussi bien en majuscules que minuscules ..

... et tu as dut renommer les extensions des autres macro aussi (les Mxx.m1s) ?

++
David

Bonjour à Tous et à DH42 en particulier
aussi etrange que cela parait toutes les autre macro les anciennes comme les dernieres ont eu leur extension passées en Majuscule surement au cour d'une mise a jour
à bientot et encore merci pour la super aide