'Macro M2223  Bolt circle Drill
Sub main()
Dim P101 As Integer
Dim P11 As Integer
Setvar(24,GetDro(0))
SetVar(25, GetDro(1))
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" #104=[#26 + 0.1]"    		' Constant For rapid approach plane 
Code" #105=[#26 - #7]"     		' Constant For Z bottom position of hole
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" M3 M8" 
Code" G#3 X#110 Y#111 R#104 Z#105 Q#17 F#9 S#19(Machine current hole)" 
Code" G80 (Cancel cycle)" 
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"M5 M9"
Code "M30"
End Sub
End