'Macro M2224  Bolt circle Drill Manual Quill/SPindle
Sub main
Dim P101 As Integer
Dim P11 As Integer

' M2224 Pxx Qxx Rxx
' R = Radius of Bolt Circle
' Q = Starting Angle (0= 3oclock -- Neg = CW)
' P = Number of HOLES
SetVAR(24,Getdro(1))
Setvar(25,Getdro(2))
Setvar(11, Param1())
SetVar(1, Param2())
SetVar(18, Param3())

Code" #101=0 (Initialize counter)" 
Code" #102=#1 (Initialize current angle To A)" 
Code" #103=[360 / #11] (Constant For incremental angular distance between holes)" 
Code" G0 Z#104 X#24 Y#25"
N1:
Code" #110=[#24 + COS[#102] * #18] (Calculate X position for current hole based on current angle)" 
Code" #111=[#25 + SIN[#102] * #18] (Calculate Y position for current hole based on current angle)"
Code" G0 X#110 Y#111 (Machine current hole)" 
MsgBox "Drill HOLE    " &" Then Press OK to continue"
Code" #101=[#101 + 1] (Step counter)" 
Code" #102=[#102 + #103] (Step current angle)"
P101= GetVAR(101)
P11= GetVAR(11)
While Ismoving()
Wend
If P101 <= (P11-1) Then GoTo n1 Else GoTo N99
N99:
Code" G0 Z#104 X#24 Y#25"
Code "M30"
End Sub