' поиск угла

R=0.8 ' радиус шарика стилуса
Dz=GetUserDRO(1161)

Call SetDRO(0,0)
Call SetDRO(1,0)

'  касание по Z

code "G91"
code "G31 Z-1000 F100"
While IsMoving()
Wend
Call SetDRO(2,0)
code "G0 Z10"

'касание по Х

code "G90"
code "G0 X10"
code "G0 Z-" & Dz
code "G31 X-1000 F100"
While IsMoving()
Wend
Call SetDRO(0, R)
code "G4 P1"
code "G91"
code "G0 X1"
code "G90"
code "G0 Z10"
code "G0 X-10"
While IsMoving()
Wend

' касание по У

code "G0 Y-10"
code "G0 Z-" & Dz
code "G31 Y1000 F100"
While IsMoving()
Wend
Call SetDRO(1, -R)
code "G4 P1"
code "G91"
code "G0 Y-1"
code "G90"
code "G0 Z10"
While IsMoving()
Wend

' выход в центр угла

code "G0 X0 Y0"
While IsMoving()
Wend