0  BEGIN PGM 4020-EN MM 
1  ;Program for machining a 3-D ruled surface,where
2  ;the tool is movedin five axis. Thefive-axis
3  ;movement is independent of the kinematics.
4  ;You only need to adapt resetting of the
5  ;tilting of the axis to your machine´s
6  ;requirements.
7  ;Enter the parameters
8  FN 0: Q1 =+0 ;X COORDINATE OF 1ST POINT
9  FN 0: Q2 =+0 ;Y COORDINATE OF 1ST POINT
10 FN 0: Q3 =-10 ;Z COORDINATE OF 1ST POINT
11 FN 0: Q4 =+60 ;X COORDINATE OF 2ND POINT
12 FN 0: Q5 =+0 ;Y COORDINATE OF 2ND POINT
13 FN 0: Q6 =-25 ;Z COORDINATE OF 2ND POINT
14 FN 0: Q7 =+60 ;X COORDINATE OF 3RD POINT
15 FN 0: Q8 =+60 ;Y COORDINATE OF 3RD POINT
16 FN 0: Q9 =-10 ;Z COORDINATE OF 3RD POINT
17 FN 0: Q10 =+0 ;X COORDINATE OF 4TH POINT
18 FN 0: Q11 =+60 ;Y COORDINATE OF 4TH POINT
19 FN 0: Q12 =-5 ;Z COORDINATE OF 4TH POINT
20 FN 0: Q20 =+500 ;FEED RATE FOR PLUNGING
21 FN 0: Q21 =+1500 ;FEED RATE FOR MILLING
22 FN 0: Q22 =+1000 ;FEED RATE FOR LATERAL INFEED
23 FN 0: Q27 =+1200 ;FEED RATE FOR RETRACTION
24 FN 0: Q28 =+9999 ;FEED RATE FOR PRE-POSITIONING
25 FN 0: Q23 =+1 ;ALLOWANCE FOR FLOOR
26 FN 0: Q24 =+30 ;INCREMENTAL HEIGHT FOR POSITIONING
27 FN 0: Q25 =+50 ;SAFETY CLEARANCE
28 FN 0: Q26 =+40 ;NUMBER OF CUTS
29 FN 0: Q29 =+2 ;ROUGHING FACTOR
30 ;End of parameter input
31 ;
32 BLK FORM 0.1 Z X+0 Y+0 Z-60
33 BLK FORM 0.2  X+60  Y+60  Z+0
34 ;
35 ;Tool call end-mill (roughing)
36 TOOL CALL 11 Z S15000
37 ;
38 ;Define program 40201-en.h as a cycle
39 CYCL DEF 12.0 PGM CALL
40 CYCL DEF 12.1 PGM TNC:\Database\40201-en.H
41 ;
42 L  A+0  C+0 R0 FQ28 ;Move the tilting axis to zero
43 L  Z+100 R0 FQ28 M3 ;Move to clearance height
44 CALL LBL 21 ;Call the calculations
45 L  X+Q1  Y+Q2 FQ28 M99 ;Approach the starting position and call the cycle
46 ;
47 L  A+0  C+0 R0 FQ28 ;Move the tilting axis to zero
48 M129 ;Deactivate the TCPM function
49 ;
50 ;Tool call end-mill (finishing)
51 TOOL CALL 4 Z S18000
52 ;
53 ;Enter the parameters to be modified for finishing
54 ;
55 FN 0: Q20 =+500 ;FEED RATE FOR PLUNGING
56 FN 0: Q21 =+1200 ;FEED RATE FOR MILLING
57 FN 0: Q22 =+1000 ;FEED RATE FOR LATERAL INFEED
58 FN 0: Q27 =+1200 ;FEED RATE FOR RETRACTION
59 FN 0: Q28 =+9999 ;FEED RATE FOR PRE-POSITIONING
60 FN 0: Q23 =+0 ;ALLOWANCE FOR FLOOR
61 FN 0: Q29 =+1 ;ROUGHING FACTOR
62 ;End of parameter input
63 ;
64 L  Z+100 R0 FQ28 M3 ;Move to clearance height
65 CALL LBL 21 ;Call the calculations
66 L  X+Q1  Y+Q2 R0 FQ28 M99 ;Approach the starting position and call the cycle
67 L  Z+100 R0 FMAX M5 ;Retract
68 L  A+0  C+0 R0 FQ28 ;Move the tilting axis to zero
69 FUNCTION RESET TCPM ;Reset the TCPM function
70 L  Z+100 R0 FQ28 M30 ;End of program
71 ;
72 LBL 21 ;Calculations
73 Q1013 = ATAN ( ( Q3 - Q6 ) / ( Q4 - Q1 ) )
74 Q1014 = ATAN ( ( Q9 - Q6 ) / ( Q8 - Q5 ) )
75 Q1015 = ATAN ( ( Q12 - Q9 ) / ( Q7 - Q10 ) )
76 Q1016 = ATAN ( ( Q12 - Q3 ) / ( Q11 - Q2 ) )
77 CC  X+Q9  Y+Q1013
78 LBL 0
79 END PGM 4020-EN MM