V
v tec
Compagnon
bonjour voici mon code actuel de probe
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-5"
While ismoving()
sleep(100)
Wend
REFCOMBINATION(4)
While ismoving()
sleep(100)
Wend
Code"g00 g53 x-5 y-5"
While ismoving()
sleep(100)
Wend
REFCOMBINATION(8)
While ismoving()
sleep(100)
Wend
REFCOMBINATION(2)
While ismoving()
sleep(100)
Wend
Code"g00 g53 x-5 y-5"
REFCOMBINATION(1)
While ismoving()
sleep(100)
Wend
CODE "G00 G53 Z"& HSECU
While ISMOVING()
Wend
CODE "G00 G53 X"& POSPALPX &" Y"& POSPALPY
While ISMOVING()
Wend
CODE "G00 G53 Z"& HSECU
CODE "G31 Z-200 F"& VPALP
While ISMOVING()
Wend
SLEEP(250)
ZPALP2 = GETVAR(2002)
SLEEP(250)
CODE "G01 Z"& ZPALP2 & "f" & VPALP
While ISMOVING()
sleep(100)
Wend
ZMACHPALP=getoemdro(85)
While ISMOVING()
sleep(100)
Wend
SETOEMDRO(802,NOUVEAUZ)
SLEEP(250)
CODE "G00g53 Z" & hsecu
While ISMOVING()
Wend
CODE "g00g53x-250y-250"
While ISMOVING()
Wend
setoemdro(158,zmachpalp-getoemdro(1040)-0.1)
domenu(1,5)
While ISMOVING()
Wend
Exit Sub
j'aimerais que apres le referencement de x et y, l'axe parte en coordonnées -5 pour vraiment se degager du capteur
mais je n y arrive pas, il ne tient pas compte des lignes
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-5"
While ismoving()
sleep(100)
Wend
REFCOMBINATION(4)
While ismoving()
sleep(100)
Wend
Code"g00 g53 x-5 y-5"
While ismoving()
sleep(100)
Wend
REFCOMBINATION(8)
While ismoving()
sleep(100)
Wend
REFCOMBINATION(2)
While ismoving()
sleep(100)
Wend
Code"g00 g53 x-5 y-5"
REFCOMBINATION(1)
While ismoving()
sleep(100)
Wend
CODE "G00 G53 Z"& HSECU
While ISMOVING()
Wend
CODE "G00 G53 X"& POSPALPX &" Y"& POSPALPY
While ISMOVING()
Wend
CODE "G00 G53 Z"& HSECU
CODE "G31 Z-200 F"& VPALP
While ISMOVING()
Wend
SLEEP(250)
ZPALP2 = GETVAR(2002)
SLEEP(250)
CODE "G01 Z"& ZPALP2 & "f" & VPALP
While ISMOVING()
sleep(100)
Wend
ZMACHPALP=getoemdro(85)
While ISMOVING()
sleep(100)
Wend
SETOEMDRO(802,NOUVEAUZ)
SLEEP(250)
CODE "G00g53 Z" & hsecu
While ISMOVING()
Wend
CODE "g00g53x-250y-250"
While ISMOVING()
Wend
setoemdro(158,zmachpalp-getoemdro(1040)-0.1)
domenu(1,5)
While ISMOVING()
Wend
Exit Sub
j'aimerais que apres le referencement de x et y, l'axe parte en coordonnées -5 pour vraiment se degager du capteur
mais je n y arrive pas, il ne tient pas compte des lignes