1. Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.

[partage]macro palpeur et changement d'outil

Discussion dans 'Mach' créé par v tec, 20 Mars 2013.

  1. v tec

    v tec Compagnon

    Messages:
    1 553
    Inscrit:
    6 Janvier 2012
    [partage]macro palpeur et changement d'outil
    bonjour a tous

    voici ma macro de palpeur, je l ai bidouiller a taton en modifiant l ancienne elle marche tres bien


    en echange est ce que quelqu'un aurait une macro pour juste palper, c est pour cherche mon zmin, afin de pas abimer ma table, quand j ai un doute


    en gros,le z monte au z securité, va au dessus du palpeur, palpe, comme je connais la hauteur de mon palpeur, ca me modifie mon z0, en z surface table



    voici ma macro de changement d outil

    POSPALPX = GETOEMDRO(1010)
    POSPALPY = GETOEMDRO(1011)
    DECPALPX = GETOEMDRO(1020)
    DECPALPY = GETOEMDRO(1021)
    PALPX = POSPALPX + DECPALPX
    PALPY = POSPALPY + DECPALPY
    VPALP = GETOEMDRO(1060)
    HSECU = GETOEMDRO(1051)
    CODE "G00 G53 Z"& HSECU
    WHILE ISMOVING()
    WEND
    CODE "G00 G53 X"& PALPX &" Y"& PALPY
    WHILE ISMOVING()
    Wend
    code "g00 g53 z-15"
    CODE "G31 Z-200 F"& VPALP
    WHILE ISMOVING()
    WEND
    SLEEP(250)
    ZPALP = GETVAR(2002)
    code "g01 g53 z25 f4000"
    CODE "G00 G53 x-250 y-250"
    MACHMSG("CHANGEZ L'OUTIL ET APPUYEZ SUR OK", "CHANGEMENT D'OUTIL",1)
    CODE "G00 G53 X"& PALPX &" Y"& PALPY & "z" & HSECU
    code "g00 g53 z-15"
    CODE "G31 Z-200 F"& VPALP
    WHILE ISMOVING()
    WEND
    ZPALP2 = GETVAR(2002)
    DIFF = ZPALP - ZPALP2
    ANCIENZ = GETOEMDRO(802)
    NOUVEAUZ = ANCIENZ + DIFF
    SETOEMDRO(802,NOUVEAUZ)
    SLEEP(250)
    code "g01 g53 z25 f4000"
    CODE "G00 g53 x-250 y-250"
    WHILE ISMOVING()
    WEND



    donc en gros, elle se deplace au coordonnée machine uniquement, elle va au dessus du palpeur , elle descend un peu (pour gagner du temps), puis elle palpe doucement, remonte, retourne au milieu de ma table, demande le changement d outil, puis retourne au palpeur, repalpe, et retourne au milieu de la table
     
  2. v tec

    v tec Compagnon

    Messages:
    1 553
    Inscrit:
    6 Janvier 2012
    [partage]macro palpeur et changement d'outil
    Re: [partage]macro palpeur et changement d outil

    la macro du palpeur a la base c est ca:

    VPALP = GETOEMDRO(1060)
    HPALPEUR = GETOEMDRO(1040)
    HSURFACE = GETOEMDRO(1050)
    NOUVEAUZ = HPALPEUR+HSURFACE
    HFIN = GETOEMDRO(1051)
    IF HFIN < NOUVEAUZ THEN
    MACHMSG("!!! HAUTEUR DE RETOUR PLUS BASSE QUE LE PALPEUR !!!", "! ALERTE !",0)
    MACHMSG("MODIFICATION DE LA HAUTEUR DE RETOUR A 5MM AU DESSUS DU PALPEUR","CORRECTION Z RETOUR",0)
    HFIN = NOUVEAUZ+5
    SETOEMDRO(1051,HFIN)
    END IF
    CODE "G31 Z-200 F"& VPALP
    WHILE ISMOVING()
    WEND
    SLEEP(250)
    ZPALP = GETVAR(2002)
    SLEEP(250)
    CODE "G00 Z"& ZPALP
    WHILE ISMOVING()
    WEND
    SETOEMDRO(802,NOUVEAUZ)
    SLEEP(250)
    CODE "G00 Z"& HFIN
    WHILE ISMOVING()
    WEND



    mais je la comprend pas


    moi mon hfin, c est -5, puisque c est mon z machine, ma table doit etre a environ z-40 machine
     
  3. JLN

    JLN Apprenti

    Messages:
    77
    Inscrit:
    31 Janvier 2013
    [partage]macro palpeur et changement d'outil
    Bonjour,
    Quelle version de Mach3 utilises-tu ?
    Car moi j'ai la version Mach3fr et il existe un onglet dédié qui a à peu de choses près la même procédure, mais c'est vrai qu'il manque des fonctions comme retrouver le centre d'un trou par exemple.
     
  4. v tec

    v tec Compagnon

    Messages:
    1 553
    Inscrit:
    6 Janvier 2012
    [partage]macro palpeur et changement d'outil
    POSPALPX = GETOEMDRO(1010)
    POSPALPY = GETOEMDRO(1011)
    VPALP = GETOEMDRO(1060)
    HPALPEUR = GETOEMDRO(1040)
    HSURFACE = GETOEMDRO(1050)
    NOUVEAUZ = HPALPEUR+HSURFACE
    HSECU = GETOEMDRO(1051)
    CODE "G00 G53 Z"& HSECU
    While ISMOVING()
    Wend
    CODE "G00 G53 X"& POSPALPX &" Y"& POSPALPY
    While ISMOVING()
    Wend
    code "g00 g53 z-15"
    CODE "G31 Z-200 F"& VPALP
    While ISMOVING()
    Wend
    SLEEP(250)
    ZPALP = GETVAR(2002)
    SLEEP(250)
    CODE "G00 Z"& ZPALP
    While ISMOVING()
    Wend
    SETOEMDRO(802,NOUVEAUZ)
    SLEEP(250)
    CODE "G00g53 Z"& hsecu
    CODE "g00g53x-5y-5"
    While ISMOVING()
    Wend



    voila ca marche
     
Chargement...
Articles en relation
  1. Dhennaux
    Réponses:
    17
    Affichages:
    576
  2. dsmx
    Réponses:
    2
    Affichages:
    894
  3. cubalu
    Réponses:
    0
    Affichages:
    1 061
  4. guitoune
    Réponses:
    6
    Affichages:
    3 198
  5. vdoudou14
    Réponses:
    9
    Affichages:
    1 461

Partager cette page