'Giả sử tọa độ đầu dao là XYZ(0,0,25)
'Vị trí đầu dò (probe) tại tọa độ XY(100, 20)
Code "G0 X100 Y20" 'Di chuyển đến vị trí đầu dò
While IsMoving() 'Đảm bảo lệnh di chuyển hoàn tất
Wend
'Trước tiên sử dụng G31 với feedrate tốc độ cao
Code "G31 Z-10 F200"
While IsMoving() 'Đảm bảo lệnh di chuyển hoàn tất
Wend
traloi = MachMsg("G31 di chuyển nhanh kết thúc", "M779 Tự động căn dao", 0)
'G31 chuyển động chậm
z = GetOEMDRO(802) 'lưu giá trị tọa độ Z hiện thời
Code "G0 Z" &(z+1) 'Lùi 1mm tọa độ Z
Code "G31 Z-10 F25" 'G31 chuyển động chậm
While IsMoving() 'Đảm bảo lệnh di chuyển hoàn tất
Wend
traloi = MachMsg("G31 di chuyển chậm kết thúc", "M779 Tự động căn dao", 0)
'Chuẩn tọa độ Z
SetOEMDRO(802, 0) 'gán chuẩn tọa độ (trong ví dụ này là 0) là tọa độ Z của mặt trên của đầu dò. Bạn có thể thay 0 bằng giá trị thích hợp!
'Kết thúc