Io ho fatto così...
https://www.cncitalia.net/forum/viewtopi ... =5&t=12225
**********************************
Xpos = GetParam("XDRO") ' Memorizzo XY
Ypos = GetParam("YDRO")
Fcurr = GetParam("FeedRate") ' Memorizzo FeedRate corrente
Code "G31 X" & (GetParam("XDRO")+100) & "F20" ' Cerco contatto con il pezzo sulla X
While IsMoving() ' Aspetto mentre si muove
Wend
B=GetParam("XDRO")
Code "G0 X" & Xpos
Code "G31 X" & (GetParam("XDRO")-100) & "F20" ' Cerco contatto con il pezzo sulla X
While IsMoving() ' Aspetto mentre si muove
Wend
A=GetParam("XDRO")
Code "G0 X" & (A+(B-A)/2)
While IsMoving() ' Aspetto mentre si muove
Wend
Code "G31 Y" & (GetParam("YDRO")+100) & "F20" ' Cerco contatto con il pezzo sulla Y
While IsMoving() ' Aspetto mentre si muove
Wend
B=GetParam("YDRO")
Code "G0 Y" & Ypos
Code "G31 Y" & (GetParam("YDRO")-100) & "F20" ' Cerco contatto con il pezzo sulla Y
While IsMoving() ' Aspetto mentre si muove
Wend
A=GetParam("YDRO")
Code "G0 Y" & (A+(B-A)/2)
SetParam("FeedRate",Fcurr) ' Ripristino il FeedRate iniziale
************************
Ciao