'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