'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