this code has to in M1299.M1s in your macro folder:
' G31 Polar Array Calibration Macro V1.00
Xpos= getdro(0)
Ypos= getdro(1)
Pspeed= Question (" Probe Feed Rate")
Rleg= Question ("Input Max Leg Length")
Linc= Question ("Input leg Separation Angle")
SafZ= Question ("Input SafeZ Height")
Phgt= Question ("Input Safe Probe Height")
Spnt= Question ("Input start point in DEG, zero is x axis 3oclock")
Tdeg= Question ("Input Total Arc Width of Array in DEGs")
Nrep= (Tdeg / Linc)
Setvar (100 , Xpos)
Setvar (101 , Ypos)
Setvar (102 , Rleg)
Setvar (104 , Linc)
Setvar (108 , Nrep)
Setvar (109 , Pspeed)
Setvar (110 , SafZ)
Setvar (111 , Phgt)
Setvar (103 , Spnt)
Code " F#109"
End
and this is the GCode you have to run (it will call M1299)
o0001 (G31 Interior Polar Array V1.01)
M1299
M40
%
G90
#106 = [#100 + #102 * COS[#103]]
#107 = [#101 + #102 * SIN[#103]]
g0 Z#110
g0 X#100 Y#101
G1 Z#111
G31 X #106 Y #107
G4 P1
G0 X#100 Y#101
M98 P1 L#122
G1 Z [#111+121]
M41
M30
%
o0001 (SUB1)
M98 P2 L#108
G0 Z#110
m99
o0002 (SUB2)
#105=[#103+#104]
#106 = [#100 + #102 * COS[#105]]
#107 = [#101 + #102 * SIN[#105]]
G90
G31 X #106 Y #107
G4 P1
G0 X#100 Y#101
#103 = #105
m99
%
bbut i have no ideas what it will/should do.