Dziękuję
Bardziej chodzi mi o coś takiego
0 BEGIN PGM Spirala arch MM
1 BLK FORM 0.1 Z X-100 Y-100 Z-10
2 BLK FORM 0.2 X+100 Y+100 Z+10
3 ; SPIRALA ARCHIMEDESA
4 ; ----------------------------
5 L X+0 Y+0 F1000
6 L Z+100 F1000
7 ; -------------------------------
8 FN 0: Q1 =+0 ; PROMIEN POCZATKOWY
9 FN 0: Q2 =+10 ; PRZYROST NA PROMIENIU
10 FN 0: Q3 =+100 ; SREDNICA
11 FN 0: Q99 =+1000 ;POSUW
12 FN 0: Q4 =+Q2
13 FN 3: Q5 =+Q2 * +2
14 FN 3: Q6 =+Q5 * -1
15 FN 3: Q7 =+Q2 * +2
16 CALL LBL 2
17 LBL 1 ; PRZYPISYWANIE
18 FN 0: Q4 =+Q2
19 FN 1: Q5 =+Q5 + +Q7
20 FN 2: Q6 =+Q6 - +Q7
21 CALL LBL 3
22 LBL 0
23 ;-------------------------------
24 LBL 2 ; FREZOWANIE
25 L X+Q1 Y+0 FQ99
26 LBL 3 ; FREZOWANIE
27 CC X+Q4 Y+0
28 C X+Q5 Y+0 DR+ FQ99
29 CC X+0 Y+0
30 C X+Q6 Y+0 DR+
31 FN 12: IF +Q5 LT +Q3 GOTO LBL 1
32 FN 11: IF +Q5 GT +Q3 GOTO LBL 4
33 LBL 0
34 LBL 4 ; ODEJSCIE
35 FN 4: Q8 =+Q5 DIV +2
36 CC X+0 Y+0
37 C X+Q5 Y+0 DR+ FQ99
38 CC X+Q8 Y+0
39 C X+0 Y+0 DR+ FQ99
40 L Z+100 R0 FMAX
41 ; ---------------------------
42 END PGM Spirala arch MM
Przy kolegi programie był problem z większymi średnicami którymi ja operuje
Oczywiście w moim programie standardowy problem z za dużym pakietowaniem
Zapraszam do dyskusji
