Tu więcej programów CNC
0 BEGIN PGM DRIL2 MM
1 ;Program do wiercenia dlugich otworow
2 ;Program SPRAWDZONY Autor Dominik-S
3 ;Obroty wlanczaja sie przy dojezdzie do punktu rozpoczecia wiercenia ( dla~
dlugich wertel)
4 STOP M6 ;Wiertlo
5 ;###### WPISZ PARAMETRY #######
6 ;ustaw maszne gdzie ma wiercic (osie X i Y )
7 TOOL CALL 0 Z S80
8 FN 0: Q1 =+20 ;Posow Wiercenia
9 FN 0: Q2 =+30000 ;Posow Wyjazdu
10 FN 0: Q3 =+500 ;Posow Dojazdu
11 FN 0: Q4 =-500 ;Glebokosc wiercenia ( - )
12 FN 0: Q5 =-150 ;Glebokosc Rozpoczecia wiercenia (- lub +)
13 FN 0: Q6 =-8 ;Wspulzedna wycofania dla wywalenia wiora(- lub +)
14 FN 0: Q7 =+2 ;Lamanie wiora - dosow (wymiar po ktorym urwac wiora)
15 FN 0: Q8 =+1 ;Co ile laman zrobic wyjazd ? ( 0 bez wycofania )
16 FN 0: Q9 =+0.2 ;Wymiar cofniecia dla urwania wiora (+0.2)
17 FN 0: Q10 =+0.1 ;Przerwa czasowa na wywalenie wiora
18 FN 0: Q11 =+1 ;Bezpiezny dojazd (+1)
19 ;###### KONIEC WPISYWANIA ######
20 ;Nie wyrazam zgody na zmiane dalszej czesci programu
21 ;Wiecej na
22 FN 11: IF +Q4 GT +0 GOTO LBL "BLAD1"
23 FN 12: IF +Q6 LT +Q5 GOTO LBL "BLAD2"
24 FN 12: IF +Q7 LT +0 GOTO LBL "BLAD3"
25 FN 12: IF +Q8 LT +0 GOTO LBL "BLAD3"
26 FN 12: IF +Q9 LT +0 GOTO LBL "BLAD3"
27 FN 12: IF +Q11 LT +0 GOTO LBL "BLAD3"
28 Q49 = Q4 - 1 ;Do BLK FORM glebokosc +1mm
29 BLK FORM 0.1 Z X-Q108 Y-Q108 Z+Q49
30 BLK FORM 0.2 X+Q108 Y+Q108 Z+0
31 CALL LBL "ZEROWANIE"
32 Q52 = Q5
33 LBL "WIERCI"
34 Q54 = Q52 + Q11
35 L Z+Q54 R0 FQ2 ;szybki dojazd
36 LBL "BEZDOJAZDU"
37 L Z+Q52 R0 FQ3 M3 ;wolny dojazd
38 Q50 = Q50 + 1 ;Licznik
39 Q51 = Q50 * ( - Q7 ) ;Przelicznik
40 Q52 = Q5 + Q51
41 Q53 = Q53 + 1
42 FN 9: IF +Q4 EQU +Q52 GOTO LBL "NAGLEBOKOSC"
43 FN 11: IF +Q4 GT +Q52 GOTO LBL "NAGLEBOKOSC"
44 L Z+Q52 R0 FQ1
45 FN 9: IF +Q8 EQU +Q53 GOTO LBL "WYJAZD"
46 L IZ+Q9 R0 FQ2 ;Urwanie wiora
47 FN 12: IF +Q4 LT +Q52 GOTO LBL "BEZDOJAZDU"
48 ;########################
49 LBL "WYJAZD"
50 L Z+Q6 R0 FQ2
51 Q53 = 0 ;Kasowanie licznika wyjazdu
52 CYCL DEF 9.0 PRZERWA CZASOWA
53 CYCL DEF 9.1 P.CZASQ10
54 FN 9: IF +Q53 EQU +0 GOTO LBL "WIERCI"
55 LBL "NAGLEBOKOSC"
56 L Z+Q4 R0 FQ1
57 L Z+Q6 R0 FQ2
58 LBL "ZEROWANIE"
59 Q50 = 0
60 Q51 = 0
61 Q52 = 0
62 Q53 = 0
63 Q54 = 0
64 LBL 0
65 CALL LBL "KONIEC"
66 STOP M2
67 ;
68 ;Bledy
69 LBL "BLAD1"
70 STOP
71 ;Pogielo cie chcesz wiercic do tylu? - Popraw glebokosc wiercenia na ujemna~
bo sie wkuze
72 STOP M2
73 ;
74 ;
75 LBL "BLAD2"
76 STOP
77 ;Chcesz spierniczyc wiertlo czy maszyne ? ustawiles kretynie wartosc ~
wyjazdu w materiale lub zle wpisales punkt startu~
wiercenia Q5 musi byc mniejsze od Q6 !!!
78 STOP M2
79 ;
80 LBL "BLAD3"
81 STOP
82 ;Wartosci Q7 Q8 Q9 Q11 musza byc dodatnie ! POPRAW !!!!
83 STOP M2
84 ;
85 ;
86 ;
87 LBL "KONIEC"
88 M5
89 L Z+10 R0 FMAX M9
90 STOP M2 ; Koniec programu
91 END PGM DRIL2 MM