Hirdetés
Új hozzászólás Aktív témák
-
forestia
tag
0 BEGIN PGM INVERZ_KUP_S_ZKORR MM
1 ;**********************************
2 ;Program:____INVERZ_KUP_SIMIT_ZKORR
3 ;Verzio:_______________________v3.0
4 ;Vezerlo tipus:________csak_iTNC530
5 ;Utolso programfutas:____2012.05.22
6 ;**********************************
7 ;Megjegyzes:A program a szerszam 2. sugarat(R2) korrigalja a "Z" tengelyen~
negativ iranyban, az ellepest elotte megmunkalja (elosimitas/Q10-es~
parameter).
8 ;**********************************
9 BLK FORM 0.1 Z X-50 Y-50 Z-50
10 BLK FORM 0.2 X+50 Y+50 Z+0
11 CYCL DEF 247 BAZISPONT KIJELOLESE ~
Q339=+0 ;BAZISPONT SORSZAMA
12 TOOL CALL 30 Z S5100 DL+0 DR+0 ;D10R1.5
13 ;**********************************
14 FN 0: Q1 =+30 ;kezdo sugar
15 FN 0: Q2 =-25 ;melyseg
16 FN 0: Q3 =+15 ;felkupszog
17 FN 0: Q4 =+1.5 ;szerszam 2. sugara (R2)
18 FN 0: Q5 =+1 ;biztonsagi tavolsag
19 FN 0: Q6 =+0 ;X tengely kozepe
20 FN 0: Q7 =+0 ;Y tengely kozepe
21 FN 0: Q8 =+0 ;felszin koordinata
22 FN 0: Q9 =+50 ;2. bizt. tavolsag
23 FN 0: Q10 =-0.5 ;max. fogasvetel elosimitaskor
24 FN 0: Q11 =-0.5 ;max. fogasvetel kup simitaskor
25 FN 0: Q12 =+1600 ;elotolas maraskor
26 ;**********************************
/ 27 M8
28 M79
/ 29 M110
30 ;**********************************
31 FN 12: IF +Q2 LT +0 GOTO LBL "Q2"
32 FN 14: ERROR= 1077 ;--------->Q2
33 LBL "Q2"
34 FN 11: IF +Q4 GT +0 GOTO LBL "Q4"
35 FN 14: ERROR= 1011 ;--------->Q4
36 LBL "Q4"
37 FN 11: IF +Q5 GT +0 GOTO LBL "Q5"
38 FN 14: ERROR= 1082 ;--------->Q5
39 LBL "Q5"
40 FN 11: IF +Q9 GT +0 GOTO LBL "Q9"
41 FN 14: ERROR= 1082 ;--------->Q9
42 LBL "Q9"
43 FN 12: IF +Q10 LT +0 GOTO LBL "Q10"
44 FN 14: ERROR= 1077 ;--------->Q10
45 LBL "Q10"
46 FN 12: IF +Q11 LT +0 GOTO LBL "Q11"
47 FN 14: ERROR= 1077 ;--------->Q11
48 LBL "Q11"
49 CYCL DEF 7.0 NULLAPONTELTOLAS
50 CYCL DEF 7.1 X+Q6
51 CYCL DEF 7.2 Y+Q7
52 CYCL DEF 7.3 Z+Q8
53 Q13 = ( SQRT 2 * ABS Q4 * COS ( 45 - ABS Q3 ) - ABS Q4 ) / SIN ABS Q3
54 Q14 = ABS Q13 / ABS Q10
55 Q15 = INT Q14
56 FN 9: IF +Q14 EQU +Q15 GOTO LBL 1
57 Q15 = Q15 + 1
58 LBL 1
59 Q16 = ABS Q2 - ABS Q13
60 Q17 = ABS Q16 / ABS Q11
61 Q18 = INT Q17
62 FN 9: IF +Q17 EQU +Q18 GOTO LBL 2
63 Q18 = Q18 + 1
64 LBL 2
65 Q10 = ( ABS Q13 / Q15 ) * 0.5
66 Q11 = ( ABS Q16 / Q18 ) * 0.5
67 Q19 = ( ABS Q11 * TAN ABS Q3 ) * 0.5
68 L X+0 Y+0 R0 FMAX M3
69 CC
70 L Z+Q5 R0 FMAX
71 L Z+0 R0 FQ12
72 APPR LCT X+0 Y-Q1 R2 RL FQ12
73 C X+Q1 Y+0 DR+
74 LBL 3
75 CP IPA+180 IZ-Q10 DR+
76 CP IPA+180 IZ-Q10 DR+
77 Q15 = Q15 - 1
78 FN 11: IF +Q15 GT +0 GOTO LBL 3
79 CP IPA+360 DR+
80 LBL 4
81 CC X+Q19 Y+0
82 CP IPA+180 IZ-Q11 DR+
83 CC X-Q19 Y+0
84 CP IPA+180 IZ-Q11 DR+
85 Q18 = Q18 - 1
86 FN 11: IF +Q18 GT +0 GOTO LBL 4
87 CC X+0 Y+0
88 CP IPA+360 DR+
89 DEP LCT X+0 Y+0 R0.5
90 L Z+Q9 R0 FMAX
91 CYCL DEF 7.0 NULLAPONTELTOLAS
92 CYCL DEF 7.1 X+0
93 CYCL DEF 7.2 Y+0
94 CYCL DEF 7.3 Z+0
95 M111
96 M78
97 M9
98 L X+400 Y+0 Z-200 R0 FMAX M91 M30
99 END PGM INVERZ_KUP_S_ZKORR MMNálam működik. Csak saját felelősségre...
[ Szerkesztve ]
Új hozzászólás Aktív témák
Hirdetés
● nem beszélgetős OFF topic!
Állásajánlatok
Cég: Ozeki Kft
Város: Debrecen
Cég: Ozeki Kft
Város: Debrecen