0 BEGIN PGM Q Parameter Beispiel MM 1 BLK FORM 0.1 Z X+0 Y-60 Z-195 2 BLK FORM 0.2 X+1500 Y+0 Z+4 3 LBL "PARAMETER" 4 * - DICKE EINER PLATTE (RECHNERISCH) 5 Q1 = 20.2851 6 * - ANZAHL PLATTEN 7 Q2 = 3 8 * - RADIUS WKZ 9 Q3 = 25 10 * - SICHERHEITSABSTAND (SEITLICH) 11 Q4 = 10 12 * - WERT ZUM PROGRAMMIEREN 13 Q5 = Q1 * Q2 + ( Q3 + Q4 ) 14 LBL 0 15 TOOL CALL 31 Z S( VC = 200 ) ~ F900 16 * - EMK 50 17 CYCL DEF 301 ~ Q1998=+1 18 CALL LBL "PARAMETER" 19 L X+221 Y+35 FMAX M3 20 L Z+5 FMAX M7 21 L Z+0.3 F1000 22 L IY-Q5 F AUTO 23 L Z+0 F1000 24 L IY+Q5 F AUTO 25 L Z+50 FMAX 26 L X+1187 Y+35 FMAX 27 L Z+5 FMAX 28 L Z+0.3 F1000 29 L IY-Q5 F AUTO 30 L Z+0 F1000 31 L IY+Q5 F AUTO 32 L Z+50 FMAX 33 L X+50 FMAX M91 34 TOOL CALL 9 Z S( VC = 100 ) 35 * - VHM 8.5 36 CYCL DEF 200 BOHREN ~ Q200=+5 ;SICHERHEITS-ABST. ~ Q201=-35 ;TIEFE ~ Q206= FU+0.1 ;VORSCHUB TIEFENZ. ~ Q202=+35 ;ZUSTELL-TIEFE ~ Q210=+0 ;VERWEILZEIT OBEN ~ Q203=+0 ;KOOR. OBERFLAECHE ~ Q204=+50 ;2. SICHERHEITS-ABST. ~ Q211=+0 ;VERWEILZEIT UNTEN 37 CALL LBL "PARAMETER" 38 M7 39 LBL 10 40 CYCL DEF 301 ~ Q1998=+1 41 L X+221 Y-10 FMAX M13 M99 42 L IY-Q1 FMAX M99 43 L IY-Q1 FMAX M99 44 L X+1187 FMAX M99 45 L IY+Q1 FMAX M99 46 L IY+Q1 FMAX M99 47 L X+50 FMAX M91 48 LBL 0 49 TOOL CALL 10 Z S( VC = 8 ) 50 * - M 10 51 CYCL DEF 207 GEW.-BOHREN GS NEU ~ Q200=+5 ;SICHERHEITS-ABST. ~ Q201=-30 ;GEWINDETIEFE ~ Q239=+1.5 ;GEWINDESTEIGUNG ~ Q203=+0 ;KOOR. OBERFLAECHE ~ Q204=+50 ;2. SICHERHEITS-ABST. 52 CALL LBL "PARAMETER" 53 CALL LBL 10 54 TOOL CALL 0 Z S100 55 L X+750 IY-250 FMAX M30 56 END PGM Q Parameter Beispiel MM