Planowanie - program

[robnaj]

Witam

Próbuję napisać program na planowanie powierzchni z wykorzystaniem parametrów Q.
nie mogę poradzić sobie z przesuwem osi y o daną liczbę przejść. Czy ktoś może już pisał taki program?

0 BEGIN PGM q MM
1 BLK FORM 0.1 Z X+0 Y+0 Z-100
2 BLK FORM 0.2 X+100 Y+100 Z+1
3 ;
4 TOOL CALL 20 Z S900
5 ;
6 FN 0: Q1 =+5 ;dosuw
7 FN 0: Q2 =+10 ;glebokosc
8 FN 0: Q3 =+2000 ;posuw frezowania
9 FN 0: Q5 =+150 ;dlugosc x
10 FN 0: Q7 =+20 ;dosuw y
11 FN 0: Q9 =+0 ;ilosc powtorzen przeuw y
12 FN 0: Q10 =+50 ;dlugosc y
13 FN 0: Q11 =+4 ;ilosc przejsc y
14 FN 4: Q12 =+Q10 DIV +Q11
15 FN 2: Q13 =+Q11 - +1
16 ;
17 FN 0: Q4 =+Q1
18 FN 11: IF +Q4 GT +Q2 GOTO LBL 3
19 FN 12: IF +Q4 LT +Q2 GOTO LBL 1
20 ;
21 LBL 1
22 CALL LBL 2
23 FN 1: Q4 =+Q4 + +Q1
24 FN 11: IF +Q4 GT +Q2 GOTO LBL 3
25 FN 10: IF +Q4 NE +Q2 GOTO LBL 1
26 FN 12: IF +Q4 LT +Q2 GOTO LBL 1
27 ;
28 LBL 0
29 ;
30 LBL 2
31 FN 9: IF +Q11 EQU +1 GOTO LBL 11
32 FN 11: IF +Q11 GT +1 GOTO LBL 13
33 LBL 0
34 L Z+100 R0 FMAX M2
35 LBL 13
36 L X-30 Y+0 R0 FMAX M3
37 L Z-Q4 F1000
38 LBL 130
39 L X+Q5 R0 FQ3
40 L IY+Q12 R0 FMAX
41 L X-30 R0 FQ3
42 L IY+Q12 R0 FMAX
43 CALL LBL 130 REPQ13
44 LBL 0
45 L Z+100 R0 FMAX M2
46 LBL 11
47 L X+0 Y+0 R0 FMAX M3
48 L Z-Q4 FMAX
49 L X+Q5 FQ3
50 LBL 0
51 L Z+100 R0 FMAX M2
52 ;
53 LBL 3
54 L Z+400 R0 FMAX
55 LBL 0
56 END PGM q MM

[gazik 70]

Jesli interesuje Cie planowanie to daj znac na priv a podesle Ci cykle, ktore zrobilem na planowanie powierzchni prostokatnych i okaglych.

[rafa30]

PLANOWANIE
1 BLK FORM 0.1 Z X-50 Y0 Z-5
2 BLK FORM 0.2 X+200 Y+200 Z+0
3 TOOL CALL 7 Z S1000
4 L X-50 Y+0 F MAX 
5 L Z+100 F1000 
6 FN 0: Q1 = +50;KROK W Y
7 FN 0: Q2 = +200;SZEROKOSC W Y 
8 FN 0: Q3 = +1000;POSUW 
9 FN 0: Q4 = +0;START Y
10 CALL LBL1
11 L Z+100 R0 F MAX M30 
12 LBL 1
13 L Z-1 R0 F1000
14 L X+150 R0 FQ3
15 FN 1:Q4 =+Q4++Q1-LICZNIK DODAWANIE
16 L Y+Q4 R0 FQ3 
17 L X-50 FQ3
18 FN 1:Q4 =+Q4++Q1-LICZNIK DODAWANIE
19 L Y+Q4 R0 FQ3 
20 L X+150 R0 FQ3
21 FN 12:IF +Q4 LT+Q2 GOTO LBL 1
22 LBL 0