584,861 active members*
4,894 visitors online*
Register for free
Login

Thread: bore milling

Results 1 to 3 of 3
  1. #1
    On Monday I will start my new job. The machine on which I am going to work on is an older model. It has no bore milling cycle (CYCL208?)
    Has anybody got a example program how one can program it differently. With CP somehow but I can’t think of it how it used to be programmed.
    With the 208 it was easy! Can anybody give me an example? Would be really nice!!!

    Regards
    Snake-s

  2. #2
    Hi snake
    I recently created a simple program for that. You can also change it so that you can call it with PGM call. I don’t that at the moment as I am just too lazy ... smile.gif
    In the first PGM you can mill the hole as big as you want. In the second one that I give you, the miller needs to be big enough so that there is no cone in the middle as here only a helix is milled...



    0 BEGIN PGM Helixboreout MM
    1 BLK FORM 0.1 Z X-20 Y-20 Z-30
    2 BLK FORM 0.2 X+20 Y+20 Z+0
    3 ;
    4 ;Parameterprogram to drill any desired holes per helix
    5 ;
    6 ;necessary details
    7 ;
    8 FN 0: Q19 =+1 ;Tool number
    9 FN 0: Q30 =+4000 ;Turning speed tool
    10 FN 0: Q4 =+40 ;diameter drill hole
    11 FN 0: Q8 =+4 ;Immersion depth per turning
    12 FN 0: Q9 =+2 ;security distance
    13 FN 0: Q10 =+4 ;depth
    14 FN 0: Q20 =+850 ;mill feed
    15 FN 0: Q31 =+0 ;oversize tool length
    16 FN 0: Q32 =+0 ;oversize tool radius
    17 ;
    18 ;
    19 FN 0: Q1 =+0 ;circle centre X Pos.1
    20 FN 0: Q2 =+0 ; circle centre Y Pos.1
    21 CALL LBL 6
    22 ;
    23 ;
    24 FN 0: Q1 =+80 ; circle centre X Pos.2
    25 FN 0: Q2 =+80 ; circle centre Y Pos.2
    26 CALL LBL 6
    27 ;
    28 ;
    29 FN 0: Q1 =+130 ; circle centre X Pos.3
    30 FN 0: Q2 =+130 ; circle centre Y Pos.3
    31 CALL LBL 6
    32 ;
    33 ;
    34 L Z+200 R0 FMAX M5
    35 L X+300 R0 FMAX M2
    36 ;
    37 ;
    38 ;
    39 ; from here onwards don’t change anything!!!!!!
    40 LBL 6
    41 ;B
    42 FN 18: SYSREAD Q80 = ID50 NR2 IDXQ19 ;read out tool radius
    43 FN 1: Q5 =+Q9 + +Q10 ;calculate total depth
    44 Q3 = ( Q80 * 2 ) - 0.5 ;calculate beginning diameter
    45 FN 4: Q12 =+Q4 DIV +2 ;calculation circle radius
    46 FN 3: Q88 =+Q80 * +2 ;control dimension calculate tool/drill diameter
    47 ;calculation end
    48 ;
    49 TOOL CALL Q19 Z SQ30 DL+Q31 DR+Q32
    50 L Z+200 R0 FMAX M3
    51 ;
    52 FN 11: IF +Q88 GT +Q4 GOTO LBL 7
    53 ;
    54 LBL 1
    55 L M110
    56 L X+Q1 Y+Q2 R0 FMAX
    57 L Z+Q9 R0 FMAX
    58 CC X+Q1 Y+Q2
    59 LP PR+Q3 PA+0 RL FQ20
    60 LBL 2
    61 FN 1: Q99 =+Q99 + +Q8
    62 FN 11: IF +Q99 GT +Q5 GOTO LBL 3
    63 CP IPA-360 IZ-Q8 DR+
    64 FN 12: IF +Q99 LT +Q5 GOTO LBL 2
    65 LBL 3
    66 CP IPA-360 Z-Q10 DR+
    67 CP IPA+365 DR+
    68 LP PR+0 PA+0 R0
    69 L Z+Q9 R0 FMAX
    70 FN 0: Q99 =+0
    71 FN 9: IF +Q3 EQU +Q12 GOTO LBL 5
    72 Q3 = Q3 + ( Q80 * 2 )
    73 FN 12: IF +Q3 LT +Q12 GOTO LBL 1
    74 LBL 4
    75 FN 0: Q3 =+Q12
    76 CALL LBL 1
    77 LBL 0
    78 LBL 5
    79 Q3 = ( Q80 * 2 ) - 0.5
    80 L M111
    81 LBL 0
    82 LBL 7
    83 FN 14: ERROR= 1046
    84 ;drill hole too small for cutter
    85 LBL 0
    86 END PGM Helixboreout MM




    0 BEGIN PGM helixmm MM
    1 BLK FORM 0.1 Z X+0 Y+0 Z-30
    2 BLK FORM 0.2 X+200 Y+200 Z+0
    3 ;
    4 ;miller diameter needs to be at least Q3
    5 ;
    6 ;
    7 ;necessary details
    8 ;
    9 FN 0: Q4 =+40 ; diameter of the drill hole
    10 FN 0: Q8 =+6.342 ;immersion depth per turning
    11 FN 0: Q9 =+2 ;safe distance
    12 FN 0: Q10 =+11.5 ; depth + possible opening dimensions
    13 FN 0: Q20 =+130 ;feed immersion
    14 ;
    15 ;
    16 TOOL CALL "SECO" Z S3200
    17 L Z+200 R0 FMAX M3
    18 ;
    19 FN 0: Q1 =+50 ;circle centre X Pos.1
    20 FN 0: Q2 =+50 ; circle centre Y Pos.1
    21 CALL LBL 4
    22 ;
    23 FN 0: Q1 =+80 ; circle centre X Pos.2
    24 FN 0: Q2 =+80 ; circle centre Y Pos.2
    25 CALL LBL 4
    26 ;
    27 FN 0: Q1 =+115 ; circle centre X Pos.3
    28 FN 0: Q2 =+115 ; circle centre Y Pos.3
    29 CALL LBL 4
    30 ;
    31 ;
    32 L Z+200 R0 FMAX M5
    33 L X+300 R0 FMAX M2
    34 ;
    35 ; from here onwards don’t change anything!!!!!!
    36 LBL 4
    37 ;Calculation
    38 FN 1: Q5 =+Q9 + +Q10 ; calculate total depth
    39 FN 4: Q3 =+Q4 DIV +2 ;calculate radius
    40 ;Calculation end
    41 CALL LBL 1
    42 LBL 0
    43 ;
    44 LBL 1
    45 L M110
    46 L X+Q1 Y+Q2 R0 FMAX
    47 L Z+Q9 R0 FMAX
    48 CC X+Q1 Y+Q2
    49 LP PR+Q3 PA+0 RL FQ20
    50 LBL 2
    51 FN 1: Q99 =+Q99 + +Q8
    52 FN 11: IF +Q99 GT +Q5 GOTO LBL 3
    53 CP IPA-360 IZ-Q8 DR+
    54 FN 12: IF +Q99 LT +Q5 GOTO LBL 2
    55 LBL 3
    56 CP IPA-360 Z-Q10 DR+
    57 CP IPA+365 DR+
    58 LP PR+0 PA+0 R0
    59 L Z+Q9 R0 FMAX
    60 FN 0: Q99 =+0
    61 L M111
    62 LBL 0
    63 END PGM helixmm MM

  3. #3
    Join Date
    Oct 2006
    Posts
    3342
    Cc x0 yo
    L x0 y0 z50
    L z2
    L z0
    L x20 y0 rl
    L ipa 3600 iz-10 dr+
    L ipa 360 dr+
    L x0 y0
    L z2
    L z50

    Move to the position on a rigid z 10 turning while 10mm lower
    Here an iPhone version
    <b><!--sizeo:5--><span style="font-size:18pt;line-height:100%"><!--/sizeo-->Gruß General<!--sizec--></span><!--/sizec--></b><br /><br /><br /><br /><!--sizeo:3--><span style="font-size:12pt;line-height:100%"><!--/sizeo--><b>Fräser sind Halbgötter in Blau.<br />Denn sie lassen durch Zerstörung Neues entstehen&#33;&#33;&#33;&#33;</b><!--sizec--></span><!--/sizec--><br /><br /><br /><!--sizeo:2--><span style="font-size:10pt;line-height:100%"><!--/sizeo--><u>Werbung in eigener Sache:</u><!--sizec--></span><!--/sizec--><br /><i><!--sizeo:2--><span style="font-size:10pt;line-height:100%"><!--/sizeo-->Enter the Matrix an feel the Moment &quot;<u>www.pixxelmatrix.de</u>&quot;<!--sizec--></span><!--/sizec--></i>

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •