RE: fortlaufende programierung ?
Das kannst du mit Offset lösen.
1 DEF berechnung( )
2
3 decl e6pos ablagepos [4,4]
4 decl e6pos vorpos [4,4]
5 decl int reihe,spalte
6 decl real dx,dy,dz
7
8 INI
9
10 dx=80.0
11 dy=80.0
12 dz=100.0
13
14 ;*******berechnung ablageposition*********
15
16 for reihe=1 to 4
17 for spalte=1 to 4
18 ablagepos[reihe,spalte]=xgrundpos
19 ablagepos[reihe,spalte].x=ablagepos[reihe,spalte].x+(spalte-1)*dx
20 ablagepos[reihe,spalte].y=ablagepos[reihe,spalte].y+(reihe-1)*dy
21 endfor
22 endfor
23
24 ;*******berechnung vorposition***********
25
26 for reihe=1 to 4
27 for spalte=1 to 4
28 vorpos[reihe,spalte]=ablagepos[reihe,spalte]
29 vorpos[reihe,spalte].z=vorpos[reihe,spalte].z+dz
30 endfor
31 endfor