0 BEGIN PGM 2150_NL MM 
1 ;NC-programma om een rondkamer te maken
2 ;bij de bodem van de kamer en het
3 ;mantelvlak aan elkaar te maken.
4 ;De bewerking vindt plaats met een
5 ;torusfrees. Nadat de vereiste parameters
6 ;en het gereedschap gedefinieerd zijn, voert
7 ;de besturing enkele berekeningen uit.
8 ;Aansluitend wordt de contour met rondkamers
9 ;voorgefreesd. Daarna volgt echter een
10 ;nieuwe gereedschapsoproep met een
11 ;lengtecorrectie met de snijkantradius R2,
12 ;zodat de berekende gereedschapslengte in
13 ;het middelpunt van de snijkant is
14 ;gedefinieerd. Vervolgens berekent de
15 ;besturing in een lus de gereedschapsbaan
16 ;door middel van de hoogtelijnen om de radius
17 ;te maken en werkt deze af.
18 ;Aanwijzing! Het middelpunt van de kamer ligt
19 ;bij X/Y 0 en de bovenkant van de kamer is Z0.
20 ;Indien gewenst moet u het nulpunt naar het
21 ;middelpunt en de hoogte van de kamer
22 ;verplaatsen.
23 ;
24 ;Parameter-invoer
Q1600 = 100 ;DIAMETER
Q1601 = 50 ;DIEPTE
Q1602 = 15 ;AFRONDINGSRADIUS
Q1603 = 5 ;VEILIGHEIDSAFSTAND
Q1604 = 50 ;2. VEILIGHEIDSAFSTAND
Q1605 = 1 ;HOEKSTAP IN RADIUS
Q1606 = 12.5 ;GEREEDSCHAPSRADIUS
Q1607 = 5 ;GEREEDSCHAPSRADIUS R2
Q1608 = 3000 ;FREESAANZET
Q1609 = 5 ;DIEPTE-INSTELLING BIJ HET VOORFREZEN
25 ;Einde parameterinvoer
26 ;
27 BLK FORM 0.1 Z X-60 Y-60 Z-70
28 BLK FORM 0.2  X+60  Y+60  Z+0
29 ;
30 ;Gereedschapsoproep voor frezen van de kamers
31 TOOL CALL "TORUS_MILL_D25_5" Z S14000
32 ;
33 ;Berekeningen
34 FN 2: Q1610 =+Q1601 - +Q1602 ;Diepte 1e kamer
Q1611 = Q1600 - ( 2 * Q1602 ) ;Diameter 2e kamer
Q1612 = Q1610 + Q1605 ;2e veiligheidsafstand 2e kamer
35 ;Einde berekeningen
36 ;
37 ;Vrijzetten
38 L  Z+100 R0 FMAX M3
39 ;
40 ;1e kamer frezen
41 CYCL DEF 252 RONDKAMER ~
   Q215=+1    ;BEWERKINGSOMVANG ~
    Q223=+Q1600 ;CIRKEL DIAMETER ~
    Q368=+0    ;OVERMAAT ZIJKANT ~
    Q207=+Q1608 ;AANZET FREZEN ~
    Q351=+1    ;FREESWIJZE ~
    Q201=-Q1610 ;DIEPTE ~
    Q202=+Q1609 ;DIEPTEVERPLAATSING ~
    Q369=+0    ;OVERMAAT DIEPTE ~
    Q206=+Q1608 ;AANZET DIEPTEVERPL. ~
    Q338=+0    ;VERPLAATSING NABEW. ~
    Q200=+Q1603 ;VEILIGHEIDSAFSTAND ~
    Q203=+0    ;COORD. OPPERVLAK ~
    Q204=+50   ;2E VEILIGHEIDSAFST. ~
    Q370=+0.4  ;BAANOVERLAPPING ~
    Q366=+1    ;INSTEKEN ~
    Q385=+Q1608 ;AANZET NABEWERKEN
42 L  X+0  Y+0 R0 FMAX M99
43 ;
44 ;Frezen 2e kamer
45 CYCL DEF 252 RONDKAMER ~
   Q215=+1    ;BEWERKINGSOMVANG ~
    Q223=+Q1611 ;CIRKEL DIAMETER ~
    Q368=+0    ;OVERMAAT ZIJKANT ~
    Q207=+Q1608 ;AANZET FREZEN ~
    Q351=+1    ;FREESWIJZE ~
    Q201=-Q1602 ;DIEPTE ~
    Q202=+Q1609 ;DIEPTEVERPLAATSING ~
    Q369=+0    ;OVERMAAT DIEPTE ~
    Q206=+Q1608 ;AANZET DIEPTEVERPL. ~
    Q338=+0    ;VERPLAATSING NABEW. ~
    Q200=+Q1603 ;VEILIGHEIDSAFSTAND ~
    Q203=-Q1610 ;COORD. OPPERVLAK ~
    Q204=+Q1612 ;2E VEILIGHEIDSAFST. ~
    Q370=+0.4  ;BAANOVERLAPPING ~
    Q366=+1    ;INSTEKEN ~
    Q385=+Q1608 ;AANZET NABEWERKEN
46 L  X+0  Y+0 R0 FMAX M99
47 ;
48 ;Gereedschapsoproep voor frezen van de radius
49 ;inclusief een DL naar het middelpunt van de R2
50 TOOL CALL  Z DL-Q1607
51 ;
52 L  Z+100 R0 FMAX ;Verplaatsen naar veilige hoogte
53 L  X+0  Y+0 R0 FMAX ;Naar het cirkelmiddelpunt verplaatsen
54 ;
55 ;
56 L  Z+Q1603 R0 FMAX ;Veiligheidsafstand naderen
Q1609 = Q1600 / 2 - Q1602 ;Radius D2
Q1610 = Q1606 - Q1607 ;R1-gereedschap
Q1611 = Q1601 - Q1602 ;Contourbegin Z
57 L  Z-Q1611 R0 F3000 ;Voorpositionering in Z
Q1612 = Q1600 / 2 - ( Q1606 - Q1607 ) - Q1607 * COS 0 ;Naderingspositie X
58 L  X+Q1612  Y+0 R0 FQ1608 ;Naderen van begin van contour op X
59 CC  X+0  Y+0 ;Cirkelmiddelpunt
60 C DR+ ;Cirkelbaan verplaatsen
Q1613 = 90 ;Eindhoek
Q1614 = 0 ;Actuele hoek
61 LBL 10 ;Lus
Q1614 = Q1614 + Q1605 ;Actuele hoek met hoekstap optellen
Q1615 = Q1609 + Q1602 * COS Q1614 ;Contourpunt in X berekenen
Q1616 = Q1611 + Q1602 * SIN Q1614 ;Contourpunt in Z berekenen
62 ;
Q1617 = Q1615 - Q1610 - Q1607 * COS Q1614 ;Baanpositie X
Q1618 = Q1616 - Q1607 * SIN Q1614 ;Baanpositie Z
63 ;
64 L  X+Q1617  Z-Q1618 ;Berekende X- en Z-waarde naderen
65 C DR+ ;Cirkelbaan verplaatsen
66 ;
67 FN 12: IF +Q1614 LT +Q1613 GOTO LBL 10 ;Als actuele hoek kleine eindhoek dan lus herhalen
68 ;
69 L  Z+Q1604 R0 FMAX ;2e veiligheidsafstand naderen
70 ;
71 ;Vrijzetten en programma-einde
72 L  Z+100 R0 FMAX M30
73 END PGM 2150_NL MM