chcialem napisac program na wykonanie detalu przy urzyciu np 3 narzedzi w 3 imadlach (3bazach)
i stad moje pytanie czy dobrze robie ?
chodzi mi dokladnie o samo przeniesienie bazy tak aby wykonujac np glowica 63 program na gabaryt zrobila ona od razu we wszystkich 3 imadlach po czym wywolany zostalby program na fr12 itd itd
ps. z gory przepraszam jak troche temat zakrecilem, mam jednak nadzieje ze bedzie wiadomo o co mi chodzi

pr
0 BEGIN PGM PLAN MM
1 BLK FORM 0.1 Z X-30 Y-30 Z+0
2 BLK FORM 0.2 X+200 Y+60 Z+30
przesuniecie bazy w osi X, baza Y stala, Z stale
fn 0: Q10=0
fn 0: Q20=50
fn 0: Q30=100
glowica 63
CALL LBL 4
CYCL DEF 7.0 PUNKT BAZOWY
CYCL DEF 7.1 X+Q10
CYCL DEF 7.0 PUNKT BAZOWY
CYCL DEF 7.1 X+Q20
CYCL DEF 7.0 PUNKT BAZOWY
CYCL DEF 7.1 X+Q30
frez 12
CALL LBL 5
CYCL DEF 7.0 PUNKT BAZOWY
CYCL DEF 7.1 X+Q10
CYCL DEF 7.0 PUNKT BAZOWY
CYCL DEF 7.1 X+Q20
CYCL DEF 7.0 PUNKT BAZOWY
CYCL DEF 7.1 X+Q30
w 10
CALL LBL 6
CYCL DEF 7.0 PUNKT BAZOWY
CYCL DEF 7.1 X+Q10
CYCL DEF 7.0 PUNKT BAZOWY
CYCL DEF 7.1 X+Q20
CYCL DEF 7.0 PUNKT BAZOWY
CYCL DEF 7.1 X+Q30
lbl4
3 TOOL CALL 1 Z S1000 F2000 DL+0 ; GLOWICA63
4 L Z+150 R0 F MAX M3
5 FN 0: Q1 = +44.2
6 LBL 1
7 L X+0 Y+0 R0 F MAX
8 L Z+Q1 R0 F MAX
9 L X+300 R0 F AUTO
10 L Y+45 R0 F MAX
11 L X+0 F AUTO
12 L Y+90 R0 F MAX
13 L X+300 R0 F AUTO
14 L Y+135 R0 F MAX
15 L X+0 R0 F AUTO
16 FN 1: Q1 = +Q1 + -0.5
17 LBL 0
18 FN 9: IF +Q1 EQU +41.2 GOTO LBL 1
19 FN 11: IF +Q1 GT +41.2 GOTO LBL 1
20 L Z+100 R0 F MAX
CYCL DEF 7.0 PUNKT BAZOWY
CYCL DEF 7.1 X+0
lbl5
drugie narzedzie i np program na gabaryt
3 TOOL CALL 2 Z S1000 F2000 DL+0 ; frez 12
4 L Z+150 R0 F MAX M3
5 FN 0: Q1 = +44.2
6 LBL 2
7 L X+0 Y+0 R0 F MAX
8 L Z+Q2 R0 F MAX
9 L X+300 R0 F AUTO
10 L Y+45 R0 F MAX
11 L X+0 F AUTO
12 L Y+90 R0 F MAX
13 L X+300 R0 F AUTO
14 L Y+135 R0 F MAX
15 L X+0 R0 F AUTO
16 FN 1: Q2 = +Q2 + -0.5
17 LBL 0
18 FN 9: IF +Q2 EQU +41.2 GOTO LBL 2
19 FN 11: IF +Q2 GT +41.2 GOTO LBL 2
20 L Z+100 R0 F MAX
CYCL DEF 7.0 PUNKT BAZOWY
CYCL DEF 7.1 X+0
lbl6
3 program niech bedzie np otwory
3 TOOL CALL 1 Z S1000 F2000 DL+0 ; w 10
4 L Z+150 R0 F MAX M3
5 FN 0: Q3 = +44.2
6 LBL 3
7 L X+0 Y+0 R0 F MAX
8 L Z+Q1 R0 F MAX
9 L X+300 R0 F AUTO
10 L Y+45 R0 F MAX
11 L X+0 F AUTO
12 L Y+90 R0 F MAX
13 L X+300 R0 F AUTO
14 L Y+135 R0 F MAX
15 L X+0 R0 F AUTO
16 FN 1: Q3 = +Q3 + -0.5
17 LBL 0
18 FN 9: IF +Q3 EQU +41.2 GOTO LBL 3
19 FN 11: IF +Q3 GT +41.2 GOTO LBL 3
20 L Z+100 R0 F MAX
CYCL DEF 7.0 PUNKT BAZOWY
CYCL DEF 7.1 X+0
22 END PGM PLAN MM