2013-03-04 05:37 AM
2013-03-04 08:27 AM
DIM subtractedFooting [] DIM finished[] GROUP 'Pile' !!!!Group for Solid operation BLOCK pileSize, pileSize, pileFootingDeptht ENDGROUP GROUP 'Footing' BLOCK footingSize, footingSize, footingDepth ENDGROUP FOR k = 0 TO A STEP pileCentres ADDX k GOSUB 100: NEXT k KILLGROUP 'Footing' KILLGROUP 'Pile' END 100: ! Piles subtractedFooting[k+1] = SUBGROUP('Footing', 'Pile') finished[k+1] = SUBGROUP(subtractedFooting[k+1], 'Pile') PLACEGROUP finished [k+1] KILLGROUP finished [k+1] RETURN
FOR k = 0 TO A STEP pileCentres PLACEGROUP finished ADDx k NEXT k
2013-03-04 12:15 PM