0 BEGIN PGM KRUH MM
1 ;STROJ: MCVL1000
2 ;SYSTEM: HEIDENHAIN iTNC530 Dialog
3 ;POSTPROCESOR: M5_H530_MCVL1000
4 ;GPP_VER.: 2016-11-25
5 ;PROGRAMATOR: MACHALA
6 ;Projekt: MODEL1NX7_MCU
7 ;Datum: 24.3.2017
8 ;Cas: 11:21:14
9 ;
10 BLK FORM 0.1 Z X+0 Y+0 Z+0
11 BLK FORM 0.2 X+0 Y+0 Z+0
12 Q629=0 ; reset transformace 4 osy
13 M135 M126
14 ; 
15 ;================================
16 ;...... SEZNAM NASTROJU ......
17 ;T01 - BALL NOSE MILL D8 R4 
18 ;================================
19 ;
20 ;
21 ;==============================
22 ; OPERACE: F-contour32
23 ;==============================
24 ; reset 4th axe transform counter
25 Q629 = 0
26 ; ******************************
27 ; NASTROJ: T1 D8 R4 L60 DB24 Z2
28 ; TYP: KULOVA FREZA
29 ; UPINAC: 
30 ; ******************************
31 TOOL CALL 1 Z S3500
32 Q601=1000 ;hrubovaci
33 Q602=1000 ;dokoncovaci
34 Q603=300 ;posuv v Z
35 ;
36 CALL LBL "POLOHA-1" ;Mac 1 Position 1
37 CALL LBL 995; Odjezd Z
38 L X-36.459 Y-5.75 C+0 B+0 R0 FMAX M3
39 L Z+350 R0 FMAX
40 L Z+272 FMAX
41 L Z+249.828 F+Q603
42 L Y-6 F+Q601
43 CC X-36.459 Y+0
44 C X-30.459 Y+0 DR+
45 CC X+0 Y+0
46 C X-30.459 Y+0 DR-
47 CC X-36.459 Y+0
48 C X-36.459 Y+6 DR+
49 L Y+5.75
50 L Z+350 FMAX
51 ;
52 CALL LBL 992 ;Reset roviny obrabeni
53 L Z+333 FMAX
54 L B+0 C+0 R0 FMAX
55 PLANE RESET TURN FMAX
56 L M30
57 ;=================================
58 ;=  K O N E C   P R O G R A M U  =
59 ;================================= 
60 ;   Xmin = -36.4591 
61 ;   Xmax = 0 
62 ;   Ymin = -6 
63 ;   Ymax = 6 
64 ;   Zmin = 0 
65 ;   Zmax = 249.828 
66 ;   Bmin = 0 
67 ;   Bmax = 0 
68 ;   Cmin = 0 
69 ;   Cmax = 0 
70 ;================================= 
71 ;
72 ;===============================
73 ;=  DATA POLOHY NULOVEHO BODU  =
74 ;=============================== 
75 ; 
76 ;Mac 1 Position 1
77 LBL "POLOHA-1"
78 Q623=0 ;Posun X
79 Q624=0 ;Posun Y
80 Q625=0 ;Posun Z
81 Q620=-0 ;rotace SS kolem osy X
82 Q621=0 ;rotace SS kolem osy Y
83 Q622=-0 ;rotace SS kolem osy Z
84 ;C fyzicke: 0 ;fyzicke natoceni osy C
85 ;B fyzicke: 0 ;fyzicke natoceni osy B
86 ;---
87 ;Lokalni posun NB
88 Q626=0.000 ;Posun X
89 Q627=0.000 ;Posun Y
90 Q628=0.000 ;Posun Z
91 LBL 0
92 ;-------------------------------
93 ; 
94 ;Nastavit polohu
95 CALL LBL 992 ;Reset roviny obrabeni
96 Q632=Q622+Q629 ; C osa + transform 4x
97 FN 12: IF +Q620 LT +0. GOTO LBL 996
98 PLANE SPATIAL SPA+Q620 SPB+Q621 SPC+Q632 TURN FMAX SEQ+ TABLE ROT
99 LBL 0
100 LBL 996
101 PLANE SPATIAL SPA+Q620 SPB+Q621 SPC+Q632 TURN FMAX SEQ- TABLE ROT
102 LBL 0
103 ; 
104 ;Reset roviny obrabeni
105 LBL 992
106 L M129
107 PLANE RESET STAY
108 LBL 0
109 ;
110 LBL 994; Odjezd XYZ
111 L Z+333 FMAX M92
112 L X+0 Y+0 FMAX M91
113 LBL 0
114 ;
115 LBL 995; Odjezd Z
116 L Z+333 FMAX
117 LBL 0
118 END PGM KRUH MM