0 BEGIN PGM F_CONTOUR32 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: 12:13:22
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 D10 R5 
18 ;================================
19 ;
20 ;
21 ;==============================
22 ; OPERACE: F-contour32
23 ;==============================
24 ; reset 4th axe transform counter
25 Q629 = 0
26 ; ******************************
27 ; NASTROJ: T1 D10 R5 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-37.459 Y-5.73 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-11 RL F+Q601
43 CC X-37.459 Y+0
44 C X-26.459 Y+0 DR+
45 CC X+0 Y+0
46 C X+26.459 Y+0 DR-
47 C X-26.459 Y+0 DR-
48 CC X-37.459 Y+0
49 C X-37.459 Y+11 DR+
50 L Y+5.73 R0
51 L Z+350 FMAX
52 ;
53 CALL LBL 992 ;Reset roviny obrabeni
54 L Z+333 FMAX
55 L B+0 C+0 R0 FMAX
56 PLANE RESET TURN FMAX
57 L M30
58 ;=================================
59 ;=  K O N E C   P R O G R A M U  =
60 ;================================= 
61 ;   Xmin = -37.4591 
62 ;   Xmax = 26.4591 
63 ;   Ymin = -11 
64 ;   Ymax = 11 
65 ;   Zmin = 0 
66 ;   Zmax = 249.828 
67 ;   Bmin = 0 
68 ;   Bmax = 0 
69 ;   Cmin = 0 
70 ;   Cmax = 0 
71 ;================================= 
72 ;
73 ;===============================
74 ;=  DATA POLOHY NULOVEHO BODU  =
75 ;=============================== 
76 ; 
77 ;Mac 1 Position 1
78 LBL "POLOHA-1"
79 Q623=0 ;Posun X
80 Q624=0 ;Posun Y
81 Q625=0 ;Posun Z
82 Q620=-0 ;rotace SS kolem osy X
83 Q621=0 ;rotace SS kolem osy Y
84 Q622=-0 ;rotace SS kolem osy Z
85 ;C fyzicke: 0 ;fyzicke natoceni osy C
86 ;B fyzicke: 0 ;fyzicke natoceni osy B
87 ;---
88 ;Lokalni posun NB
89 Q626=0.000 ;Posun X
90 Q627=0.000 ;Posun Y
91 Q628=0.000 ;Posun Z
92 LBL 0
93 ;-------------------------------
94 ; 
95 ;Nastavit polohu
96 CALL LBL 992 ;Reset roviny obrabeni
97 Q632=Q622+Q629 ; C osa + transform 4x
98 FN 12: IF +Q620 LT +0. GOTO LBL 996
99 PLANE SPATIAL SPA+Q620 SPB+Q621 SPC+Q632 TURN FMAX SEQ+ TABLE ROT
100 LBL 0
101 LBL 996
102 PLANE SPATIAL SPA+Q620 SPB+Q621 SPC+Q632 TURN FMAX SEQ- TABLE ROT
103 LBL 0
104 ; 
105 ;Reset roviny obrabeni
106 LBL 992
107 L M129
108 PLANE RESET STAY
109 LBL 0
110 ;
111 LBL 994; Odjezd XYZ
112 L Z+333 FMAX M92
113 L X+0 Y+0 FMAX M91
114 LBL 0
115 ;
116 LBL 995; Odjezd Z
117 L Z+333 FMAX
118 LBL 0
119 END PGM F_CONTOUR32 MM