0  BEGIN PGM 5005_EN MM 
1  ;Program for  using a form cutter 
2  ;to deburr a stud or hole 
3  ;on an inclined surface.
4  ;It is machined 
5  ;in the three linear axes 
6  ;without tilting the working plane.
7  ;First you have to define 
8  ;all required parameters.
9  ;Then this program calls 
10 ;another program to pre-mill
11 ;the workpiece.
12 ;You may also have to make changes 
13 ;in the called program.
14 ;After the program call, 
15 ;you define the tool 
16 ;to be used for deburring.
17 ;The control then moves it 
18 ;to the starting position.
19 ;Then it calculates the coordinates 
20 ;for the single axis 
21 ;and moves the tool to it.
22 ;The control then calculates 
23 ;the next respective point 
24 ;with its X, Y and Z coordinates 
25 ;and moves the tool to it.
26 ;This is repeated until 
27 ;it reaches the stopping angle.
28 ;In the parameter PITCH you define 
29 ;the number of point in which 
30 ;the machining is divided.
31 ;Important! 
32 ;The control computes the tool path 
33 ;so that the tool center moves 
34 ;at the defined radius.
35 ;
36 BLK FORM 0.1 Z X+0 Y+0 Z-60
37 BLK FORM 0.2  X+100  Y+100  Z+0
38 ;
39 ;Enter parameters
40 FN 0: Q1 =+50 ;RADIUS
41 FN 0: Q3 =+0 ;STARTING ANGLE
42 FN 0: Q4 =+360 ;STOPPING ANGLE
43 FN 0: Q7 =+50 ;CIRCLE CENTER IN X
44 FN 0: Q8 =+50 ;CIRCLE CENTER IN Y
45 FN 0: Q9 =-20 ;CIRCLE CENTER IN Z
46 FN 0: Q11 =+10 ;INCLINED ANGLE ABOUT A
47 FN 0: Q12 =-2 ;MILLING DEPTH
48 FN 0: Q13 =+0 ;ROTATION
49 FN 0: Q20 =+50 ;FEED RATE FOR PECKING
50 FN 0: Q21 =+500 ;FEED RATE FOR MILLING
51 FN 0: Q25 =+5 ;SAFE POSITION Z
52 FN 0: Q26 =+360 ;PITCH
53 ;End of parameter input
54 ;
55 ;Mill the blank
56 CALL PGM 50051_en.h
57 ;
58 ;Call for deburring tool
59 TOOL CALL 170 Z S3000
60 ;
61 L  Z+100 R0 F9998 M3 ;Move to clearance height
62 CC  X+Q7  Y+Q8 ;Define circle center
63 LP  PR+Q1  PA+Q3 ;Move to starting point
64 L  Z+Q25 ;Pre-position in Z
65 CALL LBL 10 ;Call of operation
66 ;
67 L  Z+100 R0 F9998 M2 ;Retract and end program
68 ;
69 ;Subprograms for machining
70 LBL 10
71 ;Shift datum to center of machining
72 CYCL DEF 7.0 DATUM SHIFT
73 CYCL DEF 7.1  X+Q7
74 CYCL DEF 7.2  Y+Q8
75 CYCL DEF 7.3  Z+Q9
76 ;Activate defined rotation
77 CYCL DEF 10.0 ROTATION
78 CYCL DEF 10.1  ROT+Q13
79 FN 0: Q36 =+Q3 ;Current angle equals starting angle
80 FN 2: Q35 =+Q4 - +Q3 ;Angular length
81 FN 4: Q35 =+Q35 DIV +Q26 ;Stepping angle
82 Q38 = TAN Q11 ;Convert inclination angle
83 FN 0: Q46 =+0 ;Counter
84 CALL LBL 2 ;Call calculation
85 L  X+Q41  Y+Q42 R0 FQ20 M3 ;Move to first point in X and Y
86 L  Z+Q43 R0 FQ20 ;Move to first point in Z
87 LBL 1 ;Repetitions
88 FN 1: Q36 =+Q36 + +Q35 ;Calculate new angle
89 FN 1: Q46 =+Q46 + +1 ;Clock counter
90 CALL LBL 2 ;Call calculations
91 L  X+Q41  Y+Q42  Z+Q43 FQ21 ;Move to new point
92 FN 12: IF +Q46 LT +Q26 GOTO LBL 1 ;Compare counters
93 ;Reset the rotation
94 CYCL DEF 10.0 ROTATION
95 CYCL DEF 10.1  ROT+0
96 ;Reset the datum shift
97 CYCL DEF 7.0 DATUM SHIFT
98 CYCL DEF 7.1  X+0
99 CYCL DEF 7.2  Y+0
100 CYCL DEF 7.3  Z+0
101 LBL 0 ;Return jump
102 ;
103 LBL 2 ;Calculations
104 FN 7: Q31 = COS +Q36 ;Calculate new X coordinate
105 FN 3: Q31 =+Q31 * +Q1 ;Calculate new X coordinate
106 FN 3: Q41 =+Q31 * +1 ;Calculate new X coordinate
107 FN 6: Q32 = SIN +Q36 ;Calculate new Y coordinate
108 FN 3: Q32 =+Q32 * +Q1 ;Calculate new Y coordinate
109 FN 3: Q42 =+Q32 * +1 ;Calculate new Y coordinate
110 FN 3: Q43 =+Q42 * +Q38 ;Calculate new Z coordinate
111 FN 1: Q43 =+Q43 + +Q12 ;Calculate new Z coordinate
112 LBL 0
113 END PGM 5005_EN MM